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Programmer's Guide is concerned with the 
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PL/I program. The Programmer's Guide is 
concerned with the relationship between a 
PL/I program and IBM System/360 Operating 
System; it explains how to compile, link 
edit, and execute a PL/I program. 


Part 1 is intended primarily for the 
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and 3 are designed for use either as 
reference material or for reading as an 
introduction to the features they describe. 
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Chapter 1: 


In IBM System/360, programs are usually 
executed as part of a group of programs 
collectively termed an operating system. 
This chapter introduces IBM System/360 
Operating System*t (the operating system 
that includes the PL/I (F) compiler), and 
describes the job control language that 
enables programmers to define the 
requirements of their programs for the 
operating system. Chapter 2 illustrates 
the use of job control language for running 
a simple PL/I program. The two chapters 
are complementary; the first briefly 
describes the operating system and job 
control language, and the second 
demonstrates how to use them to execute a 
PL/I program. Chapter 3 introduces the 
concept of storage of data and shows how to 
use a simple data set. 


IBM System/360 Operating System 


IBM System/360 Operating System consists of 
a control program and a number of 
processing programs that together assist 
both the operator and the programmer in the 
use of IBM System/360. The operating 
System relieves the programmer of routine 
and time-consuming tasks by controlling the 
allocation of storage space and 
input/output devices. Through the language 
translators that may be included, it makes 
programming easier by permitting the use of 
high-level languages such as PL/I. And it 
increases the throughput of the machine 
because it can process a stream of jobs 
without interruption by the operator; it 


provides automatic transition from one job 


to another. 


The control program supervises the 
execution of all processing programs and 
provides services that are required in 
common by the processing programs during 
their execution. It has four main 
elements: 


1. Supervisor: The supervisor program is 
the control center of the operating 
System, and controls and coordinates 
all activity within it. 


2. Master scheduler: The master scheduler 
forms a two-way communication link 


11BM System/360 Operating System is 
frequently referred to as 'the operating 
system,' or simply 'the system.' 


Introduction to the Operating System 


between the operator and the operating 
system. 


3. Job scheduler: The job scheduler reads 
and analyzes the input job stream (the 
sequence of control statements and 
data entering the system), allocates 
input/output devices as necessary, 
initiates the execution of processing 
programs, and provides a record of the 
work processed. 


4. Data management routines: The data 
management routines control 
input/output operations, regulate the 
use of input/output devices, and 
provide access to the data held in 
them. 


The processing programs of the operating 
system include service programs (for 
example, the linkage editor) and language 
translators (for example, the PL/I (F) 
compiler) provided by IBM, as well as 
programs that are written by the user and 
incorporated as part of the system. 


All the programs of the operating system 
are stored in system libraries, which are 
held in auxiliary storage on a 
direct-access storage device. 


The most important components of the 
operating system that directly concern the 
PL/I programmer are the job scheduler, the 
PL/I (F) compiler, the linkage editor, and 
the linkage loader, all of which are 
discussed below. The operating system is 


described in IBM System/360 Operating 
System: Concepts and Facilities. 


JOB SCHEDULER 


The job scheduler is the component of the 
operating system that handles 
communications between the programmer and 
the services provided by the operating 
system. А simple programming language 
called job control language (JCL) enables 
the programmer to specify his requirements 
to the operating system. The statements of 
this language indicate to the job scheduler 
the start and name of the job, specify the 
programs that are to be executed, and 
define the auxiliary storage requirements 
of the programs. In response to the job 
control statements, the job scheduler 
allocates the input/output units required, 
notifying the operator of any tapes or disk 
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packs that must be mounted, and then 
requests the supervisor program to initiate 
the execution of the specified programs. 
After the execution of each program the job 
scheduler prints a record of the work done. 


PL/I (F) COMPILER 


The PL/I (F) compiler is a program that 
translates PL/I source programs into IBM 
System/360 machine instructions. The set 
of instructions produced by a compilation 
is termed an object module. An object 
module is not in a form suitable for 
loading into main storage and subsequent 
execution; first it must be processed by 
the linkage editor or the linkage loader. 
(Chapter 5 discusses the compiler and 
describes the object module it produces.) 


LINKAGE EDITOR 


The linkage editor is a program that 
converts object modules into a form 
suitable for loading into main storage for 
execution; a program in this form is termed 
a load module. The output (load module) 
from the linkage editor is always placed in 
a library, from which the job scheduler can 
load it for execution. 


The linkage editor can combine 
separately produced object modules and 
previously processed load modules into a 
Single load module. It can make changes to 
sections of a load module: only sections 
that are affected by the changes need be 
re-compiled. It also permits a program 
that is too large for the space available 
in main storage to be divided so that it 
can be loaded and executed segment by 
segment. 


Chapter 6 discusses the linkage editor 
and the differences between object modules 
and load modules. 


LINKAGE LOADER 


The linkage loader is a program that 
converts object modules into load modules, 
loads them into main storage and executes 
them, all in one job step. It can combine 
object or load modules into a single load 
module for execution; this load module is 
always placed in main storage, never ina 
library. 
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The use of the linkage loader and the 
options available are discussed in Chapter 
6. 


Job Control Language Examples 


The following discussion of the job control 
language is an overview. Job control 
language is fully described in IBM 


System/360 Operating System: Job Control 
Langauge User's Guide, and Job Control 


Language Reference; however the most 
significant parameters of the DD statement 
are also described in Appendix B. 


Job control language is the means by 
which a programmer communicates with the 
job scheduler; it allows the programmer to 
describe the work he wants the operating 
system to do, and to specify the 
input/output facilities he requires. Only 
seven types of statement are involved, of 
which four are relevant to this discussion: 
the JOB statement, the execute (EXEC) 
statement, the data definition (DD) 
statement, and a delimiter statement. 


The JOB statement identifies a job to 
the job scheduler. In IBM System/360 
Operating System, a job is an independent 
request for the facilities of the operating 
System; it comprises one or more job steps. 
A job starts with a JOB statement and 
continues until the next JOB statement is 
encountered. 


The EXEC statement identifies a job step 
to the job scheduler. А job step involves 
a request for the execution of a program. 


‘Job steps can be interrelated: data can be © 


passed from one job step to the next, and 
the execution of one job step can depend on 
the successful execution of a preceding 
step. (Мо such relationship exists between 
jobs; they are independent of one another.) 
A job step starts with an EXEC statement 
and continues until the next EXEC or JOB 
Statement is encountered. 


DD (data definition) statements describe 
the input/output facilities required in a 
job step. 


The delimiter (/*) separates data in the 
input stream from the succeeding job 
control statements. 


FORMAT OF JOB CONTROL STATEMENTS 


A job control statement consists of one or 
more 80-byte records. Since 80-column 
punched cards are the most common input 


Name of Accounting Programmer's 
job information name 
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Figure 1-1. А JOB Statement 


medium for the job stream, the following 
discussion refers to card columns rather 
than to bytes. 


JOB, EXEC, and DD statements have the 
same format, examples of which appear in 
Figures 1-1, 1-2, and 1-3. These 
statements are identified by // in card 
columns 1 and 2. Each statement сап 
contain four fields (name, operation, 
operand, comments), which are separated by 
one or more blanks; the name field starts 
in column 3. А job control statement must 
not extend beyond column 71; if necessary 
it can be continued on another card, as 
shown in Figure 1-3. 


The name field, which begins in column 
3, can range from one to eight characters 
in length, and can contain any alphameric 
(alphabetic or numeric) or national (9 5 8) 
characters. The first character must be 
alphabetic or national. This field is 
somtimes omitted. The name identifies the 
Statement and enables other job control 
Statements (or PL/I statements) to refer to 
it. 


The operation field specifies the type 
of job control statement (JOB, EXEC, DD). 
Whether the name field is used or not, the 
operation field must be preceded by at 
least one blank. 


The operand field can contain one or 
more parameters separated by commas; these 





parameters pass information to the job 
scheduler, and, for the JOB, EXEC and DD 
Statements, are of two types, positional 
and keyword.  Positional parameters must be 
placed at the beginning of the operand 
field, and are identified by their position 
relative to other parameters. If a 
positional parameter is omitted, its 
absence is indicated by a comma, unless it 
is the last positional parameter, when the 
comma is omitted. A keyword parameter 
consists of a keyword followed by an equals 
sign, which is followed by a single value 
or a list of subparameters; keyword 
parameters may appear in. any order, and 
their omission need not be indicated. 


The comments field is intended for 
programmer's notes. It has no fixed 
format, and can contain any information. 
The comments field is the only field that 
can include blanks. 


The following paragraphs contain a 
general description of the functions of the 
JOB, EXEC, DD, and delimiter statements; 
these, and other job control statements, 
are discussed further under appropriate 
headings in later chapters. IBM System/360 
Operating System: .Јор Control Language, 
User's Guide, and Job Control Lanquage 
Reference, gives a full description of all 
the job control statements, their formats 
and parameters. 
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JOB STATEMENT 


The JOB statement (Figure 1-1) indicates 
the start of a job and the end of the 
preceding job. It assigns a name to the 
new job, which is used by the job scheduler 
in the messages it passes to the operator 
and prints on the program listing. The 
parameters (none of which need appear 
unless your installation has made some of 
them mandatory) include the programmer's 
name and accounting information. 


EXEC STATEMENT 


The EXEC statement (Figure 1-2) marks the 
start of a new job step and the end of the 
preceding job step. It requests the job 
scheduler to fetch a load module from the 
system library (or from another library) 
and cause it to be executed; other load 
modules can be loaded dynamically during 
the execution of the first, but only one 
can be named in the EXEC statement. The 
first parameter (PGM=) names the program to 
be executed. Sometimes the EXEC statement 
passes information to the program that it 
calls (PARM parameter), and it may include 
accounting information and specify 
conditions for bypassing the job step. 


Name of 
job step 


Program to 
be executed 
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DD STATEMENT 


In IBM System/360, a collection of data 
held in an auxiliary storage device (a reel 
of magnetic tape, a disk pack, etc.,) is 
termed a data set. A DD statement (Figure 
1-3) identifies a data set and describes 
its attributes. There must be a DD 
Statement for each data set that is used or 
created in a job step. The DD statements 
are placed immediately after the EXEC 
Statement for the step. 


The parameters of the DD statement 
contain such information as the name of the 
data set, the name of the volume on which 
it resides, the type of device that holds 
the data set, the format of the records in 
the data set, and the method that will be 
used to create or access the data set. The 
name of the DD statement provides a 
symbolic link between the file named in a 
PL/I program and the actual name and 
location of the corresponding data set. 

The DD statement allows the programmer to 
leave the specification of his data set 
requirements until he is ready to execute 
his program, and enables him to relate the 
file in his program to different data sets 
on different occasions. Some data set 
information can be given in the PL/I 
ENVIRONMENT attribute rather that in a DD 
Statement. 


Information being passed 
to program IEMAA 
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An EXEC Statement 


Figure 1-2. 
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Chapter 3 discusses the creation and 
access of simple data sets; Chapter 9 is a 
complete discussion of data management for 
a PL/I program. 


DELIMITER STATEMENT 


The delimiter statement consists of the 
characters /* in card columns 1 and 2. It 
separates data in the input stream from the 
job control statements that follow the 
data. Data in the input stream is usually 
preceded by a DD statement with the operand 
*, for example: 


//SYXSIN DD ж 


If the data includes cards that have // in 
the first two columns, it is preceded by a 
DD statement with the operand DATA, for 
example: 


//SYSIN DD DATA 


Executing a PL/I Program 


A job consists of one or more job steps, 
and each job step normally uses one or more 
data sets. Thus the sequence of job 
control statements for a single job 
comprises a JOB statement followed by the 
EXEC and DD statements for each job step. 
Figure 1-4 illustrates such a sequence; it 
has been simplified by omitting all the 
parameters in the various statements. 


The execution of a PL/I program requires 
two or three job steps: 


1. Compilation: The compiler converts the 
PL/I statements into machine 
instructions, which form an object 
module. 


2. Link-editing or link-loading: The 
linkage editor processes the object 
module produced in step 1, and forms 
it into a load.module that can be 
executed. The linkage loader converts 
the object module into a load module 
and executes it. 


3. Execution: The load module formed by 
the linkage editor is loaded into main 
storage and executed. 


The sequence of job control statements 
in Figure 1-4 might be used for compiling, 
link-editing, and executing a PL/I program. 


The JOB statement would probably have to 
include certain parameters required by the 


installation. The parameters needed and 
the values used with them vary from 
installation to installation; it is your 
responsibility to supply the correct 
information in this statement. 


The EXEC statement for the first job 
step (named PL1L) requests the execution of 
the program IEMAA, the PL/I (F) compiler; 
the DD statements defining the data sets 
required for this step follow the EXEC 
Statement.  SYSPRINT and SYSIN refer to the 
printer and the card reader, respectively, 
as they do in the other job steps. The 
object module produced by the compiler is 
placed in the data set identified by 
SYSLIN. SYSUT1 and SYSUT3 define data sets 
used as workfiles. 


The second EXEC statement (LKED) causes 
program IEWL, the linkage editor, to be 
executed. The linkage editor finds its 
primary input (the object module) in the 
data set referred to by the DD statement 
named SYSLIN; it may seek further input 
from the private library identified by 
SYSLIB. The load module produced by the 
linkage editor is placed in the data set 
identified by SYSLMOD. SYSUT1 defines a 
data set used as a workfile. 


The last EXEC statement (GO) requests 
the execution of the load module created by 
the linkage editor in the previous step; а 
special form of the PGM parameter is used 
for this. 


"The sequence of job control statements 
using the linkage loader is shown in Figure 
1-5. 


Cataloged Procedures 


Often the same set of job control 
Statements is used over and over again (for 
example, to specify the compilation, 
link-editing, and execution of many 
different PL/I programs). To save 
programming time and to reduce the 
possibility of error, sets of standard 
series of EXEC and DD statements can be 
prepared once and 'cataloged' in a system 
library; such a set of statements is termed 


a cataloged procedure. 


To retrieve a cataloged procedure, an 
EXEC statement is used in which the first 
parameter (PROC-) names the procedure. The 
effect is the same as if the job control 
Statements of the cataloged procedure 
appeared in the job stream in the place of 
the EXEC statement that calls the 
procedure. In such an EXEC statement, the 
keyword PROC can be omitted; the name of 
the procedure stands alone as if it were a 
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Name of DD Name of Type of device 


statement data set (2400 series Record format 
magnetic tape 
drive) 
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Figure 1-3. А DD Statement (Using a Continuation Card) 


positional parameter. For example, the // EXEC PROC=PL1ILFCLG 
following EXEC statements have the same 
effect: // EXEC PLILFCLG 
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The job control statements in Figure 1-4 
(apart from the JOB statement and the DD 
statements named SYSIN) are the same as 
those in the cataloged procedure PLÍLFCLG. 
You can use this cataloged procedure, which 
is supplied by IBM, for compiling, 
link-editing, and executing a PL/I program. 
Chapter 2 illustrates the use of PLILFCLG. 
Chapter 8 is a complete discussion of 
cataloged procedures; it describes the IBM 
cataloged procedures for PL/I and tells you 
how to modify them and how to catalog your 
own procedures. 


//EXAMPLE JOB 

//PLiL EXEC PGM=IEMAA 
//SXSPRINT DD 
//SYSLIN DD 

//SYSUT1 DD 

//SXSUT3 DD 

//SYSIN DD * » First job 
step 


Start of job 


— алына — «мәк» «ні 


Cards containing PL/I source 
statements come here 


/* 
//LKED EXEC PGM-IEWL 
//SYSLIB DD 
//SXSLMOD DD » Second job 
//SYSUT1 DD step 
//SYXSPRINT DD 

//SYSLIN DD 

//GO EXEC PGM-*.LKED.SYSLMOD 
//SYSPRINT DD 

//SYSIN DD ж 


-maj ko om oem mne t 


— — — әй а кеме нә 


Cards containing data to > Third job 

be processed by the PL/I | step 

program come here | 

/% ! 

//NEXT JOB Start of next 
z job 

Figure 1-4. Typical Sequence of Job 

Control Statements for 

Compile, Link-Edit, and 

Execute Steps 


//EXAMPLE JOB 

//PLiL EXEC PGM=IEMAA 
//SYSPRINT DD 
//SYSLIN DD 

//SYSUT1 DD 

//SYSUT3 DD 

//SXSIN DD * 


Start of job 


— == — —— oan 


» First job 
step 

Cards containing PL/I source 

Statements come here 


| 
| 
| 
| 
/* 1 
//GO EXEC PGM-LOADER 1 
//SXSLIB DD. | 
//SYSLIN DD | 
//SYSLOUT DD | 
//SYSPRINT DD | 
//SYSIN DD * | 
> Second job 

Cards containing data to | step 
be processed by the PL/I | 
program come here | 
| 

1 


/* 
//NEXTJOB JOB Start of next 


А job 
Figure 1-5. Typical Sequence of Job 
Control Statements for Compile 
and Load-and-Execute Steps 


If a procedure is programmer-written, it 
can be tested as an in-stream procedure 
before it is placed in the procedure 
library. An in-stream procedure is a 
series of job control statements enclosed 
between а PROC and а PEND statement 
appearing in the job stream. An in-stream 
procedure can be executed any number of ` 
times during a job and has the same content 
restrictions as a cataloged procedure. For 
further information about in-stream 
procedures, refer to the publication IBM 


System/360 Operating System: Job Control 
Lanquage Reference. 
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Chapter 2: How to Runa Simple PL/I Progam 


For a PL/I program that uses only 
punched-card input and printed output, the 
job control statements shown in Figure 2-1 
are sufficienti. Appendix A includes an 
example of a simple PL/I program that uses 
these statements. 


//EXAMPLE JOB 
// EXEC PLILFCLG 
//PLlL.SYSIN DD * 


Insert here the cards 
containing your PL/I 
source statements. 


/* 
//GO.SYSIN DD * 
If your program 


Insert here the cards requires no 
containing the data to external data, 
be processed by your omit these 
program. statements. 

/* 


Figure 2-1. Job Control Cards for the 
Execution of a Simple PL/I 
Program 


Job Control Statements 


// EXAMPLE JOB 
EXAMPLE is the name of the job. Your 
job.name must not have more than eight 
alphameric or national characters; the 
first character must be alphabetic or 
national. No parameters are given for 


this statement. If any are needed they 


will depend on your installation; the 
minimum requirement is probably an 
account number and your name. Before 
writing the JOB statement, ensure that 
you are familiar with the conventions 
established by your installation for 
the JOB statement and its parameters. 


// EXEC PLILFCLG 
PLILFCLG is the name of a cataloged 
procedure supplied by IBM. When the 
job scheduler encounters the name of 
such a procedure in an EXEC statement, 
it substitutes for the EXEC statement a 
series of job control statements that 
have been written previously and 
cataloged in a system library. The 


4chapter 9 contains a complete discussion 
of data management. 
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cataloged procedure PLILFCLG contains 
three job steps: 


PL1L: The PL/I (F) compiler processes 
your source statements and 
translates them into a set of 
machine instructions (an object 
module). 


LKED: The linkage editor creates a 
load module from the object 
module produced by the compiler. 
A load module is a series of 
machine instructions that are in 
a form suitable for loading into 
main storage and subsequent 
execution; only load modules can 
be loaded and executed. 


GO: The load module created in step 
LKED is loaded into main storage 
and executed. 


//PL1L.SYSIN DD * 
This statement indicates that the data 
to be processed in step PL1L follows 
immediately in the card deck.  SYSIN is 
the name that the compiler uses to 
refer to the device on which it expects 
to find this data. (In this instance, 
the device is the card reader, and the 
data is your PL/I program.) 


/* | 
This signifies the end of the data. 


//GO.SYSIN DD * 
This statement indicates that the data 
to be processed by your program (in 
step GO) follows immediately in the 
card deck. 


/* 
This statement marks the end of the 
. data to be processed by your program. 


Note: You could have used the IBM cataloged 
procedure PLILFCG in place of PLILFCLG. 
This procedure consists of two job steps: 


PLIL: The PL/I (F) compiler processes the 
source statements and produces an 
object module. 


GO: The object module is converted to a 
load module, loaded into main 
Storage and executed. 


FURTHER INFORMATION 


Chapter 8 describes the cataloged procedure 
PLILFCLG and other PL/I cataloged 
procedures supplied by IBM. Chapters 5, 6, 
and 7 deal with the job steps (compile, 
linkage, and execute) that are included in 
PLILFCG and PL1LFCLG. 
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Chapter 3: How to Create and Access a Simple Data Set 


A data set is any collection of data in 
auxiliary storage that can be created or 
accessed by a program. It can be punched 
onto cards or a reel of paper tape; or it 
can be recorded on magnetic tape or on a 
direct-access device such as a magnetic 
disk or drum. A printed listing can also 
be a data set, but it cannot be read by a 
program. 


Data sets that are created or accessed 
hy PL/I programs must have one of three 
types of organization: CONSECUTIVE, 
INDEXED, or REGIONAL or must be a 
teleprocessing data set. The items of data 
in INDEXED and REGIONAL data sets are 
arranged according to 'Keys' that you 
supply when you create the data sets. 
CONSECUTIVE data sets do not use keys; when 
you create such a data set, data items are 
recorded consecutively in the order in 
which you present them. You can read the 
data items from a CONSECUTIVE data set only 
in the order in which they were presented 
Or, in the case of a data set on magnetic 
tape, in the order in which they were 
presented or in the reverse order. 
Teleprocessing data sets are organized as 
consecutive groups of data items. 


This chapter explains how to create and 
access simple CONSECUTIVE data sets stored 
on magnetic tape or on a direct-access 
device. It is intended to provide an 
introduction to the subject of data 
management, and to meet the needs of those 
programmers who do not require the full 
input/output facilities of PL/I and IBM 
System/360 Operating System. Chapters 9, 
10, and 11 contain a full explanation of 
the relationship between the data 
management facilities provided by PL/I and 
those provided by the operating system. 


Using a Data Set 


TO create or access a data set, you must 
not only include the appropriate input and 
output statements in your PL/I program, but 
you must also supply certain information to 
the operating system in a DD statement. A 
DD statement describes a data set and 
indicates how it will be handled; the 
information it supplies enables the job 
scheduler to allocate the necessary 
auxiliary storage devices, and permits the 
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compiler to use the data management 
routines of the operating system to 
transmit data. 


ІВМ System/360.Operating System: PL/I 


(F) Language Reference Manual describes the 
input and output statements that you will 


need to use in your PL/I program. 
Essentially, you must declare a file 
(explicitly or contextually) and open it 
(explicitly or implicitly) before you can 
begin to transmit data. A file is the 
means provided in PL/I for accessing a data 
set, and is related to a particular data 
set only while the file is open; when you 
close the file, the data set is no longer 
available to your program. This 
arrangement allows you to use the same file 
to access different data sets at different 
times, and to use different files to access 
the same data set. 





Contextual declaration and implicit 
opening are performed, where required, in 
any of the input/output statements GET, 
PUT, READ, WRITE, LOCATE, and REWRITE. 


You must provide a DD statement for each 
data set that you will use in each job 
step. If you use the same data set in more 
than one job step, each step which refers 
to that data set must have a DD statement 
for the data set. 


If you are using a cataloged procedure, 
such as PLILFCG or PLILFCLG (described in 
Chapter 2), the DD statement for any data 
set processed by your program must appear 
in job step GO, in which your program will 
be executed. To signify its inclusion in 
this job step, you must prefix the name of 
the DD statement with the name of the job 
step. (For example, //GO.LIST DD... would 
indicate a DD statement named LIST in step 
GO.) The DD statement for the data set in 
the input stream (e.g., GO.SYSIN), if it is 
used in a PCP system, must be the last DD 
Statement in your card deck. 


How to Create a Simple Data Set 


When you create a new data set, you should 
supply the following information to the 
operating system: 


Parameter of 
DD Statement 
Type of output device that UNIT= 
will write or punch your 
data set. 
Serial number of the volume VOLUME-SER- 
(tape reel, disk pack, 
etc.) that will contain 
your data set. 


Name of your data set. DSNAME- 


Format of the records in DCB 
your data set. 

Amount of auxiliary storage SPACE- 
required for your data set 
(direct-access devices 
only). 

Disposition of your data set DISP- 
at the end of the job step. 


Note: You can use the abbreviations VOL for 
VOLUME and DSN for DSNAME. 


To give this information in the DD 
Statement, use the parameters listed above. 
Appendix B contains a description of these 
parameters; the following paragraphs 
discuss their use in creating a CONSECUTIVE 
data set. Figure 3-1 summarizes this 
discussion. | 


ТҮРЕ OF OUTPUT DEVICE (UNIT=) 


You must always indicate the type of output 
device (magnetic tape or disk drive, card 
punch, printer, etc.) that you want to use 
to create your data set. Usually the 
simplest way to do this is to use the UNIT 
parameter, although for a printer or a card 
punch it is often more convenient to use 
one of the special forms of DD statement 
discussed at the end of this chapter. 


In the UNIT parameter, you can specify 
either the type number of the unit (for 
example, 2311 for a disk drive) or the name 
of a group of devices (for example, SYSDA 
for any direct-access device). Appendix B 
includes a list of the valid type numbers; 
the group names are established for a 
system during system generation. 


VOLUME SERIAL NUMBER (VOLUME=SER=) 


A unit of auxiliary storage such as a reel 
of magnetic tape or a magnetic disk pack is 
termed a volume; a volume can contain one 
or more data sets, and a data set can 
extend to more than one volume. Each 
volume is identified by a serial number 
that is recorded within it (and usually 
printed on the label attached to it). 
Although a deck of cards, a printed 
listing, and a reel of paper tape can be 
considered to be volumes, they do not have 
serial numbers. 


pneri ge ны quem ed Em eee arte Nee nn аана еа ee 1 
| | Parameters of.DD Statement | 
| Storage Device ааа Т---------------------ұ--------------...... 1 
[ ` | When required | What you must state T Parameters | 
}------~-------------- %--------------------- і--------------------- І--------------------- 1 
| | | Output device | UNIT= or SYSOUT= | 
| А11 | Always Ы-------------------- --------------------4 
| | | Block size | DCB=BLKSIZE= | 
-Һ--------------------- %--------------------- %---------------------1--------------------- 1 
| Direct access only | Always | Auxiliary storage | SPACE= | 
| | | space required | 21 
-Һ--------------------- %--------------------- і%--------------------- --------------------- 1 
| | Data set to be used | | | 
| | by another job step | Disposition | DISP- | 
| | but only required | | | 
| | by this job | | | 
| Direct access апа I--------------------—- іфв--------------------- %Ф--------------------- 1 
| standard labeled | Data set to be kept | Disposition | DISP= | 
| magnetic tape | after end of job E--7----7--7-7-7-7----------d--------------------- 1 
| | | Name of data set | DSN= | 
| }-------------------— %---------------------і1--------------------- 1 
| | Data set to be on | Volume serial number| VOL=SER= | 
| | particular volume | | | 
ҒБ--------------------- dolci рылады EE Raper pen a сатады ырымды a is eee ie ee eS 1 
|*Alternatively, you can specify the block size in your PL/I program by using the | 
| ENVIRONMENT attribute. | 
Ee Spas eee enna ada re ЫЫЫ" a E ea 
Figure 3-1. Creating a CONSECUTIVE Data Set: Essential Parameters of DD Statement 
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You need specify a volume serial number 
only if you want to place the data set ona 
particular volume. If you omit the VOLUME 
parameter, the job scheduler will print in 
your program listing the serial number of 
the volume on which it placed the data set. 


The VOLUME parameter has several 
subparameters. To specify a volume serial 
number, you need only the SER (serial 
number) subparameter (for example 
VOLUME=SER=12354). 


NAME OF DATA SET (DSNAME=) 


You must name a new data set if you want to 
keep it for use in future jobs. If the 
data set is temporary (required only for 
the job in which it is created), you can 
still name it, but you need not; if you 
omit the DSNAME parameter, the operating 
system will assume that the data set is 
temporary, and will give it a temporary 
name. (Any name you give to a temporary 
data set must be prefixed with the 
characters &&; for example, DSNAME-&£&&TEMP.) 


FORMAT OF THE RECORDS (DCB-) 


You can give record-format information 
either in your PL/I program (ENVIRONMENT 
attribute or LINESIZE option) or in a DD 
Statement. This discussion refers only to 
the DD statement, and does not apply if you 
decide to give the information in your 


program; refer to ТЕМ System/360 Operating 


System: PL/I (Е) Language Reference -Manual 
for a description of the ENVIRONMENT 


attribute and the LINESIZE option. 


The records in a data set must have one 
of three formats: F (fixed length), V 
(variable length), U (undefined length). 
F-format and V-format records can be 
blocked or unblocked; V-format records can 
be spanned. 


In most cases, you must specify a block 
size. If you do not give a record size, 
unblocked records of the same size as the 
block size are assumed. Note that, if you 
are using a PRINT file to produce printed 
output, you do not need to specify a block 
size in your DD statement or in your PL/I 
program; in the absence of other 
information, the compiler supplies a 
default line size of 120 characters. If 
you do not state the record format, 
U-format is assumed (except for data sets 
associated with PRINT files, for which 
V-format is the default). 


24 


To give record-format information ina 
DD statement, use the subparameters RECFM 
(record format), BLKSIZE (block size), and 
LRECL (logical record length) of the DCB 
parameter. The DCB parameter passes 
information to the operating system for 
inclusion in the data control block, which 
is a table maintained by the data 
management routines of the operating system 
for each data set in a job step; it 
contains a description of the data set and 
how it will be used. If your DCB parameter 
includes more than one subparameter, you 
must enclose the list in parentheses. For 
example: 


DCB- (RECFM-FB, BLKSIZE-1000,LRECL-50) 


AUXILIARY STORAGE REQUIRED (SPACE-) 


When you create а data set оп a | 
direct-access device, you must always 
indicate the amount of space that the data 
set will occupy. Use the SPACE parameter 
to specify the size and number of the 
blocks that the data set will contain. If 
you may want to extend the data set in a 
later job or job step, ensure that your 
original space allocation is sufficient for 
future needs; you cannot make a further 
allocation later. If the SPACE parameter 
appears in a DD statement for a 
non-direct-access device, it is ignored. 


DISPOSITION OF DATA SET (DISP-) 


If you want to keep a data set for use in a 
later job step or job, you must use the 
DISP parameter to indicate how you want it 
to be handied. You can pass it to another 
job step, keep it for use in a later job, 
or enter its name in the system catalog. 

If you want to keep the data set, but do 
not want to include its name in the system 
catalog, the operating system will request 
the operator to demount the volume in which 
it resides and retain it for you. If you 
do not include the DISP parameter, the 
operating system will assume that the data 
set is temporary and will delete it at the 
end of the job step. 


The DISP parameter can contain three 
positional subparameters. The first 
indicates whether the data set is new or 
already exists, the second specifies what 
is to be done with it at the end of the job 
Step, and the third indicates how it should 
be treated if the job step is terminated 
abnormally by the operating system. If you 
omit either of the first two, you must 
indicate its absence by a comma. 


For example, 
DISP=(, CATLG , DELETE) 


indicates that the data set is to be 
cataloged if the job step terminates 
normally, and deleted if it is terminated · 
abnormally; the omission of the first 
subparameter indicates that the data set is 
assumed by default to be new. 


How to Access an Existing Data Set 


When you want to read or update an existing 
data set, your DD statement should include 
information similar to that given when the 
data set was created. However, for data 
sets on labeled magnetic tape or on 
direct-access devices, you can omit several 
parameters because the information they 
contain was recorded with the data set by 
the operating system when the data set was 
created. Figure 3-2 summarizes the 
essential information. 


Except in the special case of data in 
the input stream (described below), you 
must always include the name of the data 
set (DSNAME) and its disposition (DISP). 


TYPE OF INPUT DEVICE 


You can omit the UNIT parameter if the data 
set is cataloged or if it was created with 
DISP=(,PASS) in a previous step of the same 


VOLUME SERIAL NUMBER 


You can omit the VOLUME parameter if the 

data set is cataloged or if it was created 
with DISP-(,PASS) in a previous step of the 
same job. Otherwise it must always appear. 


NAME OF DATA SET 


The DSNAME parameter can either refer back 
to the DD statement that defined the data 
set in a previous job step, or it can give 
the actual name of the data set. (You 
would have to use the former method to 
refer to an unnamed temporary data set.) 


FORMAT OF THE RECORDS 


You must always state a block size for 
punched cards or paper tape; otherwise, 
record-format information is not required. 
Block size can also be specified in your 
PL/I program, using the ENVIRONMENT 
attribute. 


AUXILIARY STORAGE REQUIRED 


You cannot add to, or otherwise modify, the 
space allocation made for a data set when 
it was created. Accordingly, the SPACE 
parameter is never required in a DD 


job. Otherwise, it must always appear. Statement for an existing data set. 

noma 2 UE i MMC E E EE и M I лады C CM IM MEME MD CM LOC CN RCM CCS LIED CELA 1 
| Parameters of DD Statement | 
_----------—_------------—_-----—----т---_—--------—-----—----—--—- oS ee 1 
| When required 1 What you must state | Parameters | 
------------------------------------4------------------------- %------------------------ 1 
| | Name of data set | DSN= | 
| Always Ғ------------------------4------------------------- 1 
| | Disposition of data set | DISP= | 
------- --------- т----------------- %-------------------------і--- ---------------------- 1 
| [А11 devices | Input device | UNIT= | 
|If data set not  |[----------------- р------------------------- іф------------------------- 1 
| cataloged |Magnetic tape and| Volume serial number | VOL=SER= | 
| {direct access | | | 
----------------- 1-----------------|-------------------------”------------------------1 
|For punched cards or paper tape | Block sizet | DCB=BLKSIZE= | 
severe E ыы ы 1...........---------------1......-------------------4 


|*Alternatively, you can specify the block size in your PL/I program by using the | 


| ENVIRONMENT attribute. 


Figure 3-2. Accessing a CONSECUTIVE Data Set: Essential Parameters of DD Statement 
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DISPOSITION OF DATA SET 


You must always include the DISP parameter 
to indicate to the operating system that 
the data set already exists. Code DISP=SHR 
if you want to read the data set, DISP=OLD 
if you want to read and/or overwrite it, or 
DISP=MOD if you want to add records to the 
end of it. 


You need not code the second term of the 
DISP parameter if you want the data set to 
resume the status it had before the job 
step; existing data sets will continue to 
exist, and newly created data sets will be 
deleted. 


SPECIAL-PURPOSE PARAMETERS 


Three parameters of the DD statement have 
special significance in that they permit 
you to use a very simple form of DD 
Statement; they are SYSOUT, which is 
particularly useful for printed or 
punched-card output, and *, and DATA, which 
allow you to include data in the input 
stream. 


SYSTEM OUTPUT (SYSOUT-) 


A system output device is any unit (but 
usually a printer or a card punch) that is 
used in common by all jobs. The computer 
operator allocates all the system output 
devices to specific classes according to 
device type and function. The usual 
convention is for class A to refer to a 
printer and class B to a card punch; the 
IBM-supplied cataloged procedures assume 
that this convention is followed. 


TO route your output via a system output 
device, use the SYSOUT parameter in your DD 
statement. The only essential additional 
parameter is the block size (if not already 
specified in your PL/I program by using the 
ENVIRONMENT attribute). Thus, if you want 
to punch cards, you can use the DD 
Statement 


//GO.PUNCH DD SYSOUT-B,DCB-BLKSIZE-80 


DATA IN THE INPUT STREAM 


A convenient way to introduce data to your 
program is to include it in the input job 
stream with your control statements. Data 
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in the input stream must, like job control 
Statements, be in the form of 80-byte 
records (usually punched cards), and must 
be immediately preceded by a DD statement 
with the single parameter * in its operand 
field, for example: 


//GO.SYSIN DD * 


To indicate the end of the data, include a 
delimiter job control statement (/*). A DD 
Statement that introduces data in the input 
Stream must be the last DD statement in the 
job step. 


If your data includes records that 
commence // in the first two columns use 
the parameter DATA, for example: 


//GO.SYSIN DD DATA 


Standard Files 


PL/I includes two standard files, SYSIN for 
input and SYSPRINT for output. If your 
program includes a GET statement without 
the FILE option, the compiler inserts the 
file name SYSIN; if it includes a PUT 
Statement without the FILE option, the 
compiler inserts the name SYSPRINT. 


If you use one of the IBM-supplied 
cataloged procedures to execute your 
program, you will not need to include a DD 
Statement for SYSPRINT; step GO of the 
cataloged procedures includes the 
Statement: 


//SYSPRINT DD SYSOUT-A 


Note that no block size is specified in 
this DD statement; the block size for the 
data set associated with SYSPRINT is 
supplied by the (F) compiler. However, if 
your program uses SYSIN, either explicitly 
or implicitly, you must always include a 
corresponding DD statement. 


Examples 


The examples of simple applications for 
CONSECUTIVE data sets shown in Figures 3-3 
and 3-4 should need no further explanation. 
The first program evaluates the familiar 
expression for the roots of a quadratic 
equation and records the results in a data 
set on magnetic disk and on punched cards. 
The second program reads the disk data set 
created in the first and prints the 
results. 


7/2001РСЕХ JOB 
// EXEC PLILFCLG 
//PLAL.SYSIN DD +*+ 
CREATE: PROC OPTIONS(MAIN); 
DCL PUNCH FILE STREAM OUTPUT, 
DISK FILE RECORD OUTPUT SEQUENTIAL, 
1 RECORD, 2(A,B,C,X1,X2) FLOAT DEC(6) COMPLEX; 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(PUNCH), FILE(DISK); 
NEXT: GET FILE(SYSIN) LIST(A,B,C); 
X1=(-B+SQRT (B**2-U*A*C)) / (2*A) ; 
X2- (-B-SQRT (B**2-1*A*C) )/ (2*A) ; 
PUT FILE(PUNCH) EDIT(RECORD) (C(E(16,9))); 
WRITE FILE(DISK) FROM(RECORD); 
GO TO NEXT; 
FINISH: CLOSE FILE(PUNCH), FILE(DISK) ; 
END CREATE; 
/% 
//GO. PUNCH DD SYSOUT=B, DCB=BLKSIZE=8 0 
//GO.DISK DD. UNIT=2311, VOLUME=SER=D18 6 ,DSNAME=ROOTS, 
/” DCB= (RECFM-FB, BLKSIZE=400,LRECL=40), 
/ SPACE- (TRK, (1,1) ) ,DISP- (NEW, KEEP) 
//GO. SYSIN DD ж 
5 12 4 
ц -10 4 
5 16 2 
4 -12 10 
5 12.9 
29 -20 4 
/* 


Figure 3-3. Creating a Simple CONSECUTIVE Data Set 


//J027PGEX JOB 
//COLEEX EXEC PLILFCLG 
//PLiL.SYSIN DD * 
ACCESS: PROC OPTIONS (МАІМ); 
DCL RESULTS FILE RECORD INPUT SEQUENTIAL, 
1 RECORD, 2(A,B,C,X1,X2) FLOAT DEC(6) COMPLEX; 
ON ENDFILE(RESULTS) GO TO FINISH; 
PUT FILE(SYSPRINT) EDIT('A','B','C',*X1',"'X2') 
(x (7.2 , 3(A,xX (2322) ,A,X(22) ,22 ; 
OPEN FILE(RESULTS); 
NEXT: READ FILE(RESULTS) INTO(RECORD); 
PUT FILE(SYSPRINT) SKIP EDIT(RECORD) (C(F(12,2))); 
GO TO NEXT; 
FINISH: CLOSE FILE(RESULTS); 
END ACCESS; 
/% 
//GO.RESULTS DD UNIT=2311, VOLUME=SER=D186, DSNAME=ROOTS, DISP= (OLD, KEEP) 


Figure 3-4. Accessing a Simple CONSECUTIVE Data Set 
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Introduction 


The operating system requires certain 
preliminary information about a job in 
order to be able to process it. For 
example, it must be able to recognize the 
beginning and end of a job, and it requires 
details of the job environment (for 
example, which control program is used). 
Most of this information is provided in the 
job control language; the remainder is 
either information already known to the 
operator because it is established for your 
installation, or information you will have 
to give the operator for your particular 
job. For example, if you have a choice of 
control programs, you must tell the 
operator which one you want. 


The information given in the job control 
language is provided in the JOB statement 
and its parameters. The JOB statement 
indicates the beginning of a job and (in 
batch processing) the end of a previous 
job; the parameters provide information 
about the job environment. Full details of 
the purpose and syntax of this statement 


are given in IBM System/360 Operating 
System: Job Control -Language User's Guide, 


and Job Control Language Reference. The 
use of the JOB statement and its parameters 


is described briefly here, together with 
job scheduling and the types of control 
program available. 


JOB Statement 


The JOB statement is always the first 
statement in your job. It identifies the 
job to the operating system; in particular, 
it identifies the job to the job scheduler 
so that the latter can begin job 
processing. The job scheduler has three 
main components: 


1. Reader/interpreter: This checks the 
job control language and (if required) 
‘stores the data from the input stream 
on a direct-access device and places 
control information about the job in 
an input queue. 


2. Initiator/terminator: This selects the 
next job step for execution, and 
allocates devices and resources. 

After processing, it terminates the 
job step. After processing of the 
last job step, it terminates the job. 
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3. Output writer (МЕТ or МУТ): This 
handles the transmission of data from 


output data sets to a system output 
device (such as a printer or a 
card-punch). 


The JOB statement also provides 
information on: 


1. Work control; for example, accounting 
information and the programmer's name. 


2. Job environment; for example, 
information relating to the control 
program under which the job will be 
executed. 


^ 
Note that the JOB statement does not select 
the control program for you; it merely 
allows you to specify information required 
by the control program you are using. The 
information to be given in the job 
Statement fields is described below. 


Name Field 


A valid job name must appear in this field. 
Certain words must not be used as job names 
as they are command statements used by the 
operator to communicate with the operating 
System. Examples of these are SPACE and 
JOBNAMES; .you must find out whether these 
or other names are used as command 
Statements at your installation. 


Jobs being executed concurrently should 
have different job names. 


Operation Field 


The word JOB must appear in this field. 


Operand Field 


The full set of positional and keyword 
parameters used with the JOB statement is: 


Positional 
Accounting information 


Programmer's name 
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Keyword 


CLASS 
COND 
MSGCLASS 
MSGLEVEL 
PRTY 
REGION 
ROLL 
TYPRUN 


The use of these is discussed in the IBM 


System/360 Operating System: Job Control 
Language Reference. 


Although all these parameters are 
optional as far as the operating system is 
concerned, some or all of them will be 
mandatory at your installation, and some 
will not be available to you. Therefore, 
before using any of them, you need to know: 


1. Which parameters are mandatory at your 
installation. — 


2. Which parameters are optional at your 
installation. 


3. What happens if you omit an optional 
parameter that is required for a 
particular job. If there is no 
default for this parameter, the job 
could terminate at this point. 


5. What happens if you include an 
optional parameter that is not 
required for a particular job. The 
parameter might be ignored or the job 
could terminate. 


Note: The examples given in this manual 
omit the parameters of the JOB statement 
because of this installation dependence. 


Job Scheduling 
JOB SCHEDULING AND THE CONTROL PROGRAM 


The operating system uses one of two forms 
of scheduling to process your job: 
sequential scheduling or priority 
scheduling. The type of scheduling 
employed for your job depends on the 
control program used. 
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Sequential Scheduling 


Each job is processed in the order in which 
it exists in the input stream. Only one 
job at a time can be processed; all other 
jobs in the input stream must wait until 
this job is finished. Each job is executed 
as a single task. 


Sequential scheduling is used by the 
primary control program (PCP). 


Priority Scheduling 


The jobs in the input stream are placed in 
input queues and selected for processing 
according to previously determined 
priorities. Jobs are processed in a 
multiprogramming environment, that is, 
several jobs can be processed concurrently. 
Each job step can be executed as a single 
task or as several tasks: 


1. One job step, one task: Each job step 
is executed as a task. The number of 


tasks that can exist concurrently is 
fixed, and is restricted to the number 
selected for execution (that is, tasks 
cannot be created during execution of 
the job step). 


Jobs are processed in this way with 
the MFT (multiprogramming with a fixed 
number of tasks) control program. 


2. One.job step, several tasks: Each job 
step is executed as a task. 


Additional tasks (subtasks) can be 
created dynamically during execution 
of the job step. Therefore the number 
of tasks that can exist concurrently 
is variable, and depends on the number 
of subtasks created. 


Jobs are processed in this way with 
the MVT (multiprogramming with a 


variable number of tasks) control 
program. 


Control Program 


The three control programs currently 
available in the operating system are: 


PCP 
МЕТ 


МУТ 


Your installation may have only one of 
these control programs, or it may have two 
or all of them. You must find out which 
control program or programs are available 
to you and design your source program 
accordingly. To assist you in the choice 
(if you have one), a brief description of 
each control program is given below, 
together with the set of JOB statement 
parameters applicable to that program. 
Further details of the control programs are 
contained in the following publications: 


IBM System/360 Operating System: 
Concepts and Facilities 


Operator's Reference 


Operator's Procedures 
St 


orage Estimates 


PRIMARY CONTROL PROGRAM (PCP) 
JOB Statement Parameters 


Accounting information 
Programmer's name 
COND 


MSGLEVEL 


Input 


The job stream is read in from a card or 
tape device, and is loaded into main 
Storage. Only one input reader is 
available at one time. 


Job Selection 


Only one job can be processed at a time. 
The whole of main storage and all resources 
are allocated to that job; no other job can 
gain control until this job has completed 
execution. 


Task Execution 


The job scheduler programs are executed as 
tasks; each job step of the job to be 
processed is executed as part of a job 


scheduler task. These job steps are 
executed sequentially. 


Output 


System output is put out through the SYSOUT 
stream; problem program output can be put 
out through the SYSOUT stream or a user 
data set. Up to eight output writers are 
available; each one writes one class of 
output onto one device (such as a printer). 
Each output class is designated by one of 
the letters A through Z. Class A is the 
Standard system output class; there must 
always be a device available for this 
class. 


MFT CONTROL PROGRAM 


JOB Statement Parameters 


Accounting information 
Programmer's name 
CLASS 

COND 

MSGCLASS 

SSGLEVEL 

PRTY 


TYPRUN 


Input 


The job stream is read from a card or a 
tape device, or from a direct-access 
device, and is stored on a direct-access 
device. If there is any error in the job 
control statements for a job, that job is 
terminated. Up to three input readers are 
available. 


Job Selection 


Jobs are placed in an input queue; up to 
fifteen input queues are available. The 
queue selected depends on the job class, as 
specified in the CLASS parameter of the JOB 
Statement. А job is placed in an input 
queue according to its priority, as 
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specified in the PRTY parameter of the JOB 
statement. 


A job with the highest priority is 
placed at the head of the queue; that with 
the lowest ағ the end. А job with a 
priority the same as a job already in the 
queue, is placed immediately behind that 
job. 


If a job is not given a priority, a 
default priority is given to it by the 
system, and it is placed in an input queue 
at the appropriate place. 


In MFT, main storage is divided into 
partitions. One partition is allocated to 
one job at a time. Partitions are 
independent units of main storage. The 
work being done in one partition cannot 
affect work being done in another 
partition; data cannot be left in a 
partition for use by the next job step to 
be loaded. 


Up to fifteen partitions are available 
for user jobs (there are other partitions 
but they are not available to you); 
therefore up to fifteen jobs can be 
processed concurrently. The number of 
partitions at a given time, and the size of 
each one, may be fixed for a particular 
installation, but usually both the number 
and size can be selected by the operator. 
The minimum size of a user partition is 8K 
bytes. You must find out the conventions 
on partitions at your installation. 


Partitions are arranged in order of 
priority. The partition with the highest 
main-storage address has the highest 
priority; partitions with successively 
lower addresses have successively lower 
priorities. А task is the work executed in 
a particular partition. Partitions, not 
job steps, compete for control; if a job 
step enters a wait state or completes 
execution, control passes to the partition 
waiting with the highest priority. Neither 
job class nor job priority have any affect 
on competition between tasks for control. 


The selection (by the initiator) of jobs 
for execution depends on the relationship 
between the partitions and the input queues 
(that is, the job classes). А partition 
can service up to three job classes; a job 
class can be allocated to more than one 
partition. If a partition services more 
than one job class, it searches those 
classes for jobs in a predetermined order. 
For example: 

Partitions: Highest priority РО 
P1 

P2 

Lowest priority P3 
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Class Job Class Job Class Job 
A 1 B 1 С 1 
2 2 2 
3 3 3 
Allocations: 
Class А: PO, Р1 
Class B: PO, P1, P2 
Class С: P2, P3 
Partition PO: A, B 
Partition P1: А,В 


Partition P2: В,С 
Partition P3: C 


In this configuration, when the job step 
in PO completes execution, class A is 
searched to see if there are any jobs 
waiting for selection. If there are not, 
class B is searched. Similarly P1 searches 
A and then B, P2 searches B and then C, and 
РЗ searches C only. A job in class А can 
be selected for PO or P1, whichever is the 
first available; a job in B can be selected 
for PO, P1 or P2, and a job in C for P2 or 
P3. 


Task Execution 


selected for 
steps are executed 
a job step enters a 


Once a job has been 
processing, its job 
sequentially. When 
wait state, control passes to the job step 
waiting in the next highest priority 
partition, irrespective of the job class of 
the waiting job step. 


Other Considerations 


Your installation may have the time-slicing 
facility. Execution time is divided 
(*sliced') into a number of discrete 
periods. One period is allocated to one 
job, the next period to another job, and so 
on, among all the jobs to be processed. 

The total execution time for one job is 
interleaved with that for other jobs, and 
thus all jobs are kept moving. Usually one 
particular class is reserved for 
time-sliced jobs; if your job is to be 
time-sliced you must find out the 
time-slicing class at your installation. 
Similarly, if you use the TYPRUN parameter, 
one class may be reserved for jobs whose 
processing 15 to be delayed. 


Xf your installation has a shared PL/I 
library, this could affect the amount of 
space available in a partition or even the 
partition size. 


Output 


The output stream from the job is stored 
temporarily on a direct-access device. The 
output data is stored in an output queue; 
each member of the queue is associated with 
an output class, as designated in the 
SYSOUT parameter. If system and problem 
program data are in the same class, they 
are placed in the queue member in the 
order: 


System messages at job initiation 


Problem program data 

System messages at job termination 
Up to 36 output queues are available. The 
contents of each output class are written 
out by a system output writer onto the 
device (printer, punch, or tape) associated 
with that class. Up to 36 system output 


writers are available; each output writer 
can service up to eight output classes. 


MVT CONTROL PROGRAM 
JOB Statement Parameters 


Accounting information 
Programmer's name 
CLASS 

COND 

MSGCLASS 

MSGLEVEL 

PRTY 

REGION 

ROLL - 


TYPRUN 


Input 


4 


The job stream is read from a card or a 
tape device, or from a direct-access 
device, and is stored on a direct-access 
device. If there are any errors in the job 
control statements for a job, that job is 
terminated. As many input readers as are 
required can read input streams. 


Job Selection 





Jobs are placed in a single input queue, 
and are arranged within the queue according 
to their priorities, as specified in the 
PRTY parameter of the JOB statement. 


A job with the highest priority is 
placed at the head of the queue; that with 
the lowest at the end. А job with a 
priority the same as a job already in the 
queue, is placed immediately behind that 
job. 


If a job is not given a priority, a 
default priority is given to it by the 
System, and it is placed in the input queue 
at the appropriate place. 


In MVT, main storage is divided into 
regions. The amount of storage required 
for a region is specified in the REGION 
parameter. The number of regions that can 
exist concurrently depends on the total 
size of main storage and on the region 
sizes specified. Each job is executed in 
one region. Regions are independent units 
of main storage; work being done in one 
region cannot affect work being done in any 
other region. Data cannot be left in a 
region for use by the next job step to be 
loaded. 


A region is not a permanent division of 
main storage. It exists only for the 
duration of the job step for which it was 
created. When a job is selected for 
execution, a region is created for it. A 
region does not have a priority and does 
not compete for control with other regions; 
such competition is between the tasks in 
the regions. 


The selection of jobs for execution from 
the input queue depends on the job class 
and priority. Jobs are queued in order of 
priority or, if they have equal or no 
priority, in order of arrival in the queue. 
Job class has no affect on job position in 
the input queue. Jobs are selected by one 
of several initiators. When an initiator 
is allocated to a job class, it selects 
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only the jobs in that class; the order of 
taking them is determined by the job 
‘priority. An initiator can be allocated to 
more than one job class, and will search 
‘the classes in predetermined order. Up to 
‘Fifteen job classes are available; the 
‘number of initiators depends on the number 
ОЁ job classes allocated to each one. 


,, Рок example, if there are three 
initiators: | 
Init(A) for jobs іп class А 
Init (B) B 
Init (С) с 


and there are eleven jobs in the input 
queue as follows: 


Job Class Priority 
B 10 
B 9 
A 8 
A 8 
B 7 
с 4 
A 3 
С 2 
с 1 
А 0 
А 0 


-then, when the job scheduler requires the 
next job for processing, if Init(A) is the 
‘first initiator to be given control, it 
ignores the two B jobs at the head of the 
;queue and selects the first A8 job. Тһе 
next time Init(A) receives control it 
‚selects the second A8 job (assuming the 
‘contents of the queue have remained the 

: same) and so on through all the class А 

i jobs: АЗ, А0, AO. When Init(A) cannot find 
any jobs to select, Init(B) is given 
.control and selects the class B jobs in the 
‚order: B10, B9, B7. Similarly, when 
.Init(C) receives control, it selects the 
class C jobs in the order: CH, C2, C1. 


More than two initiators can run 
together and one initiator can interrogate 
тоге than one class depending on the 
‘installation standards. 


‘Task Execution 


Once a job has been selected for 
: processing, its job steps are executed 
sequentially; each job step is a task. 
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Each task competes for control with all the 
other tasks being executed. Each task has 
a limit priority that depends on: 


1. The value in the PRTY parameter in the 
JOB statement. 


2. The value in the DPRTY parameter in 
the EXEC statement for that job step. 


3. If neither of these is specified, a 
default value is supplied by the job 
Scheduler. 


Each task also has a despatching 
priority; this can be changed during 
execution but cannot be greater than the 
limit priority. The tasks compete for 
control on the basis of the current values 
of their despatching priorities. Note that 
in MVT a priority can be specified on the 
EXEC statement; this does not affect the 
sequential execution of the job steps in a 
job but can affect considerably the chances 
of an existing task gaining control. 


Once a task is being executed, it can 
create subtasks dynamically.A subtask has a 
limit and despatching priority in the same 
way as the originating task, and competes 
for control with all the tasks and subtasks 
being executed. 


Other .Considerations 


If your installation has the time-slicing 
facility described above in 'MFT Control 
Program,' note that usually one particular 
priority is reserved for time-sliced jobs. 
Similarly, priorities are reserved for jobs 
whose processing is delayed by use of the 
TYPRUN parameter; and for the message 
control or message processing programs in 
teleprocessing. You must find out the 
conventions at your installation. If your 
installation has a shared PL/I library, 
this could affect the region size. Region 
sizes can be affected during execution by 
rollout/rollin. 


Output 


MVT output follows the same conventions as 
those for MFT output. If your installation 
has a universal character set (UCS) printer 
that will be used as an output writer, you 
must assign a separate output class to each 
character set image in the system library. 


Introduction 


The PL/I (F) compiler translates PL/I 
source statements into machine 
instructions. A set of machine 
instructions such as is produced by the 
compiler is termed an object module. (If 
appropriate control statements are inserted 
among the PL/I source statements, the 
compiler can create two or more object 
modules in a single run by means of batch 
compilation.) 


However, the compiler does not generate 
all the machine instructions required to 
represent the source program; instead, for 
frequently used standard routines such as 
those that handle the allocation of main. 
storage space and the transmission of data 
between main and auxiliary storage, it 
inserts references to standard subroutines 
that are stored in the PL/I subroutine 
library. An object module produced by the 
compiler is not ready for execution until 
the appropriate library subroutines have 
been included; this is the task of an 
operating system service program, the 
linkage editor or the linkage loader, which 
is described in Chapter 6. А module that 
has been processed by the linkage editor or 
linkage loader is termed a load module. 


While it is processing a PL/I source 
program, the compiler produces a listing 
that contains information about the source 
program and the object module derived from 
it, together with diagnostic messages 
relating to errors or other conditions 
detected during compilation. Much of this 
information is optional, and is supplied 
only in response to a request made by 
including appropriate 'options' in the PARM 
parameter of the EXEC statement that 
requests execution of the compiler. 


The compiler also includes a facility, 
the preprocessor or compile-time processor, 
which can modify the source statements or 
insert additional source statements before 
compilation commences. 


COMPILATION 


The compiler comprises a control module 
that remains in main storage throughout 
compilation, and a series of subroutines 
(termed phases) that are loaded and 
executed in turn under the supervision of 


Chapter B: Compilation 


the control module. Each phase performs a 
single function or a set of functions, and 
is loaded only if the services it provides 
are required for a particular compilation. 
The control module selects the appropriate 
phases in accordance with the content of 
the source program and the optional 
compiler facilities that you select. 
Figure 5-1 is a simplified flow diagram of 
the compiler. 


The data that is processed by the 
compiler is known throughout all stages of 
the translation process as text. 
Initially, the text comprises the PL/I 
source statements submitted by the 
programmer; at the end of compilation, it 
comprises the machine instructions that the 
compiler has substituted for the source 
Statements, to which is added some 
reference information for use by the 
linkage editor. 


The source 
of a data set 


program must be in the form 
identified by a DD statement 
with the name SYSIN; frequently, the data 
set is a deck of punched cards. The source 
text is passed to the read-in phase either 
directly or via one of two preprocessor 
phases: 


1. If the source text is in the PL/I 
48-character set, the 48-character-set 
processor translates it into the 
60-character set. You must indicate 
the need for translation by specifying 
the CHARA8 option.+ 


2. If the source text contains 
preprocessor statements, the 
compile-time-processor phase executes 
these statements in order to modify 
the source program or introduce 
additional statements. The 
compile-time processor includes a 
facility for translating statements 
written in the 48-character set into 
the 60-character set. To request the 
services of the compile-time 
processor, specify the MACRO option. 


Both preprocessors place the translated 
source text in the data set defined by a DD 
Statement with the name SYSUT3. The 
read-in phase takes its input either from 
this data set or from the data set defined 
by the DD statement SYSIN. This phase 


4The compiler options are discussed under 
'Optional Facilities,' later in this 
chapter. 
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igure 5-1. PL/I (F) Compiler: Simplified Flow Diagram 
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checks the syntax of the source statements 
and removes any comments and nonsignificant 
blank characters. 


After read-in, the dictionary phase of 
the compiler creates a dictionary that 
contains entries for all the identifiers in 
the source text. The compiler uses the 
dictionary to communicate descriptions of 
the elements of the source program and the 
. object program between phases. The 
dictionary phase of the compiler replaces 
all identifiers and attribute declarations 
in the source text with references to 
dictionary entries. 


Translation of the source text into 
machine instructions involves several 
compiler phases. The sequence of events 
iss 


1. Rearrangement of the source text to 
facilitate translation (for example, 
by replacing array or structure 
assignments with DO loops that contain 
element assignments). 


2. Conversion of the text from the PL/I 
syntactic form to an internal 
syntactic form. 


3. Mapping of arrays and structures to 
ensure correct boundary alignment. 


4. Translation of text into a form 
similar to machine instructions; this 
text form is termed pseudo-code. 


5. Storage allocation: the compiler makes 
provision for storage for STATIC 
variables and generates code to allow 
AUTOMATIC storage to be allocated 
during execution of the object 
program. (The PL/I library 
subroutines handle the allocation of 
storage during execution of the object 
program.) 


The final-assembly phase translates the 
pseudo-code into machine instructions, and 
then creates the external symbol dictionary 
(ESD) and relocation dictionary (RLD) 
required by the linkage programs. The 
external symbol dictionary is a list that 
includes the names of all subroutines that 
are referred to in the object module but 
аге not part of the module; these names, 
which are termed external references, 
include the names of all the PL/I library 
subroutines that will be required when the 
object program is executed. The relocation 
dictionary contains information that 
enables absolute storage addresses to be 
assigned to locations within the object 
module when it is loaded for execution. 
Chapter 6 contains a fuller discussion of 
the external symbol dictionary and the 


relocation dictionary, and explains how the 
linkage programs use them. 


Job Control Language for Compilation 


Although you will probably use cataloged 
procedures rather than supply all the job 
control statements required for a job step 
that invokes the compiler, it is necessary 
to be familiar with these statements so 
that you can make the best use of the 
compiler, and if necessary modify the 
Statements of the cataloged procedures. 


The IBM-supplied PL/I cataloged 
procedures for compilation are: 


PL1DFC Compile only (object module on 
punched cards). 

PLILFC Compile only (object module 
stored on magnetic-tape or 
direct-access device). 

PLILFCL Compile and link edit. 

PLILFCLG Compile, link edit, and 
execute. 

PLILFCG Compile, load, and execute. 


Chapter 8 describes these cataloged 
procedures and how to modify or override 
the statements they contain. | 


The following paragraphs describe the 
essential job control statements for 
compilation; they use statements from the 
PL/I cataloged procedures as examples. 
Appendix B contains a description of the 
parameters of the DD statement that are 
referred to. 


EXEC STATEMENT 


The basic EXEC statement is: 
// EXEC PGM-IEMAA 


By using the PARM parameter of the EXEC 
statement you can select one or more of the 
optional facilities offered by the 
compiler; these facilities are described 
later in this chapter. The use of the 
other parameters of the EXEC statement is 
as described in Chapter 7, 'Executing the 
Load Module'. DN 
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Standard Data Sets for Compilation 


Figure 5-2. 


DD STATEMENTS 


The compiler requires several standard data 
sets, the number depending on the optional 
facilities that you request. You must 
define these data Sets in DD statements 
with the standard names listed in Figure 
5-2. The DD statements SYSIN and SYSPRINT 
are always required, and you should take 
the precaution of including SYSUT1 in case 
insufficient main storage is available to 
the compiler. In addition, if you specify 
any of the options listed in Figure 5-2, 
you must include the associated DD 
Statement. 


Figure 5-3 summarizes the 
Characteristics of the compiler data sets. 
You can place any of them on a 
direct-access device; if it is likely that 
you will do so, include the SPACE parameter 
in the DD statements that define the data 
Sets. The amount of storage space 
allocated in the standard cataloged 
procedures (Chapter 8) should suffice for 
most applications; however, Appendix H 
explains how to calculate the requirements 
for auxiliary storage. 


Primary Input (SYSIN) 


The primary input to the compiler must be a 
CONSECUTIVE data set containing PL/I source 
statements. These source statements must 
comprise one or more external procedures; 
if you want to compile more than one 
external procedure in a single run, you 
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1. Converted source module when 48-character set 


2. source statements generated by preprocessor 


оосор, т========== ee f 
| ddname | Associated | 
| |Compiler Option| 

----------- і%---------------1---------------1 
| SYSIN | - | 
| | | 
| SYSPUNCH | DECK, MACDCK | 
| | | 
| SYSLIN | LOAD | 
| | | 
| SYSUTL | - | 
| | | 
| SYSUT3 | | 
| | | 
| | CHARA48 | 
| | | 
| | | 
| | MACRO, COMP | 
| | | 
| SYSPRINT | - | 
| | | 
| SYSLIB | MACRO | 
| | | 

Sie Жазаны ы асы Ес ойыма а TREE 


must separate the procedures in the input 
data set with *PROCESS statements 
(described under 'Batched Compilation’ 
later in this chapter). 


Eighty-column punched cards are commonly 
used as the input medium for PL/I source 
programs. However, the input data set may 
be on a direct-access device, magnetic 
tape, or paper tape. The data set may 
contain either fixed-length records, 
blocked or unblocked, or undefined-length 
records; the maximum record size is 100 
bytes. The compiler always reserves 1000 
bytes for two buffers for this data set; 
however, you may specify a block size of 
more than 500 bytes providing sufficient 
space is available to the compiler. (Use 
the SIZE option to allocate the additional 
space: refer to ‘Optional Facilities," 
later in this chapter.) 


The standard PL/I cataloged procedures 
do not include a DD statement for the input 
data set; consequently, you must always 
provide one. The following example 
illustrates the statements you might use to 
compile, link-edit, and execute a PL/I 
program placed in the input stream: 


//COLEGO JOB 
// EXEC PLILFCLG 
//PL1L.SYSIN DD * 


Insert here the source statements of 
your PL/I program 


/* 


Chapter 8 describes how to add DD 


statements to a cataloged procedure. Note 


|*sYsso Magnetic-tape or direct-access device 


| SYSCP Card punch 


т” cord Size| Defa Бани Too er ee оқысын WT 1 


г т т 
| ddname | Possible Device | Record {Record Size| Default | Reserved | No. of | 
| | Classes+ | Format | (bytes) |Block Size [Buffer Area| Buffers | 
| | | | | (bytes) | (bytes) | | 
--------4--------------------1-----------4-----------і-----------і----------- %-------- 1 
| SYSIN |5Ү550 or input job | F, FB, U | 100 (max) | - КК! 1000 | 2 | 
| | stream (specified | | | | | | 
| |Бу DD ж) | | | | | | 
| | | | | | | | 
| SYSPUNCH|SYSSQ, SYSCP | F,FB [ 80 | 80 | 400 | 1 | 
| | | | | | | | 
|SYSLIN {SYSSQ | F,FB | 80 | 80 | 400 | 1 | 
| | | | | | | | 
|sYsUT1 |SYSDA | F |1024 | - | - | | 
| | | | | | | | 
|sYsuT3 |SYSSQ | F, FB, U | 80 | - | 160 | | 
I. | | | | | | | 
| SYSPRINT|SYSSQ ок SYSOUT | у, VB [ 125 | 129 { 258 | 2 | 
| | device | | | | | | 
| | | | | | | | 
| SYSLIB '|SYSDA | F, FB, U | 100 (max) | - | - | | 
L------—- pi Sena pte Wisk ner шашы ESSO dient sere a ЫШ T AE ok a eee eee Жата ашалы аа Ш5сешасысеш 1 
| 
| 
| 
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| SYSDA Direct-access device 


Figure 5-3. 


that you must qualify the name of the added 
DD statement with the name of the job step 
within the cataloged procedure to which it 
refers (in this example, PL1L). 


Output (SYSPUNCH,SYSLIN) 


The compiler places the object module in 
the data set defined by the DD statement 
SYSLIN if you specify the option LOAD, and 
in the data set defined by SYSPUNCH if you 
include the option DECK; you may specify 
both options in one program. The object 
module is in the form of 80-byte 
fixed-length records, blocked or unblocked. 
The compiler always reserves 400 bytes for 
buffers for each of the output data sets; 
however, you may specify a block size of 
more than 400 bytes providing sufficient 
Space is available to the compiler* (Use 
the SIZE option to allocate the additional 
space: refer to 'Optional Facilities', 
later in this chapter.) 


The cataloged procedure PL1DFC includes 
the DD statement 


//SYSPUNCH DD SYSOUT-B 


This statement specifies that the data set 


1The E-level linkage editor does not accept 
blocked records; specify blocked records 
for SYSLIN only if you are using the 
F-level linkage editor. 


Characteristics of Compiler Data Sets 


is to be routed via the system output 
device of class B, which is usually a card 
punch. (However, the DD statement SYSPUNCH 
need not refer to a card punch.) 


The other cataloged procedures that 
include a compilation job step contain the 
following DD statement: 


//SXSLIN DD DSNAME=&&LOADSET, 


/” DISP=(MOD, PASS), 
^/ UNIT=SYSSQ, 
// SPACE= (80, (250,100) ) 


This statement defines a temporary data set 
named &&LOADSET on a magnetic-tape or 
direct-access volume; if you want to retain 
the object module after the end of your 
job, you must substitute a permanent name 
for &&LOADSET (i.e., a name that does not 
commence 66) and specify KEEP in the 
appropriate DISP parameter for the last 
Step in which the data set is used. The 
term MOD in the DISP parameter allows the 
compiler to place more than one object 
module in the data set, and PASS ensures 
that the data set will be available to the 
next job step (link-edit) providing a 
corresponding DD statement is included 
there. The SPACE parameter allows an 
initial allocation of 250 eighty-byte 
records and, if necessary, 15 further 
allocations of 100 records (a total of 1750 
records, which should suffice for most 
applications). 
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Workspace (SYSUT1, .SYSUT3) 


The compiler may require two data sets for 
use as temporary workspace. They are 
defined by DD statements with the names 
SYSUT1 and SYSUT3. 


SYSUT1 defines a data set, known as the 
Spill file, which the compiler uses for 
overflow text and dictionary blocks when 
compiling large source programs or when 
less than 57,344 bytes (56K bytes) of main 
storage are available for compilation. 
This data set must be on a direct-access 
device. ТЄ is good practice to include 
this DD statement even when you use the 
SIZE option to allocate more than 56K bytes 
to the compiler. The cataloged procedures 
include the following (or a similar) 
Statement: 


//SXYSUT1 DD UNIT-SYSDA, 
ИИ ЅРАСЕ= (1024, (60,60),,CONTIG), 
/” SEP= (SYSUT3, SYSLIN) 


Although the SEP parameter is not 
essential, its employment increases the 
efficiency of access to the compiler data 
sets. You should never need to modify this 
DD statement. 


The compiler requires the data set 
defined by SYSUT3 only when you use the 
48~character set or when you employ the 
preprocessor. In each case, the compiler 
places the processed text on this data set 
before commencing compilation proper. А11 
the cataloged procedures use the following 
DD statement: 


//SYSUT3 DD UNIT-SYSSQ, 
ИИ ЅРАСЕ= (80, (250,250) ), 
/” SEP=SYSPRINT 


Note that if a job being run under MVT 
has a number of job steps, and each job 
step requires a data set for use as 
temporary workspace, the result is a 
considerable overhead in time and space. 
To reduce this as far as possible, you can 
use dedicated workfiles. These are 
workspace data sets which are created by 
the initiator when the job is selected for 
execution. They can be used by each job 
step (in the job selected) that requires 
temporary workspace; they are deleted when 
the job is terminated. 


To use dedicated workfiles in your job, 
you must first make sure that your 
installation has an initiator that can 
generate them. If it has, you can use 
these workfiles by specifying the ddname of 
the initiator workfile as the dsname of the 
workspace data set in your job stream; this 
data set must be specified as a temporary 
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data set. For example, if an initiator has 
three dedicated workfiles as follows: 


//SXSUT1 DD (parameters) 
//SYSUT2 DD (parameters) 
//SXSUT3 DD (parameters) 


then, if you want the workspace for the 
SYSUT1 and SYSUT3 data sets in a job step 
to be provided by the initiator workfiles, 
code: 


//SYSUT1 DD 
//SYSUT3 DD 


DSNAME-&6SYSUT1,... 
DSNAME=6 &SYSUT3, ... 


The result is that this job step uses 
dedicated workfiles as workspace; the 
SYSUT1 and SYSUT3 DD statements in your job 
Stream are ignored. The IBM-supplied 
cataloged procedures for PL/I include 
SYSUT1 and SYSUT3 DD statements with a 
dsname specified in this way. 


There are several restrictions on the 
substitution of dedicated workfiles for 
workspace data sets in the job stream; for 
example, only direct-access devices are 
supported. You should consult your system 
programmer on the conventions and 
restraints that apply at your installation 
to each type of workspace data set. 


Listing  (SYSPRINT) 


The compiler generates a listing that 
includes all the source statements that it 
processed, information relating to the 
object module, and, when necessary, 
diagnostic messages. Most of the 
information included in the listing is 
optional, and you can specify those parts 
that you require by including the 
appropriate compiler options. The 
information that may appear, and the 
associated options, are described under 
'Listings', latex in this chapter. 


You must define the data set on which 
you wish the compiler to place its listing 
in a DD statement named SYSPRINT. The data 
set must have CONSECUTIVE organization. 
Although the listing is usually printed, it 
can be written on any magnetic-tape or 
direct-access device. For printed output, 
the following statement will suffice: 


//SYSPRINT DD SYSOUT-A 


The compiler always reserves 258 bytes 
for buffers for the data set defined by the 
DD statement SYSPRINT; however, you may 
specify a block size of more than 129 bytes 
provided sufficient main storage is 
available to the compiler. (Use the SIZE 
option to allocate the additional main 


storage: refer to ‘Optional Facilities', 
later in this chapter.) 


Source Statement Library (SYSLIB) 


If you use the preprocessor %INCLUDE 
statement to introduce source statements to 
your program from a library, you can either 
define the library in a DD statement with 
the name SYSLIB, or you can choose your own 
ddname (or ddnames) and specify a ddname in 
each “INCLUDE statement. (Refer to 
'Compile-Time Processing', later in this 
chapter.) The DD statement SYSLIB is not 
included in the compilation job step of the 
standard cataloged procedures (and it has a 
different function in the link-edit step). 


Note that for SYSLIB, the maximum record 
size permitted is 100 bytes and the maximum 
block size is 500 bytes. 


EXAMPLE 


The following example is a typical sequence 
of job control statements for compiling a 
PL/I program. The compiler options DECK 
and NOLOAD, which are described below, have 
been specified in order to obtain an object 
module as a card deck only. Chapter 6 
includes a sequence of job control 
Statements for link-editing such a card 
deck. 


//COMP JOB 

// EXEC PGM-IEMAA,PARM-'DECK, NOLOAD' 
//SYSPUNCH DD SYSOUT-B 

//SYSUT1 DD UNIT-SYSDA, 

^/ . ЅРАСЕ= (1020, (60,60) ,, CONTIG) 
//SYSPRINT DD SYSOUT=A 

//SYSIN DD ж 


Insert here the source statements to be 
compiled 


/* 


Optional Facilities 


The (F) compiler offers a number of 
optional facilities that you can select by 
including the appropriate keywords in the 
PARM parameter of the EXEC statement that 
invokes it. The PARM parameter is a 
keyword, parameter: code PARM- followed by 
the list of options, separating the options 
with commas and enclosing the list within 


single quotation marks*; for example: 
// EXEC PGM-IEMAA,PARM-'SIZE-72K,LIST' 


The length of the option list must not 
exceed 100 characters, including the 
separating commas; however, many of the 
option keywords have an abbreviated form 
that you can use to save space. You may 
specify the options in апу order. 


If you are using a cataloged procedure, 
you must include the PARM parameter in the 
EXEC statement that invokes the procedure 
and qualify the keyword with the name of 
the procedure step that invokes the 
compiler; for example: 


// EXEC PLÍLFCLG,PARM.PL1L-('SIZE-100K', 
РГА L,E,A) 


The compiler options are of two types: 


1. Simple pairs of keywords: a positive 
form (e.g., LOAD) that requests a 
facility, and an alternative negative 
form (e.g., NOLOAD) that rejects that 
facility. 


2. Keywords that permit you to assign a 
value to a function (e.g., SIZE=56K). 


During system generation, your 
installation can specify for each option 
except OBJNM a default value that will 
apply if the option is not otherwise 
specified. For those options for which 
your installation does not allocate a 
default value, standard default values 
apply. Figure 5-4 lists all the compiler 
options with their abbreviated forms and 
the standard default values. The following 
paragraphs describe the options in five 
groups: 


1. Control options, which establish the 
conditions for compilation (e.g., 
amount of main storage available, 
degree of optimization). 


2. Preprocessor options, which request 
the services of the preprocessor and 
specify how its output is to be 
handled. 


3. Input options, which specify the 
format of the input to the compiler. 


4. Output options, which specify the type 
of data set that will contain the 
object module. 


1Tf only one option appears, the quotation 
marks can be omitted. 
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T T 
1 Compiler Options | Abbreviated | Standard | 
| | Names | Defaults | 
Қ -------------- т-а 4--------------- 1S 1 
| | SIZE=yyyyyy | yyyK| 999999 | SIZE | 999999 | 
| | OPT=n | o | 1 | 
{ Control | STMT|NOSTMT |  ST|NST | NOSTMT | 
| options | OBJNM=aaaaaaaa 1 N | = | 
! | OBJIN|OBJOUT |  OBJIN|OBJOUT|  OBJOUT | 
| | EXTDIC| NOEXTDIC | ЕРІМЕ | | NOEXTDIC | 
| | SYNCHKT | SYNCHKS | SYNCHKE |  SKT|SKS|SKE |  SYNCHKT | 
--------------- %----------------------------- %--------------- %-------------- 1 
| Preprocessor | MACRO|NOMACRO | M|NM | NOMACRO | 
| options | COMP | NOCOMP | cinc | COMP | 
| | MACDCK | NOMACDCK | | MD|NMD | | NOMACDCK | 
}----------—-- %----------------------------- %--------------- %-------------- 1 
| Input | СНАВ60|СНАВ8В | с60|с48 |  CHAR60 | 
| options | BCD|EBCDIC | BEB | EBCDIC | 
| | SORMGIN- (mmm,nnní,ccc]1) | SM | (2,72) | 
--------------- %------------------ ----------- %--------------- і%--------------- 1 
| Output | LOAD|NOLOAD |  LD|NLD | | LOAD | 
| options | DECK|NODECK |  DI|ND | | NODECK | 
p----------—-- %----------------------------- %-------------- %--------- -----4 
| | LINECNT=xxx | Іс | 50 | 
| | OPLIST|NOOPLIST |  OL[NOL |  OPLIST | 
| | SOURCE2 | NOSOURCE2 | 52|м52 |  SOURCE2 | 
| | SOURCE | NOSOURCE | Ss |Ns | SOURCE | 
| Listing | NEST|NONEST | | NT|NNT | NONEST | 
| options | ATR|NOATR | ANA | | NOATR | 
| | XREF|NOXREF | XI|NX | NOXREF | 
| | EXTREF | NOEXTREF | ENE | | NOEXTREF | 
| | LIST|NOLIST | LINL | | NOLIST | 
| | FLAGW|FLAGE| FLAGS |  FW|FE|FS | ЕАСИ | 
| | DUMP[ (argument-list) 1 | DPI (arg- | | 
| | 1 list)] | = | 
ланды жалы сақы ы ызы шысы ы мы Жазда аласа са а. D MERETUR сласы ыз; 1 


Figure 5-4. Compiler Options, Abbreviations, and Standard Defaults 


can. If it finds less than 45,056 
bytes (44K bytes), it prints a 
message and attempts to continue 
compilation; this attempt may not, 
however, be successful. If you 
know that less than 48K bytes of 
Main storage are available, do not 
specify SIZE=999999, ‘but give the 
precise amount. 


5. Listing options, which specify the 
information to be included in the 
compiler listing. 


CONTROL OPTIONS 


SIZE 
The following notes may help you select 
the optimum size for a compilation: 
The SIZE option specifies the amount of 


main storage available for the compilation. 1. For compilation in an MFT partition or 
Code this option in one of the following an MVT region, specify at least 8K 
ways: bytes less than the partition or 


region size. 
SIZE-yyyyyy specifies that yyyyyy bytes 
of main storage are available for 2. 
the compilation. You need not 
supply leading zeros. 


If you specify less than 57,344 bytes 
(56K bytes), the spill file (defined 
by the DD statement SYSUT1) will be 
opened. 
SIZE-yyyK specifies that yyyK bytes of 
` main storage are available for the 3s 
compilation (1K=1024 bytes). You 
need not supply leading zeros. 


Compilation speed is improved if the 
SIZE value is increased to the point 
where the spill file will not be 
opened. The SIZE value also 
determines the size of the dictionary 
and text blocks: 


SIZE =999999 instructs the compiler to 
obtain as much main storage as it 


цц 


Main Storage Available Block .Size 
(bytes) (bytes) 
45,056 - 57,343 (56K) 1,024 
57,344 - 73,727 (72K) 2,048 
73,728 - 135,167 (132K) 4,096 
135,168 - 172,031 (168K) 8,192 
172,032 or more 16,384 


The available storage is that 
specified in the SIZE option less any 
space required for data set buffers 
(see note 4, below). 


If the spill file has to be used 
either for text or dictionary blocks, 
diagnostic message IEM3898I will be 
printed. Note that spilled text 
blocks can be processed more 
efficiently than spilled dictionary 
blocks. The spill file will therefore 
be used for text blocks before it is 
used for dictionary blocks. 


For each compilation, the message 
"AUXILIARY STORAGE WILL NOT BE USED 
FOR DICTIONARY WHEN SIZE=nnnk" is 
printed. Use of this size for a 
recompilation will provide a more 
efficient use of main storage but 
might result in the spilling of text 
blocks (and the production of message 
IEM38981) 


The compiler reserves part of the main 
Storage available to it for use as 
data set buffers (intermediate storage 
areas for data transmitted between 
main and auxiliary storage). The 
compiler uses one buffer each for the 
data sets defined by SYSLIN and 
SYSPUNCH, and two buffers each for 
SYSPRINT and SYSIN; in each case, the 
size of the buffer is equal to the 
block size of the corresponding data 
Set. If you specify a block size for 
any of the data sets that requires 
more buffer space than the compiler 
normally reserves, you should allow 
for the extra space in your SIZE 
option by adding the following 
quantities to the 44K bytes minimum 
required by the compiler: 


(2 * SYSIN block size) - 1000 bytes 
(2* SYSPRINT block size) - 258 bytes 
SYSPUNCH block size - 400 bytes 
SYSLIN block size - 400 bytes 

The text block size determines the 
total number of pairs of parentheses 


used for factoring attributes in a 
DECLARE statement: 


Text Block.Size Pairs of Factor 


(bytes) Parentheses 
1,025 (1K) 146 
2,048 (2K) 292 
4,096 (4K) 585 
8,192(8K) 1171 

16, 384 (16K) 2340 


OPT 


The OPT option specifies the type of 
optimization required: 


OPT=0 instructs the compiler to keep 


object-program storage requirements 


to a minimum at the expense of 
object-program execution time. 


OPT=1 causes object-program execution 


time to be reduced at the expense 


of storage. 


OPT-2 has the same effect as OPT-1, and 


in addition requests the compiler 


to optimize the machine 


instructions generated for certain 


types of DO-loops and expressions 
in subscript lists. 


IBM System/360 


Operating System: PL/I (Е) Language 


Reference Manual includes a 
discussion of DO-loop and 


subscript-expression optimization. 


There is little difference in 
compilation time for optimization levels 
and 1, but specifying OPT=2 could result 
a substantial increase in compile time. 


STMT ог NOSTMT 


The STMT option requests the compiler to 
produce additional instructions that will 
allow statement numbers from the source 
program to be included in diagnostic 
messages produced during execution of the 
compiled program. 


The use of this option causes 
degradation of execution time. However 
you can get information about statement 
numbers and their associated offsets by 
referring to the TABLE OF OFFSETS. (See 


0 
in 


‘Options Used for the Compilation,' below.) 
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OBJNM 


The OBJNM option allows you to name the 
load module that will be created by the 
linkage editor from the compiled object 
module. (If you do not specify a name, the 
linkage editor will use the member name 
from the DSNAME parameter of the DD 
Statement SYSLMOD in the link-edit job 
step; see Chapter 6.) The option causes 
the compiler to place a linkage editor NAME 
statement at the end of the object module. 
The NAME statement has the effect of 
assigning the specified name to the 
preceding module when the module is 
link-edited. The format of the option is 


OBJNM-aaaaaaaa 


where 'aaaaaaaa' represents a name 
comprising not more than eight characters, 
the first of which must be an alphabetic 
character. The format of the resultant 
NAME statement, which is described fully in 
Chapter 6, is 


bNAMEbaaaaaaaa (R) 
where b represents a blank character. 


The principal purpose of the OBJNM 
option is to facilitate the use of the 
linkage editor to create a series of load 
modules from the output of a batched 
compilation. (Refer to 'Batched 
Compilation', later in this chapter.) You 
can also use it to cause the linkage editor 
to substitute the new load module for an 
existing module of the same name in a 
library. 


OBJIN or OBJOUT 


You must specify the option OBJIN if you 
intend to execute the compiled program on 
an IBM System/360 Model 91 or 195. The 
special considerations for PL/I programs 
executed on Models 91 and 195 are discussed 
in Appendix G. 


EXTDIC or NOEXTDIC 


The EXTDIC option causes the compiler to 
use a dictionary with a capacity of 1.5 
times that of the normal dictionary if the 
dictionary block size is 1K bytes, and 3.5 
times that of the normal dictionary if the 
block size is greater than 1K bytes. This 
permits successful compilation of large 
programs that would otherwise overflow the 
dictionary capacity. As the use of EXTDIC 
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reduces compilation speed, specify this 
option only when the source module cannot 
be compiled with the standard dictionary. 


Programs that are large enough to 
require the EXTDIC option will be compiled 
very much more quickly if a large storage 
area is available. Ideally, enough storage 
should be available to hold the dictionary 
throughout compilation. As a rough 
guideline, the SIZE option should specify 
about 100,000 bytes plus 75 bytes for each 
identifier in the source module. Do not 
use the EXTDIC option when SIZE specifies 
less than 47,104 bytes. 


SYNCHKT, -SYNCHKS or SYNCHKE 


This option specifies the conditions for 
termination after syntax checking if errors 
are detected. The option has three values 
specifying termination according to the 
severity of. errors. 


SYNCHKE terminates compilation if errors 
of severity ERROR or above are found during 
the syntax checking stages of compilation. 


SYNCHKS terminates compilation if errors 
of severity SEVERE or above are found 
during the syntax checking stages of 
compilation. 


With the SYNCHKS or SYNCHKE in effect, a 
message is written to SYSPRINT stating:- 


'SYNTAX CHECK COMPLETED.  COMPILATION 
CONTINUES' or 'SYNTAX CHECK COMPLETED. 
COMPILATION TERMINATED' 


whichever is appropriate. 


When using the value SYNCHKT compilation 
is terminated immediately an error of 
severity TERMINATION is encountered during 
the syntax check. In this case the syntax 
check is not completed, and therefore no 
special message is printed. 


With SYNCHKT in effect the option is 
effectively turned off, and no special 
messages will be generated. 


PREPROCESSOR OPTIONS 
MACRO ог NOMACRO 


Specify MACRO when you want to employ the 
compiler preprocessor. The use of the 
preprocessor is described under 
*Compile-Time Processing,’ later in this 
chapter. 


COMP or NOCOMP 


Specify this option if you want the PL/I 
source module produced by the preprocessor 
to be compiled immediately. The source 
module is then read by the compiler from 
the data set identified by the DD statement 
SYSUT3. 


MACDCK or .NOMACDCK 


Specify the option MACDCK if you want the 
output from the preprocessor in the form of 
a card deck. This output is written 
(punched) in the data set specified by the 
DD statement SYSPUNCH. 


INPUT OPTIONS 
CHAR60 or CHAR48 


If the PL/I source statements are written 
in the PL/I 60-character set, specify 
CHAR60; if they are written in the 
48-character set, specify CHAR48. IBM 
System/360 Operating System: ' PL/I (Е) 
Language Reference Manual lists both . 
character sets. (Note that the compiler 
will accept source programs written in 
either character set if you specify 
CHARA8.) 


BCD or EBCDIC 


The compiler will accept source statements 
in which the characters are represented by 
either of two codes; binary coded decimal 
(BCD) and extended binary-coded-decimal 
interchange code (EBCDIC). For binary 
coded decimal, specify the option BCD; for 
extended binary coded decimal interchange 
code, specify the option EBCDIC. Whenever 
possible, use EBCDIC since BCD requires 
translation and is therefore less 


efficient. IBM System/360 Operating 


Systems: PL/I (F) Languaqe Reference Manual 
lists the EBCDIC representation of both the 


48-character set and the 60-character set. 
The 029 Keypunch punches characters in 
EBCDIC.form without multipunching; to 
obtain EBCDIC using the 026 you must 
multipunch some characters. 


SORMGIN 


The SORMGIN (source margin) option 
specifies the extent of the part of each 
input record that contains the PL/I source 
Statements. The compiler will not process 
data that is outside these limits. The 
option can also specify the position of an 
ANS carriage control character to format 
the listing of source statements produced 
by the compiler if you include the SOURCE 
option. The format of the SORMGIN option 
is: 


SORMGIN- (mmm, nnn[, ccc] ) 


where mmm represents the number of the 
first byte of the field that 
contains the source statements, 


nnn represents the number of the last 
byte of the source statement 
field, and 


ccc represents the number of the byte 
that will contain the control 
character. 


The value mmm must be less than or equal 
to nnn, and neither must exceed 100. The 
value ccc must be outside the limits set by 
mmm and nnn. The valid control characters 
are: 


Skip one line before printing 
Skip two lines before printing 
Skip three lines before printing 
Suppress space before printing 
Start new page 


е + | old’ 


Chapter 11 contains a full description of 
the use of printer control characters. If 
you do not specify a position for a control 
character, a default position defined by 
your installation may apply. You can 
nullify this default position by specifying 
the carriage control character to be zero 
(for example, SORMGIN=(1,72,0)). 


If the value ccc is greater than the 
value set by the LRECL subparameter of the 
DCB parameter, the compiler may not be able 
to recognize it; consequently the listing 
may not have the required format. If the 
character specified is not a valid control 
character, a blank is assumed by default. 


Source statements generated by the 
preprocessor always have a source margin 
(2,72). Columns 73-80 contain information 
inserted by the preprocessor; this 
information is described under 'Listing,' 
below. 
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OUTPUT OPTIONS 


LOAD or NOLOAD 


The LOAD option specifies that the compiler 
is to place the object module in the data 
set defined by the DD statement with the 
name SYSLIN. 


DECK or NODECK 


The DECK option specifies that the compiler 
is to place the object module, in the form 
of 80-column card images, in the data set 
defined by the DD statement with the name 
SYSPUNCH. Columns 73-76 of each card 
contain a code to identify the object 
module; this code comprises the first four 
characters of the first label in the 
external procedure represented by the 
module. Columns 77-80 contain a 4-digit 
decimal serial number: the first card is 
numbered 0001, the second 0002, etc. 


LISTING OPTIONS 


The listings produced by the compiler when 
you specify the following options are 
described under ‘Listing' below. 


LINECNT 


The LINECNT option specifies the number of 
lines to be included in each page of a 
printed listing, including heading lines 
and blank lines. Its format is: 


LINECNT-xxx 


OPLIST or NOOPLIST 


The OPLIST option requests a list showing 
the status of all the compiler options at 
the start of compilation. 


SOURCE2 or NOSOURCE2 


The SOURCE2 option requests a listing of 
the PL/I source statements input to the 
preprocessor. 
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SOURCE or NOSOURCE 


The SOURCE option requests a listing of the 
PL/I source statements processed by the 
compiler. The source statements listed are 
either those of the original source program 
or the output from the preprocessor. 


NEST or NONEST 


The NEST option specifies that the source 
program listing should indicate for each 
Statement, the block level and the level of 
nesting of a DO-group. 


ATR or NOATR 


The ATR option requests the inclusion in 
the listing of a table of source program 
identifiers and their attributes. 
Attributes with a precision of fixed binary 
(15,0) or less are flagged "'s3*s«***x**'. An 
Aggregate Length Table, giving the length 
in bytes of all major structures and 
non-structured arrays in the source 
program, will also be produced when the ATR 
option is specified. 


XREF or NOXREF 


The XREF option requests the inclusion in 
the listing of a cross-reference table that 
lists all the identifiers in the source 
program with the numbers of the source 
Statements in which they appear. If you 
specify both ATR and XREF, the two tables 
are combined. An Aggregáte Lengh Table 
will also be produced when the XREF option 
is specified. 


EXTREF or NOEXTREF 


The EXTREF option requests the inclusion of 
a listing of the external symbol dictionary 
(ESD). 


LIST or .NOLIST 


The LIST option requests a listing of the 
machine instructions generated by the 
compiler (in a form similar to System/360 
assembler language instructions). 


FLAGW or FLAGE or FLAGS 


The diagnostic messages produced by the 
PL/I (F) compiler are graded in order of 
severity. The FLAG option specifies the 
minimum level of severity that requires a 
message to be printed: 


List all diagnostic messages 


FLAGW 

FLAGE List all diagnostic messages 
except ‘warning' messages 

FLAGS List only ‘severe’ errors and 


‘termination’ errors 


The severity levels are discussed under 
‘Listing, ' below. 


Dump 


The DUMP option requests a formatted 
listing on SYSPRINT of the compiler 
modules, compiler storage, and compiler 
control blocks if an unrecoverable error is 
encountered. The DUMP option can also be 
used with optional arguments; the nature 
and purpose of these arguments are 
discussed in the publication IBM System/360 


Operating System; PL/I (Е) Compiler, 
Program Logic, Order No.  GY28-6800. 


This facility should only be used in the 
event of a compiler failure. 


Listing 


During compilation, the compiler generates 
a listing that contains information about 
the compilation and about the source and 
load modules. It places this listing in 
the data set defined by the DD statement 
SYSPRINT (usually output to a printer). 
The following description of the Listing 
refers to its appearance on a printed page. 


The listing comprises a small amount of 
standard information that always appears, 
together with those items of optional 
information requested in the PARM parameter 
of the DD statement that invoked the 
compiler or that were applied by default. 
Figure 5-5 lists the optional components of 
the listing and the corresponding compiler 
options. 


The first page of the compiler listing 
is identified by the compiler version 
number and the operating system release 
number in the top left-hand corner, and by 
the heading 08/360 PL/I COMPILER (F) in the 


center. Starting with this page, all the 
pages of the listing are numbered 
sequentially in the top right-hand corner. 
On Page 1, immediately under the page 
number, the date of compilation is recorded 
in the form yy.ddd (yy=year, ddd=day). 

Page 1 also includes a statement of the 
options specified for the compilation, 
exactly as they are written in the PARM 


" parameter of the EXEC statement. 


The listing always ends with a statement 
that no errors or warning conditions were 
detected during the compilation or with one 
or more diagnostic messages. The format of 
the messages is described under 'Diagnostic 
Messages,' below. If your machine includes 
the timer feature, the listing concludes 
with a statement of the CPU time taken for 
the compilation and the elapsed time during 
the compilation; these times will differ 
only in a multiprogramming environment. 


The following paragraphs describe the 
optional parts of the listing in the order 
in which they appear. Appendix A includes 
a fully annotated example of a compiler 
listing. 


Listings Option Required 
Options for the OPLIST 
compilation 
Preprocessor input SOURCE2 
Source program SOURCE 
Statement nesting level NEST 
Attribute table | ATR 
Cross-reference table XREF 


Aggregate-length table ATR or XREF 


External symbol dictionary  EXTREF 


Object module LIST 
Diagnostic messages for 
severe errors, errors, 
and warnings 


FLAGS, FLAGE, 
FLAGW 


Figure 5-5. Optional Components of 


Compiler Listing 


OPTIONS USED FOR THE COMPILATION 


If the option OPLIST applies, a complete 
list of the options for the compilation, 
including the default options, follows the 
statement of the options specified in the 
EXEC statement. This information appears 
twice, the second list being in a standard 
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format to facilitate the automatic 
collection of operating-system usage 
statistics. 


PREPROCESSOR INPUT 


If both the options MACRO and SOURCE2 
apply, the compiler lists the input 
statements to the preprocessor, one record 
per line. The lines are numbered 
sequentially at the left. 


If the compiler detects an error or the 
possibility of an error, during the 
preprocessor phase, it prints a message on 
the page or pages following the input 
listing. The format and classification of 
the error messages are exactly as described 
for the compilation error messages 
described under 'Diagnostic Messages,' 
below. 


SOURCE PROGRAM 


If the option SOURCE applies, the compiler 
lists the source program input, one record 
per line; if the input statements include 
carriage control characters, the lines will 
be spaced accordingly. The statements in 
the source program are numbered 
sequentially by the compiler, and the 
number of the first statement in the line 
appears to the left of each line in which a 
statement begins. The statements contained 
within a compound (IF or ON) statement are 
numbered as well as the compound statement 
itself; and, when an END statement closes 
more than one group or block, all the 
implied END statements are included in the 
count: 


1 P: PROC; 

2 : BEGIN; 

3 IF A=B 

4 THEN А=1; 

5 ELSE DO; 

6 А=0; 
7 C=B; 
8 END X; 

10 D=E; 

11 END; 


If the source statements were generated 
by the preprocessor, columns 73-80 contain 
the following information: 


50 


Column 
73-77 Input line number from which the 
source statement was generated. 
This number corresponds to the 
line number in the preprocessor 
input listing. 


78,79  Two-digit number giving the 
maximum depth of replacement for 
this line. If no replacement 
occurred, the columns are blank. 

80 "Е" signifies that an error 


occurred while replacement was 
being attempted. If no error 
occurred, the column is blank. 


Statement Nesting Level 


If the options SOURCE and NEST apply, the 
block level and the DO level are printed to 
the right of the statement number under 
appropriate headings: 


STMT LEVEL NEST 


1 A: PROC OPTIONS (MAIN); 
2 1 B: PROC(L); 

3 2 DO I=1 TO 10; 

4 2 1 DO J=1 TO 10; 
5 2 2 END; 

6 2 1 BEGIN; 

7 3 1 END; 

8 2 1 END B; 

9 1 


END A; 


ATTRIBUTE AND CROSS-REFERENCE TABLE 


If the option ATR applies, the compiler 
prints an attribute table containing an 
alphameric list of the identifiers in the 
program together with their declared and 
default attributes. If the option XREF 
applies, the compiler prints a 
cross-reference table containing an 
alphameric list of the identifiers in the 
program together with the numbers of the 
statements in which they appear. If both 
ATR and XREF apply, the two tables are 
combined. 


Except for file attributes, the 
attributes printed will be those that 
obtain after conflicts have been resolved 
and defaults applied. Since the file 
attribute analysis does not take place 
until after the attribute list has been 
prepared, the attributes that appear in the 
list for a file are those supplied by you, 
regardless of conflicts. 


If either of the options ATR апа XREF 
applies, the compiler also prints an 
aggregate-length table, which gives, where 
possible, the lengths in bytes of all major 
structures and all non-structured arrays in 
the program. 


Attribute Table 


If an identifier was declared explicitly, 
the number of the DECLARE statement is 
listed under the heading DCL NO. The 
statement numbers of statement labels and 
entry labels are also given under this 
heading. | | 


The attributes INTERNAL and REAL аге 
never included; they can be assumed unless 
the respective conflicting attributes 
EXTERNAL and COMPLEX appear. 


For a file identifier, the attribute 
"EXTERNAL appears if it applies; otherwise, 
only explicitly declared attributes are 
listed. 


For an array, the dimension attribute is 
printed first; the bounds are printed as in 
the array declaration, but expressions are 
replaced by asterisks. 


For a character string or a bit string, 
the length preceded by the word 'STRING,' 
is printed as in the declaration, but an 
expression is replaced by an asterisk. 


Cross-Reference Table 


If the cross-reference table is combined 
with the attribute table, the numbers of 
the statements in which an identifier 
appears follow the list of attributes for 
that identifier. The number of a statement 
in which a based variable identifier 
appears will be included, not only in the 
list of statement numbers for that 
variable, but also in the list of statement 
numbers for the pointer associated with it. 


Aggregate Length Table 


Each entry in the aggregate-length table 
consists of an aggregate identifier 
preceded by a statement number and followed 
by the length of the aggregate in bytes. 


The statement number is the number 
either of the DECLARE statement for the 
aggregate or, for a CONTROLLED aggregate, 


of an ALLOCATE statement for the aggregate. 
An entry appears for every ALLOCATE 
Statement involving a CONTROLLED aggregate, 
since such statements have the effect of 
changing the length of the aggregate during 
execution. Allocation of a BASED aggregate 
does not have this effect, and only one 
entry, which is that corresponding to the 
DECLARE statement, appears. 


The length of an aggregate may not be 
known at compilation, either because the 
aggregate contains elements having 
adjustable lengths or dimensions, or 
because the aggregate is dynamically 
defined. In these cases, the word 
'ADJUSTABLE' or 'DEFINED' appears in the 
LENGTH IN BYTES column. 


An entry for a COBOL mapped structure, 
that is, for a structure into which a COBOL 
record is read or from which a COBOL record 
is written, has the word '(COBOI)' 
appended, but such an entry will appear 
only if the structure does not consist 
entirely of: 


1. doubleword data, or 

2. fullword data, or 

3. halfword binary data, or 

4. character string data, or 
5. aligned bit string data, or 


6. a mixture of character string and 
aligned bit string data. 


If a COBOL entry does appear it is 
additional to the entry for the PL/I mapped 
version of the structure. 


STORAGE REQUIREMENTS 


If the option SOURCE applies, the compiler 
lists the following information under the 
heading STORAGE REQUIREMENTS on the page 
following the end of the aggregate-length 
table: 


1. Тһе storage area in bytes for each 
procedure. 


2. The storage area in bytes for each 
BEGIN block. 


3. The storage area in bytes for each ON 
unit. 


4. The length of the program control 
section (CSECT). The program control 
section is the part of the object 
module that contains the executable 
part of the program. 
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5. The length of the static internal 
control section. This control section 
contains all storage for variables 
declared STATIC INTERNAL. 


TABLE OF OFFSETS 


If the options SOURCE, NOSTMT, and NOLIST 
apply, the compiler lists, for each primary 
entry point, the offsets at which the 
various statements occur. This information 
is found, under the heading TABLE OF 
OFFSETS AND STATEMENT NUMBERS WITHIN 
PROCEDURE, following the end of the storage 
requirements table. 


EXTERNAL SYMBOL DICTIONARY 


If the option EXTREF applies, the compiler 
lists the contents of the external symbol 
dictionary (ESD) for the object module. 

The ESD is a table containing all the 
external symbols that appear in the module. 
(The machine instructions in the object 
module are grouped in blocks called control 
sections; an external symbol is a name that 
can be referred to in a control section 
other than the one in which it is defined.) 
The information appears under the following 
headings: 


SYMBOL - An 8-character field that 
identifies the external symbol. 


TYPE - Two characters from the following 
list to identify the type of ESD 
entry: 


SD - Section definition: the name 
of a control section within 
this module. 


CM - Common area: a type of 
control section that contains 
no executable instructions. 


The compiler creates a common 


area for each non-string 
element variable declared 
STATIC EXTERNAL without the 
INITIAL attribute. 


ER - External reference: an 
external symbol that is not 
defined in this module. 


PR - Pseudo-register: a field in a 
communications area, the 
pseudo-register vector (PRV), 
used by the compiler and the 
library subroutines. 
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LD - Label definition: the name of 
an entry point to the 
external procedure other than 
that used as the name of the 
program control section. 


ID - Four-digit hexadecimal number: the 
entries in the ESD are numbered 
sequentially, commencing from 
0001. 


ADDR - Hexadecimal representation of the 
address of the symbol: this field 
is not used by the compiler, since 
the address is not known at 
compile time. 


LENGTH - The hexadecimal length in bytes of 
the control section (SD, CM, and 
PR entries only). 


Standard ESD Entries. 


The external symbol dictionary always 
Starts with seven standard entries (Figure 
5-6): 


1. Name of the program control section 
(the control section that contains the 
executable instructions of the object 
module). This name is the first label 
of the external procedure statement. 


2. Name of the static internal control 
section (which contains storage for 
all variables declared STATIC 
INTERNAL). This name is the first 
label of the external procedure 
statement, padded on the left with 
asterisks to seven characters if 
necessary, and extended on the right 
with the character A. 


3.  IHEQINV: pseudo-register for the 
invocation count (a count of the 
number of times a block is invoked 
recursively). 


ц. IHESADA: entry point of the library 
routine that obtains automatic storage 
for a block. 


5.  IHESADB: entry point of the library 
routine that obtains automatic storage 
for variables whose extents are not 
known at compile time. 


6. IHEQERR: pseudo-register used by the 
library error-handling routines. 


7. ІНЕОТІС: pseudo-register used by the 
library multitasking routines. 


[SYMBOL ТҮРЕ ID ADDR LENGTH] 
pras SD 0001 000000 00033A] 
— SD 0002 000000 МЕРГЕН, 
ғаны РЕ 0003 000000 T 
ener ER 0004 000000 | 
ткн ER 0005 000000 | 
ЕРЕН РК 0006 000000 0006001 
ДЕБИТІН PR 0007 000000 9000054 
Figure 5-6. Typical Standard ESD | 
Entries 


Other ESD Entries 


The remaining entries in the external 
symbol dictionary vary, but generally 
include the following: 


T4 


Section definition for the 4-byte 
control section IHEMAIN, which 
contains the address of the principal 
entry point to the external procedure. 
This control section is present only 
if the procedure statement includes 
the option MAIN. 


Section definition for the control 
section IHENTRY (always present). 
Execution of a PL/I program always 
Starts with this control section, 
which passes control to the 
appropriate initialization subroutine 
of the PL/I library; when 
initialization is complete, control 
passes to the address stored in the 
control section IHEMAIN. 
(Initialization is required only once 
during the execution of a PL/I 
program, even if it calls another 
external procedure; in such a case, 
control passes directly to the entry 
point named in the CALL statement, and 
not to IHENTRY.) 


LD-type entries for all names of entry 
points to the external procedure 
except the first. 


A PR-type entry for each block in the 
compilation. The name of each of the 
pseudo-registers comprises the first 
label of the external procedure 
Statement, padded on the left with 
asterisks to seven characters if 
necessary, and extended on the right 
with an eighth character selected from 
one of two tables used by the 


compiler. If the number of blocks 
exceeds the number of characters in 
the first table, the first character 
of the pseudo-register name is 
replaced by a character taken from the 
second table, and the last character 
recycles. If the first character thus 
overwritten is the start of the 
external procedure name rather than an 
asterisk, the compiler issues a 
warning message (since identical 
pseudo-register names could be 
generated from different procedure 
names). 


These pseudo-registers are termed 
display pseudo-registers. 


Example: 


X: PROC; 
Y: PROC; | 
2: BEGIN; 
END Х; 


The display pseudo-registers for X, Y, 
and 2 would have the names: 


* eA AKXB | 
жж XC 
* kK EXD 


ER-type entries for all the library 
routines and external routines called 
by the program. The list includes the 
names of library routines called 
directly by compiled code (first-level 
routines), and the names of routines 
that are called by the first-level 
routines. 


CM-type entries for non-string element 
variables declared STATIC EXTERNAL 
without the INITIAL attribute. 


SD-type entries for all other STATIC 
EXTERNAL variables and for EXTERNAL 
file names. 


PR-type entries for all file names. 
For EXTERNAL file names, the name of 
the pseudo-register is the same as the 
file name; for INTERNAL file names, 
the compiler generates names as for 
the display pseudo-registers. 


PR-type entries for all controlled 
variables. For external variables, 
the name of the variable is used for 
the pseudo-register name; for internal 
variables, the compiler generates 
names as for the display 
pseudo-registers. 
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STATISTICS 


If the option SOURCE applies, the compiler 
lists the following information after the 
ESD (or, if the option NOEXTREF applies, 
after ‘Storage Requirements'): 


1. Number of records processed by the 
preprocessor (MACRO records). 


2. Number of records processed by the 
compiler. 


3. Number of statements processed by the 
compiler. 


4. Size of object module (in bytes). 


OBJECT MODULE 


If the option LIST applies, the compiler 
generates a map of the static internal 
control section and lists the machine 
instructions of the object program in a 
form similar to System/360 assembler 
language. The machine instructions are 
described in IBM System/360: Principles of 
Operation. The following descriptions of 
the object module listings include many 
terms that can be properly defined only in 
the context of an explanation of the 
mechanism of compilation and the structure 
Of the object program; such an explanation 
is beyond the scope of this manual. 


Both the static internal storage map and 
the object program listings start on a new 
page. If the LINECNT option specifies 72 
or fewer lines per page and the number of 
lines to be printed (including skips) 
exceeds the specified line count, 
double-column format is used. If the 
LINECNT option specifies more than 72 lines 
per page or the number of lines to be 
printed (including skips) is less than the 
specified line count, single-column format 
is used. 


Static Internal Storage Map 


The first 52 bytes of the static internal 

control section are of a standard form and 
are not listed. They contain the following 
information: | 


DC Е"5096" 

DC ALU(SI.*X'1000") 
DC ALU(SI.-*X'2000') 
DC ALU(SI.*X'3000"') 
DC ALU(SI.*X'&4000*) 
DC ALU(SI.*X'5000*) 
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DC AL4(ST.+X*'6000") 
DC А14 (SI.+X'7000" ) 
DC VL4 (IHESADA) 

DC VL4 (IHESADB) 

DC A(DSASUB) 

DC A(EPISUB) 

DC A(IHESAFA) 


SI. is the address of the static 
internal control section, and IHESADA, 
IHESADB, and IHESAFA are library 
subroutines.  DSASUB and EPISUB are 
compiler routines for getting and freeing 
dynamic storage areas (DSAs). 


The remainder of the static control 
section is listed, each line comprising the 
following elements: 


1. Six-digit hexadecimal offset. 
2. Up to eight bytes of hexadecimal text. 


3. Comment indicating the type of item to 
which the text refers; a comment 
appears against the first line only of 
the text for an item. 


The following abbreviations are used for 
the comments (xxx indicates the presence of 
an identifier): 


DED FOR TEMP Data element descriptor 


or DED for a temporary or for a 
programmer‘s variable. 

FED Format element descriptor. 

DV..XXx Dope vector for a static 
variable. 

DVD.. Dope vector descriptor. 


D.V. SKELETON Dope vector skeleton for 


an automatic or controlled 


variable. 

RDV.. Record dope vector. 

A..XXX Address of external 
control section or entry 
point, or of an internal 
label. 

ARGUMENT Argument list skeleton. 

LIST 

CONSTANTS Constants. 

SYMTAB Symbol table entry. 

SYM. . XXX Symbolic name of label 
constant or label 
variable. 

FILE. . XXX File name. 


ON..XXX Programmer-declared 
ON-condition. 


ATTRIB File attributes. 


XXX Static variable. If the 
variable is not 
initialized, no text 
appears against the 
comment, and there is also 
no static offset if the 
variable is an array. 
(This can be calculated 
from the dope vector if 
required.) 


Object Program Listing 


The object program listing includes 
comments of the following form as an aid to 
identification of the functions of the 
components of the program: 


* STATEMENT NUMBER n - identifies the 
Start of the code generated for 
source listing statement number n. 


* PROCEDURE xxx - identifies the start of 
the procedure labeled xxx. 


* REAL ENTRY xxx - heads the 
initialization code for an entry 
point to a procedure labeled xxx. 


* PROLOGUE BASE - identifies the start of 
the initialization code common to 
all entry points to that procedure. 


* PROCEDURE BASE - identifies the address 
loaded into the base register for 
the procedure. 


* APPARENT ENTRY xxx - identifies the 
point of entry into the procedure 
for the entry point labeled xxx. 


* END PROCEDURE xxx - identifies the end 
of the procedure labeled xxx. 


* BEGIN BLOCK xxx - indicates the start 
of the begin block with label xxx. 

* END BLOCK xxx - indicates the end of 
the begin block with label xxx. 


* INITIALIZATION CODE FOR xxx - indicates 
that the code following performs 
initial value assignment or dope 
vector initialization for the 
variable xxx. 


Wherever possible, a mnemonic prefix is 
used to identify the type of operand in an 
instruction, and where applicable this is 
followed by a source program identifier. 
The following prefixes are used: 


AE.. 


BLOCK. 


CL. 


DED.. 
DV. е 
DVD.. 


FVDED.. 


FVR. A 


IC. 


ON. . 
PR.. 
RDV.. 


RSW.. 


SI. 


SKDV. . 


SKPL.. 


ST.. 


SYM.. 


TCA.. 


TMP.. 


TMPDV.. 


Address constant 


Apparent entry point (point in 


the procedure to which control 


passed from the prologue). 
Label created for an otherwise 
unlabeled block (followed by the 
number of the block). 

Constant (followed by a 
hexadecimal dictionary 
reference). 

A label generated by the 
compiler (followed by a decimal 
number identifying the label). 
Data element descriptor 

Dope vector 

Dope vector descriptor 


Data element descriptor of 
function value. 


Function value 


Invocation count 
pseudo-register. 


ON-condition name 
Pseudo-register 
Record dope vector 
Return switch 


Address of static internal 
control section. 


Skeleton dope vector, followed 
by hexadecimal dictionary 
reference. 


Skeleton parameter list, 
followed by hexadecimal 
dictionary reference. 


Symbol table entry 


Symbolic representation of a 
label. 


Temporary control area: a word 
containing the address of the 
dope vector of the specified 
temporary. 


Temporary, followed by 
hexadecimal dictionary 
reference. 


Temporary dope vector, followed 


by hexadecimal dictionary 
reference 
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VO.. Virtual origin 

WP1. 

WP2. Workspace, followed by decimal 
WS1. number of block which allocates 
WS2. workspace 

WS3. 


A listing of the various storage areas 
is not produced, but the addresses of 
variables can be deduced from the object 
program listing. 


Example: 


A=B+10E1; in the source program 
produces: 


0002СА 78 00 В 058 LE 0,B 


0002CE 7A 00 B 064 AE 0,C..08F4 


0002D2 70 00 B 060 STE 0,A 


A and B are STATIC INTERNAL variables at an 
offset of X'60' and X'58', respectively, 
from the start of the control section. 


DIAGNOSTIC MESSAGES 


The compiler generates messages that 
describe any errors or conditions that may 
lead to error that it detects during 
compilation. Messages generated by the 
preprocessor appear in the compiler listing 
immediately after the listing of the 
Statements processed by the preprocessor; 
all other messages are grouped together at 
the end of the listing. The messages are 
graded according to their severity: 


А” warning message calls attention to а 
possible error, although the statement 
to which it refers is syntactically 
valid. 


An error message describes an attempt 
made by the compiler to correct an 
erroneous statement (although it may 
not specify the corrective action). 





A severe error message specifies an 
error that cannot be corrected by the 
compiler. The incorrect statement or 
part of a statement is deleted, but 
compilation continues. However, if a 
severe error is detected during the 
preprocessor stage, compilation is 
terminated after the compiler has 
listed the source program. 


A'termination error message describes 


an error that forces the termination of 
the compilation. 
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The compiler lists only those messages 
with a severity equal to or greater than 
that specified by the FLAG option: 


Type of Message Option 
warning FLAGW 
error FLAGE 
severe error FLAGS 


termination error Always listed 
Each error message is identified by an 
8-character code: 


1. The first three characters are ТЕМ, 
which identify the message as 
emanating from the F compiler. 


2. The next four characters are a 4-digit 
message number. Appendix K lists all 
the compiler messages in numeric 
sequence. 


3. Тһе last character is the letter I, 
which is the operating system code for 
an informative message. 


At the end of a compilation, a message 
is printed giving the value for the SIZE 
option that will prevent the spill file 
being used for dictionary blocks if the 
program is recompiled. 


RETURN CODE 


The compiler returns a completion code to 
the operating system to indicate the degree 
of success it achieved. This code appears 
in the job scheduler END OF STEP message as 
"RETURN CODE. * 


Code Meaning 


0000 No diagnostic messages issued; 
compilation completed without 
error; successful execution 
anticipated. 

0004 Warning messages only issued; 
compilation completed; successful 
execution probable. 

0008 Error messages issued; 
compilation completed, but with 
errors; execution may fail. 


Severe error messages issued; 
compilation may have been 
completed, but with errors; 
successful execution improbable. 


0012 


0016 Termination error messages 
issued; compilation terminated 
abnormally; successful execution 


impossible. 


Note: This return code is 
returned for all levels of 
termination when the syntax check 
option is used. 





Batched Compilation 


The batched compilation facility of the 
compiler allows you to compile more than 
one external procedure in a single 
execution of the compiler. The compiler 
creates an object module for each external 
procedure and places them sequentially in 
the data set identified by the DD statement 
SYSPUNCH or SYSLIN.  Batched compilation 
can increase compiler throughput by 
reducing operating system overheads, but 
has the disadvantage that a termination 
error detected during the compilation of 
one external procedure will prevent the 
compilation of those that follow it. 


TO specify batched compilation, you must 
include a compiler PROCESS statement in 
front of each external procedure except the 
first. This statement indicates to the 
compiler that it must process another 
procedure, and it allows you to specify new 
options for each compilation. The first 
procedure in the batch does not require a 
PROCESS statement since the EXEC statement 
that invokes the compiler contains all the 
information that it requires. 


Note that the return code given for a 
batched compilation is the highest code 
that would be returned if the procedures 
were compiled independently. 


THE PROCESS STATEMENT 


The format of the PROCESS statement is 
* PROCESS ('options'); 


where 'options' indicates a list of 
compiler options exactly as specified in 
the PARM parameter of an EXEC statement; 
the list of options must be enclosed within 
single quotation marks. The asterisk must 
be in the first byte of the record (card 
column 1), and the keyword PROCESS may 
follow in the next byte (column) or after 
any number of blanks.  Blanks are also 
permitted between: 


1. The keyword PROCESS and the 
option-list delimiter (left 
parenthesis). 


2. The option-list delimiters and the 
Start or finish of the option list. 


3. The option-list delimiter and the 
semicolon. 


The options in the option list may 
include any of those described under 
"Optional Facilities,' earlier in this 
chapter. The options must be separated by 
commas, and there must be no embedded 
blanks. The options apply to the 
compilation of the source statements 
between the PROCESS statement and the next 
PROCESS statement. If you omit any of the 
options, the default values apply; there is 
no carry over from the preceding EXEC , 
Statement or PROCESS statement. The number 
of characters is limited only by the 
length of the record. If you do not wish 
to specify any options, code 


* PROCESS; 


The input record that contains the 
PROCESS statement must be in EBCDIC code. 


Тһе OBJNM Option 


The OBJNM option determines how the object 
modules in a batch will be link-edited 
together. The appearance of this option in 
the PARM parameter of the EXEC statement or 
in a PROCESS statement causes the compiler 
to place a linkage-editor NAME statement at 
the end of the object module resulting from 
the compilation of the external procedure 
to which the option refers. When the batch 
of object modules is link-edited, the 
linkage editor places all the modules 
between one NAME statement and the 
preceding NAME statement into the same load 
module; it takes the name of a load module 
from the NAME statement that follows the 
last object module that is to be included. 
For example, consider the following source 
Statements (assuming the option OBJNM-A in 
the EXEC statement): 


ALPHA: PROC OPTIONS (MAIN); 


END ALPHA; 
* PROCESS; 
BETA: PROC OPTIONS (МАІМ); 


END BETA; 
* PROCESS ('OBJNM-B'); 
GAMMA: PROC; 


END GAMMA; 
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Compilation of these source statements 
would result in the following object 
modules and NAME statements: 


Object module for ALPHA 
NAME A (R) 

Object module for BETA 

Object module for GAMMA 
NAME В (R) 


From this sequence of object modules and 
control statements, the linkage editor 
would produce two load modules, one named A 
containing the object program for procedure 
ALPHA, and the other named B containing the 
object programs for the procedures BETA and 
GAMMA. 


You should not specify the OBJNM option 
if you intend to process the object modules 
with the linkage loader. The loader 
processes all object modules with the same 
name into a single load module; if there is 
more than one name, the loader recognizes 
the first one only and ignores the others. 


JOB CONTROL LANGUAGE FOR BATCHED PROCESSING 


The only special consideration relating to 
job control statements for batched 
processing refers to the data set defined 
by the DD statement SYSLIN. If you include 
the option LOAD, ensure that this DD 
statement contains the parameter 
DISP=(MOD,KEEP) or DISP=(MOD,PASS); the 
standard cataloged procedures specify 
DISP=(MOD,PASS). If you do not specify 
DISP=MOD, successive object modules will 
overwrite the preceding modules. 


Under PCP or MVT, if you do not specify 
sufficient primary extents for the data 
sets defined by SYSLIN or SYSPRINT, you may 
get an abnormal termination with a system 
completion code of 80A, in which case you 
should increase the primary extents and run 
the job again. 


Example 


Figure 5-7 is an example of a simple 
batched processing program. It illustrates 
the use of a single invocation of the 
cataloged procedure PLILFCL to compile four 
procedures and link-edit them into three 
load modules. Figure 5-8 illustrates how 
these load modules could later be executed. 


The EXEC statement COLE in Figure 5-7 
specifies the options for the compilation 
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of the procedure FIRST; of the options 
specified, only SIZE applies to the 
compilations of the other procedures. The 
OBJNM option (abbreviated to 'N') ensures 
that FIRST will be link-edited into a load 
module named PGM1, which will contain по 
other procedures. 


The first PROCESS statement requests a 
listing of the external symbol dictionary 
for the object module compiled from 
procedure SECOND. The second PROCESS | 
statement includes the option N=PGM2, which 
causes the compiler to insert a linkage 
editor NAME statement at the end of the 
object module compiled from the procedure 
PRINT; since this option does not appear in 
the preceding PROCESS statement, the object 
modules for procedures SECOND and PRINT 
will be combined in a single load module 
(named PGM2) by the linkage editor. 


The third PROCESS statement names the 
load module that will contain the procedure 
THIRD, and also requests that only error, 
severe error, and termination error 
messages be listed by the compiler. 


The DD statement LKED.SYSLMOD overrides 
the corresponding statement in the 
cataloged procedure, and has the effect of 
requesting the linkage editor to place the 
load modules in the private library PUBPGM, 
from which they can later be called for 
execution. In Figure 5-8, this library is 
named again in the DD statement JOBLIB; a 
library specified by a DD statement of this 
name serves as an extension of the system 
program library for the duration of the job 
in which the statement appears. (Chapters 
6 and 12 discuss the linkage editor and 
program libraries, respectively.) 


Compile-time Processing 


The compile-time facilites of the (F) 
compiler are described in IBM System/360 
Operating System: PL/I (Е) Language 
Reference Manual. These facilities allow 
you to include in a PL/I program statements 
that, when they are executed by the 
preprocessor stage of the compiler, modify 
your source statements or cause source 
statements to be included in your program 
from a library. The following discussion 
supplements the information contained in 
the Language manual by providing some 
illustrations of the use of the 
preprocessor and explaining how to 
establish and use source statement 
libraries. 


//3J067PGEX JOB 


//COLE EXEC PLILFCL, PARM.PLIL=" SIZE=999999,N=PGM1,A‘, PARM. LKED="LIST’ 


//PLiL.SYSIN DD ж 
FIRST: PROC OPTIONS (MAIN) ; 
DO I=1250 TO 1500 BY 50; 
DO J=10, 15, 20; 
K-SQRT (I/2); 
PUT SKIP(2) DATA; 
END FIRST; 
* PROCESS ('EXTREF'); 
SECOND: PROC OPTIONS (MAIN); 
DCL PRINT ENTRY EXT, 
A(5) INIT(1,2,4,8,16), 
B(5) INIT(3,5,7,9,11), 
C(5,5); 
DO I-1 TO 5; 
DO J=1 TO 5; 
C(1,2)z12*A (I)/B(J); 
END; 
END; 
CALL PRINT (A,B,C); 
END SECOND; 
ж PROCESS ('N=PGM2'); 
PRINT: PROC (THOR, TVERT, ARRAY); 
DCL THOR (ж) , TVERT (*) , ARRAY (*, *); 
I=DIM(THOR, 1); 
PUT EDIT (THOR) (X(7), 
DO J=1 TO DIM(TVERT,1); 
PUT SKIP EDIT(TVERT(J), 
END PRINT; 
ж PROCESS ('N-PGM3,FE'); 
PROC OPTIONS (MAIN); 


THIRD: 
ON ENDFILE(SYSIN) GO TO FINISH; 
NEXT: GET DATA(A,B); 


C-A*8*B**2/3; 
PUT SKIP DATA; 
GO TO NEXT; 
FINISH: END THIRD; 
/% 


(І) Е(7,2)); 


(ARRAY(J,K) DO К-1 TO І)) (F(7,2)); 


//LKED.SYSLMOD DD UNIT=2311, VOLUME=SER=D186, DSNAME=PUBPGM, DISP=OLD 


Figure 5-7. 


INVOKING THE PREPROCESSOR 


The preprocessor stage of the compiler is 
executed only if you specify the option 
MACRO and include a DD statement with the 
name SYSUT3 in the compilation job step. 
The compiler uses the data set to hold the 
preprocessed source statements until 
compilation begins. The information that 
you must include in the DD statement is 
described under 'DD Statements,' earlier in 
this chapter. The standard cataloged 
procedures for compilation all include an 
appropriate DD statement. 


the term MACRO owes its origin to the 
similarity of some applications of the 
compile-time facilities to the macro 
languaqe available with such processors as 


An Example of Batched Processing 


the System/360 assembler. Such a macro 
language allows you to write a single 
instruction in your program to represent a 
sequence of instructions that have 
previously been defined, 


Three other compiler options, MACDCK, 
SOURCE2, and COMP, are meaningful only when 
you also specify the MACRO option. All are 
described earlier in this chapter. 


Figure 5-9 is a simple example of the 
use of the preprocessor to produce a source 
deck for a procedure SUBFUN; according to 
the value assigned to the preprocessor 
variable USE, the source statements will 
represent either a subroutine or a 
function. 
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//3067PGE1 JOB 


//JOBLIB DD UNIT-2311,VOLUME-SER-D186,DSNAME-PUBPGM,DISP-OLD 


7/31 EXEC PGM-PGM1 
//SXSPRINT DD SYSOUT-A 
4/32 EXEC PGM-PGM2 
//SYSPRINT DD SYSOUT-A 
//J3 EXEC PGM=PGM3 
.//SYSPRINT DD SYSOUT-A 
//SYSIN DD * 


A-27, B=42; A=39, B=17; А=15; B=19; A-12, B=7; 


/ж 


Figure 5-8. 


//3068PGEX JOB 


Execution of the Programs Compiled in Figure 5-7 


//CO EXEC PLIDFC, PARM. PL1D=" NOLOAD, NODECK, MACRO, MACDCK, NOCOMP' 


//PLÍiD.SYSIN DD * 
SUBFUN: PROC(CITY); 
DCL IN FILE RECORD, 
1 DATA, 
2 NAME CHAR(10), 
2 POP FIXED(7), 
CITY CHAR(10); 
*$DCL USE CHAR; 


AUSE-'SUB'; /* FOR FUNCTION, SUBSTITUTE XUSE-'FUN' */ 


OPEN FILE(IN); 

READ FILE(IN) INTO(DATA); 

IF NAME-CITY THEN DO; 

CLOSE FILE(IN); 

XIF USE-'FUN' %THEN XGO TO L1; 


NEXT: 


PUT FILE(SYSPRINT) SKIP LIST(DATA); 


*GO TO L2; 
RETURN(POP); END; 
ELSE GO TO NEXT; 
END SUBFUN; 


*L1 
*L2 


за "5 


/* 


Figure 5-9. 


THE *1NCLUDE STATEMENT 


IBM System/360 Operating System: PL/I (F) 


Lanquage Reference Manual describes how to 
use the &INCLUDE statement to incorporate 


source statements from a library into a 
PL/I source programs» (A library із а type 
of data set that can be used for the 
storage of other data sets, termed members. 
Thus, a set of source statements that you 
may wish to insert into a source program by 
means of a XINCLUDE statement must exist as 
a data set (member) within a library. 
Chapter 12 describes how to create a 
library and how to place members in it.) 


The XINCLUDE statement includes one or 
more pairs of identifiers. Each pair of 
identifiers specifies the name of a DD 
Statement that defines a library and, in 
parentheses, the name of a member of the 
library. For example, the statement: 


INCLUDE DD1 (INVERT) ,DD2 (LOOPX) 
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END; 


Using the Preprocessor to Create a Source Deck 


specifies that the source statements in 
member INVERT of the library defined by the 
DD statement DD1, and those in member LOOPX 
of the library defined by DD2, should be 
inserted into the source program. The 
compilation job step must include 
appropriate DD statements. 


If you omit the ddname from any pair of 
identifiers in a %INCLUDE statement, the 
preprocessor assumes the ddname SYSLIB. Іп 
such a case, you must include a DD 
statement with the name SYSLIB. (Note that 
the IBM-supplied cataloged procedures do 
not include a DD statement with this name 
in the compilation job step.) 


Source statements in a library must be 
in the form of fixed-length records of not 
more than 100 bytes. The records can be 
blocked; the maximum blocking factor is 5. 
The source margin for input records 
specified by the SORMGIN option applies 
equally to included statements. 


//J069PGEX JOB 
//STEP1 EXEC PGM=IEBUPDTE, PARM=NEW 
//SYSPRINT DD SYSOUT-A 


//SYSUT2 DD DSNAME-NEWLIB,DISP-(NEW,KEEP),UNIT-2311, 


// VOLUME-SER-D186,SPACE-(CYL, (4,,1)) 
//SYSIN DD * 
./ ADD NAME=FUN,LEVEL=00, SOURCE=0 


SUBFUN: PROC(CITY); 
DCL IN FILE RECORD, 
1 DATA, 
2 NAME CHAR(10), 
2 POP FIXED DEC(7), 
CITY CHAR(10); 
OPEN FILE(IN); 
READ FILE(IN) INTO(DATA); 
IF NAME-CITY THEN DO; 
CLOSE FILE(IN); 
RETURN (POP); 
END; 
ELSE GO TO NEXT; 
END SUBFUN; 
./ ЕМ ООР 
/* 7 


NEXT: 


Figure 5-10. 


You can use the operating system utility 
program IEBUPDTE to place source statements 
in a library. This facility is described 


in the publication IBM.System/360 Operating 
System, Ultilities. 


Examples 


Figures 5-10 and 5-11 are simple 
illustrations of how to place source 
Statements in a library and how to include 
these statements in a source program. 


The program in Figure 5-10 places the 
source statements of the procedure SUBFUN 
in a new library. In this example, the 
source statements will represent a function 
procedure. 


Figure 5-11 illustrates the use of a 
*INCLUDE statement to include the source 
Statements for SUBFUN in the procedure 
TEST. The library NEWLIB is defined in the 
DD statement PLIL.SYSLIB, which is added to 
the statements of the cataloged procedure 
PLILFCLG for this job. Since the source 


Statement library is defined by a statement 


with the name SYSLIB, the *%INCLUDE 
Statement need not include a ddname. 


Dynamic Invocation of the Compiler 


Note: The following discussion assumes that 
you are familiar with IBM System/360 
assembler language. 


Placing Source Statements in a New Library 


You can invoke the (F) compiler from an 
assembler language program by using one of 
the macro instructions CALL, LINK, XCTL, or 
ATTACH. If you use the XCTL macro 
instruction, you cannot specify any options 
for the compilation; the default options 
will apply. However, if you use CALL, 
LINK, or ATTACH, you can specify: 


1. Options for the compilation. 


2. Alternative ddnames for the data sets 
to be used by the compiler. 


3. The number of the first page of the 
compiler listing. 


Code the macro instructions as follows: 


| 
| 
| 
| 
! 
i 
! 
і 
| 
| 
| 
І 
| 
| 
і 
| 
| 
і 
| 
і 
і 
i 
| 
| 
! 
| 
і 
| 
і 
| 
= 


T 
Operation| 


t 
[symbol] |ТЕМАА, (foptionlist] 
| | Г. Га4папе115%1 


| £,pagenbr]]),VL 
| 


| PARAM- (Loptionlist] 


| 
| 
| 
| 
| 
| |1, {ddnamelist] 
| 


-}—————— —— + —4 


| 
| 
| 
| EP-IEMAA, | 
| 
| 
| 
4 


=. 


For а full explanation of these macro 
instructions, refer to IBM System/360 
Operating System: Supervisor and Lata 
Management Macro Instructions. 
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//J069PGE1 JOB 
//COLEEX EXEC PL1ILFCLG,PARM.PL1L-'MACRO,LOAD,NODECK',PARM.LKED-'' 
//PLiL.SYSLIB DD UNIT-2311,VOLUME-SER-D186 ,DSNAME=NEWLIB , DISP=OLD 
//PLIL.SYSIN DD * 


TEST: PROC OPTIONS (MAIN); 
DCL NAME CHAR(10), 
NO FIXED(7); 
ON ENDFILE(SYSIN) GO TO FINISH; 
AGAIN: GET FILE(SYSIN) LIST(NAME); 


NO-SUBFUN(NAME) ; 
PUT DATA(NAME,NO); 
GO TO AGAIN; 
*$INCLUDE FUN; 


FINISH: END TEST; 


/* 


//GO.IN DD UNIT-2311,VOLUME-SER-D186,DSNAME-POPLIST,DISP-OLD 
//GO. SYSIN DD * 
' ABERDEEN' 
' DONCASTER' 


/* 


Figure 5-11. 


The entry-point name IEMAA is the 


symbolic name of the (F) compiler. 
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The address parameters are: 


'optionlist': the address of a 
variable-length list of compiler 
options. The list must begin on a 
halfword boundary. The first two bytes 
contain a binary count of the number of 
bytes in the list (excluding the count 
field). Options in the list must be 
separated by commas; the list must not 
include blanks or zeros. 


'ddnamelist': the address of a 
variable-length list of alternative 
names for the data sets used by the 
compiler. The list must begin on a 
halfword boundary. The first two bytes 
contain a binary count of the number of 
bytes in the list (excluding the count 
field). Each entry in the list must 
occupy an 8-byte field; the sequence of 
entries is as follows: 


Alternative Name 


ty 
3 
; 


SYSLIN 

not applicable 
not applicable 
SYSLIB 

SYSIN 

SYSPRINT 
SYSPUNCH 
SYSUT1 

not applicable 
SYSUT3 


осооо-чолгоомв 


HB 


Including Source Statements from a Library 


If a ddname is shorter than eight 
bytes, fill the field on the right with 
blanks. If you omit an entry, fill its 
field with binary zeros; however, you 
may entirely omit entries at the end of 
the list. 


"pagenbr': the address of a 6-byte 
field containing the number is to be 
used as the first page number of the 
compiler listing. The page number must 
begin on a halfword boundary, and the 
first halfword must contain the binary 
value ! (the length of the remainder of 
the field). The other four bytes 
contain the page number in binary form. 


VL or VL-1: specifies that the sign bit 
in the last word of the parameter list 
is to be set to 1. 
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Introduction 


An object module produced by the compiler 
requires further processing before it is 
suitable for execution. It must be 
converted into a load module which can be 
loaded into main storage and executed. 
Conversion and execution is performed, in 
either one or two job steps, by one of two 
operating system programs, the linkage 
editor and the linkage loader. This 
chapter describes these programs and the 
circumstances in which each can be used to 
the best advantage. Both programs are 


fully described in IBM System/360 Operating 
System: Linkage Editor and Loader. 


The two linkage programs require the 
same kind of input, perform the same basic 
process (the resolution of external 
references within the object module), and 
produce the same result, that is, a load 
module for execution. They differ in the 
way they are used and in what they do with 
the load modules they create. 


Linkage loader: Execution by the linkage 
loader requires one job step, in which a 
load module is created, loaded into main 
storage, and executed. 


Linkage editor: The linkage editor does not 
cause the load modules it creates to be 
loaded and executed. Instead, each load 
module is placed in a program library; a 
further job step is required for the 
loading and execution of such a load 
module. 


CHOICE OF LINKAGE PROGRAM 


The two programs are compatible in the 
following respects: 


1. А11 object modules acceptable as input 
to a linkage editor are acceptable as 
input to a linkage loader. 


2. А11 load modules produced by a linkage 
editor, except those produced with the 
NE (not editable) attribute are 
acceptable as input to a linkage 
loader. (When the NE attribute is 
produced, the resulting load module 
has no external symbol dictionary and 
cannot be reprocessed; the external 
symbol dictionary is discussed below 
in the linkage-editor section.) 


If you want to keep the load module, or 
use facilities that are not available to 
the linkage loader, such as providing an 
overlay structure, you must use the linkage 
editor. The linkage loader is essentially 
a one-shot program checkout facility with 
limited application. 


The differences between the two programs 
can be summarized as: 


Linkage editor: 


1. Does not cause the load module to be 
executed. 


2. Сап produce more than one load module 
from a batched compilation. 


3. Always places load modules in a 
library, from which they can be loaded 
for execution in a later job or job 
step. 


4. Can accept input from other sources as 
well as the primary input source. 


5. Can provide an overlay structure for a 
program. 


6. Can be used to modify existing load 
modules. 


Linkage loader: 


1. Requires only one job step for 
processing, loading, and execution. 


2. Can only produce one load module from 
a batched compilation. 


3. Always loads this module into main 
storage and executes it. 


4. The load module exists only for the 
duration of the job step. 


5. Can accept input only from the primary 
source. 


6. Cannot provide an overlay structure 
for a program, or modify existing load 
modules. 


Performance Considerations 


The execution time of a load module is the 
same whether it is created by the linkage 
editor or the linkage loader. However, the 
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editing and loading time for a module is 
greatly reduced when the linkage loader is 
used. This is achieved by reductions in: 


1. Scheduling time: The object program is 
processed, loaded, and executed in one 
job step. 


2. Processing time: The linkage loader 
can process a module in approximately 
half the time required by the linkage 
editor, because: 


a. Linkage editor intermediate and 
I/O operations are eliminated. 


b. The I/O time for reading modules 
can be reduced by the use of 
improved buffering techniques and 
chained scheduling. 


3. Amount of auxiliary storage: If the 
linkage loader input is the object 


module in a compile-load-and-go job, 
the auxiliary storage that would be 
required by the linkage editor 
intermediate and output data sets is 
not needed. If the linkage loader 
input is taken from modules 
link-edited into a library, the 
auxiliary storage requirements for the 
library can be reduced by storing the 
modules with unresolved library 
references; these references can be 
resolved at load time. 


Linkage Editor 


The linkage editor is an operating system 
service program that creates load modules. 
It always places the load modules in a 
library, from which the job scheduler can 
call them for execution. 


The input to the linkage editor can 
include object modules, load modules, and 
control statements that specify how the 
input should be processed. The output from 
the linkage editor comprises one or more 
load modules. 


In addition to its primary function of 
converting object modules into load 
modules, the linkage editor can also be 
used to: 


e Combine previously link-edited load 
modules 


e Modify existing load modules 
e Construct an overlay program 
A module constructed as an overlay 


program can be executed in an area of main 
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storage that is not large enough to contain 
the entire module at one time. The linkage 
editor subdivides the module so that it can 
be loaded and executed segment by segment. 


MODULE STRUCTURE 


Object and load modules have identical 
structures. They differ only in that a 
load module has been. processed by the 
linkage editor and stored in a library with 
certain descriptive information required by 
the job scheduler; in particular, the 
module is marked as 'executable' or 'not 
executable.' A module comprises three types 
of information: 


e Text (TXT) 
e External symbol dictionary (ESD) 


e Relocation dictionary (RLD) 


Text 


The text of an object or load module 
comprises the machine instructions that 
represent the program to be executed. 

These instructions are grouped in blocks 
termed control sections; a control section 
is the smallest separately executable unit 
within a program. An object module created 
by the PL/I (F) compiler includes the 
following control sections: 


e Control section for the shared library 
transfer vector. (This is an area used 
for communication between library 
modules in the PL/I shared library and 
those in the partition or region.) 


e Program control section: contains the 
executable part of the program. 


e Static internal control section: 
contains storage for all variables 
declared STATIC INTERNAL and for 
constants and static system blocks. 


e Control sections termed common areas: 
one common area is created for each 
EXTERNAL file name and for each 
non-string element variable declared 
STATIC EXTERNAL without the INITIAL 
attribute. 


e IHENTRY: execution of a PL/I program 

- always starts with this control 
section, which passes control to the 
appropriate initialization routine; 
when initialization is complete, 
control passes to the address stored in 
the control section IHEMAIN. 


e IHEMAIN: for a procedure with the MAIN 
option, contains the starting address 
for execution of the PL/I program. 


e Control sections for PL/I library 
modules link-edited with the program. 


External Symbol.Dictionary 


The external symbol dictionary (ESD) 
contains a list of all the external symbols 
that appear in the module. Ап external 
symbol is a name that can be referred to in 
a control section other than the one in 
which it is defined. 


The names of the control sections are 
themselves external symbols, as are the 
names of variables declared with the 
EXTERNAL attribute and entry names in the 
external procedure of a PL/I program. 
References to external symbols defined 
elsewhere are also considered to be 
external symbols; they are known as 
external references. Such external 
references in a PL/I object module always 
inciude the names of the PL/I subroutine 
library modules that will be required for 
the execution of the program. They may 
also include calls to your own subroutines 
that are not part of the PL/I subroutine 
library, nor already included within the 
object module. Part of the linkage 
editor's job is to locate the subroutines 
referred to, and to include them in the 
load module that will be executed. 


Relocation Dictionary 


At execution time, the machine instructions 
in a load module (including the 
instructions generated by the PL/I (F) 
compiler) use two methods of addressing 
locations in main storage: 


1. Names used only within a control 
Section have addresses related to the 
Starting point of the control section. 


2. Other names (external names) have 
absolute addresses so that any control 
section can refer to them. 


The relocation dictionary (RLD) contains 
information that enables the absolute 
addresses to be established when a module 
is loaded into main storage for execution. 
These addresses cannot be determined 
earlier because the starting address is not 
known until the module is loaded. The 
linkage editor consolidates the RLD entries 
in the input modules into a single 


relocation dictionary when it creates a 
load module. 


LINKAGE EDITOR PROCESSING 


A PL/I compiled program cannot be executed 
until the appropriate PL/I subroutine 
library modules have been incorporated. 
The library modules are included in two 
ways: 


1. By incorporation in the load module 
during linkage editing. 


2. By dynamic call during execution. 


The first method is used for most of the 
PL/I subroutine library modules; the 
following paragraphs describe how the 
linkage editor locates the modules. The 
second is used for modules concerned with 
input and output (including those used for 
opening and closing files), and for the 
modules that issue the execution time error 
messages. Appendix E lists all the library 
modules, indicating which are loaded 
dynamically. 


In its basic processing mode, which is 
illustrated in Figure 6-1, the linkage 
editor accepts data from its primary input 
source, a data set defined by a DD 
statement named SYSLIN. For a PL/I 
program, this input data is the object 
module created by the compiler. The 
linkage editor uses the external symbol 
dictionary in the input module to determine 
whether the module includes any external 
references for which there are no 
corresponding external symbols in the 
module: it attempts to resolve such 
references by a method termed automatic 


library call. 


-External symbol resolution by automatic 
library call involves a search of the 
library defined by a DD statement named 
SYSLIB; for a PL/I program this will be the 
PL/I subroutine library (SYS1.PL1LIB). The 
linkage editor locates the modules in which 
the external symbols are defined (if such 
modules exist), and incorporates them in 
the load module it is creating. 


The linkage editor always places the new 
load module in the library defined by the 
DD statement named SYSLMOD. 


Any linkage editor processing additional 
to the basic mode described above must be 
requested by linkage editor control 
Statements placed in the primary input. 
These control statements are described at 
the end of this chapter under ‘Additional 
Processing." 
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Figure 6-1. 


Main Storage Requirements 


Two levels of the linkage editor are 
currently available; each has a number of 
different versions. The E-level is 
available in 15K, 18K, and 20K versions; 
the F-level is available in 44K, 88K, and 
128K versions. The capabilities and 
capacities of each version are described in 


System/360 Operating System: Linkage Editor 


and Loader. 


Job Control Language for Link-Editing 


Although you will probably use cataloged 
procedures rather than supply all the job 
control statements required for a job step 
that invokes the linkage editor, it is 
necessary to be familiar with these 
statements so that you can make the best 
use of the linkage editor and, if 
necessary, modify the statements of the 
cataloged procedures. 


the IBM-supplied PL/I cataloged 
procedures that refer to the linkage editor 
are: 


PLILFCL Compile and link-edit 
PLILFCLG Compile, link-edit, execute 
PLiLFLG Link-edit and execute 


Chapter 8 discusses these cataloged 
procedures and describes how to modify or 
override the statements they contain. 


The following paragraphs describe the 
essential job control statements for 
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Basic Linkage Editor Processing 


link-editing; they use statements from the 
PL/I cataloged procedures as typical 
examples. Appendix B contains a 
description of the parameters of the DD 
Statements that are referred to. 


EXEC STATEMENT 


The name IEWL is an alias for the 
linkage-editor program. If you use the 
name IEWL in the EXEC statement that 
invokes the linkage editor, the job 
scheduler will load the version to which 
this name corresponds. Normally this would 
be either the one which is the largest 
available within your operating system, or 
the one which is the most suitable for your 
job. You should consult your systems 
programmer if you need to know what 
versions of the linkage editor are 
available at your installation, and how to 
invoke them. The basic EXEC statement is: 


// EXEC PGM-IEWL 


By using the PARM parameter of the EXEC 
Statement, you can select one or more of 
the optional facilities offered by the 
linkage editor; these facilities are 
discussed under ‘Optional Facilities, ' 
below. The use of the other parameters of 
the EXEC statement is as described in 
Chapter 7, ‘Executing the Load Module.' 


SSS ee SS ee ee ee a er 
| ddname | Function | Possible device classest | 
nece cos +-------—------------—-----------—-—--—-—-—--—---------—-------- 
| SYSLIN | Primary input data, normally the | SYSSQ or the input job 

| | output from the compiler | stream (specified by DD *) | 
----------- %-----------------------------------1----------------------------1 
| SYSLMOD | Output for load module | SYSDA | 
----------- %----------------------------------4----------------------------1 
| 5Ү5071 | Additional workspace | SYSDA | 
—— —— RR: nnn nnn 
| SYSPRINT | Listing, including diagnostic | SYSSQ or SYSOUT device | 
| | messages | | 
----------- ————————— m — — € 1 
| SYSLIB | Automatic call library (usually | SYSDA | 
| | the PL/I subroutine library) | | 
----------- Mt OP н ыны ee Sats al Далалы Кышны ынын ышы ы Сы Шамды ысы 1 
|*sYssQ Magnetic-tape or direct-access device | 


| SYSDA Direct-access device 


Figure 6-2. Linkage-Editor Data Sets 


DD STATEMENTS 


The linkage editor always requires four 
standard data sets. You must define these 
data sets in DD statements with the 
standard names SYSLIN, SYSLMOD, SYSUT1, and 
SYSPRINT. 


A fifth data set, defined by a DD 
statement with the name SYSLIB, is 
necessary if you want to use the automatic 
library call facility. The five standard 
data sets are summarized in Figure 6-2. 


Primary Input (SYSLIN) 


The primary input source must be a 
CONSECUTIVE data set containing one or more 
object modules and/or linkage-editor 
control statements; a load module cannot be 
part of the primary input, although it can 
be introduced by the control statement 
INCLUDE. For a PL/I program, the primary 
input source is usually a data set 
containing an object module created by the 
compiler. The data set may be on 
magnetic-tape or on a direct-access device, 
or you can include it in the input job 
stream. In all cases, the input must be in 
the form of 80-byte F-format records. 


The cataloged procedure PLILFLG includes 
the DD statement: 


//SYSLIN DD DDNAME-SYSIN 


This statement specifies that the 
primary input data set must be defined in а 
DD statement named SYSIN. If you use this 
catalogue procedure, you must supply this 
DD statement, specifying the qualified 
ddname LKED.SYSIN. For example, to 


link-edit and execute a PL/I object module 
placed in the input stream, you can use the 
following statements: 


//LEGO JOB 
// EXEC PLILFLG 
//LKED.SYSIN DD * 


Insert here the object module to be 
link edited and executed 


/* 
Note: 


1. If modules with identical names appear 
in the primary input, the linkage 
editor processes only the first of 
them. 


2. You can include load modules or object 
modules from one or more libraries in 
the primary input by using a linkage 
editor INCLUDE statement; refer to 
"Additional Processing,‘ below. 


Output (SYSLMOD) 


The linkage editor always places the load 
modules that it creates in a library 
defined by a DD statement with the name 
SYSLMOD. (A library is a type of 
direct-access data set that can be used for 
the storage of other consecutive data sets, 
frequently load modules); the data sets 
stored in a library are termed members. To 
store a member in a library, include the 
parameter DSNAME=dsname(membername) in the 
DD statement that defines the library; 
replace 'dsname' with the name of the 
library, and 'membername' with the name of 
the member.) 
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The PL/I cataloged procedures include 
the following DD statement: 


//SYSLMOD DD DSNAME=&&GOSET (GO), 


EA DISP= (MOD, PASS), 
/” UNIT=SYSDA, 

/” SPACE=(1024, 

// (50,20,11) ,RLSE) 


This statement defines а temporary 
library named &&GOSET and assigns the name 
GO to the load module that the linkage 
editor will place in it. If you want to 
retain the load module after execution of 
your job, you must replace this DD 
statement with one that defines your own 
permanent library. For example, assume 
that you have a library called USLIB on 
2311 disk pack serial number 371; to name 
the load module MOD1 and place it in this 
library, code: 


//LKED.SYSLMOD DD DSNAME-USLIB (MOD1), 


// UNIT=2311, 
// VOLUME=SER=371, 
^/ DISP=OLD 


The size of a load module must not 
exceed 512K bytes (512 * 1024 bytes) for 
programs executed under PCP or MFT; a much 
larger load module is permitted for MVT. 
The SPACE parameter in the DD statement 
SYSLMOD used in the PL/I cataloged 
procedures allows for an initial allocation 
of 50K bytes and, if necessary, 15 further 
allocations of 20K bytes (a total of 350K 
bytes); this should suffice for most 
applications. 


Workspace (SYSUT1) 


The linkage editor requires a temporary 
data set on a direct-access device for use 
as extra workspace. The DD statement that 
defines this data set must have the name 
SYSUT1. The following statement contains 
the essential parameters: 


//SYSUT1 DD UNIT=SYSDA, 
/” SPACE=(1024, (200,20)) 


You should never need to modify the DD 
Statement 5Ү50Т1 in a cataloged procedure. 


If your installation supports dedicated 
workfiles, these can be used to provide 
workspace for the link-edit job step. For 
details of these workfiles and their use, 
see ‘Workspace (SYSUT1,SYSUT3)' in Chapter 
5, ‘Compilation. ' 
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Listing. (SYSPRINT) 


The linkage editor generates a listing that 
includes reference tables relating to the 
load modules that it produces and also, 
when necessary, diagnostic messages. The 
information that may appear is described 
under 'Listing,' below. 


You must define the data set on which 
you wish the linkage editor to place its 
listing in a DD statement named SYSPRINT. 
The data set must have CONSECUTIVE 
organization. Although the listing is 
usually printed, it can be written on any 
type of magnetic-tape or direct-access 
device. For printed output, the following 
Statement will suffice: 


//SXSPRINT DD SYSOUT-A 


Automatic Call Library (SYSLIB) 


If you want the linkage editor to resolve 
external references by automatic library 
call, you must use a DD statement with the 
name SYSLIB to define the library which the 
linkage editor must search. You can cause 
the linkage editor to search more than one 
library by concatenating the DD statements 
that define the libraries: include the 
ddname SYSLIB in the first statement and 
leave the name fields of the following 
Statements blank. 


The link-editing of a PL/I object module 
normaily requires the presence of a SYSLIB 
Statement that refers to the PL/I 
subroutine library (SYS1.PL1LIDB). 


The automatic call library can contain 
load modules or object modules, but not 
both. 


EXAMPLE 


The following example is a typical sequence 
of job control statements for link-editing 
a PL/I object module. The DD statement 
SYSLIN indicates that the object module 
will follow immediately in the input 
stream; for example, it might be an object 
deck created by invoking the PL/I (F) 
compiler with the DECK option (see Chapter 
5). The DD statement SYSLMOD specifies 
that the linkage editor should name the new 
load module LKEX, and that it should place 
it in a new library named MODLIB; the 
presence of the SPACE parameter and the 
keyword NEW in the DISP parameter indicates 
to the operating system that this DD 


statement requests the creation of a new 
library. 


//LINK JOB 
// EXEC PGM-IEWL 
//SYSLMOD DD UNIT-2311, 


^/ VOLUME=SER=D186, 

/” DSNAME-MODLIB(LKEX), 
^/ DISP= (NEW, KEEP), 

^/ SPACE= (CYL, (10,10,1)) 
//SYSUTL DD UNIT-2311, 

// ЅРАСЕ= (1024, (200,20)) 


//SYSPRINT DD SYSOUT=A 
//SYSLIB DD DSNAME=SYS1.PL1LIB, 
ИИ DISP=OLD 

//SYSLIN DD * 


Insert here the object module to be 
link-edited | 


/* 


Optional Facilities 


The linkage editor provides a number of 
optional facilities that you can select by 
including the appropriate keywords from the 
following list in the PARM parameter of the 
EXEC statement that invokes it: 


LIST 
MAP or XREF 
LET or XCAL 
МСАТ, 
SIZE 


The PARM parameter is a keyword 
parameter. Code PARM= followed by the list 
of options, separating the names of the 
options with commas and enclosing the list 
within single quotation marks. For 
examples: 


// EXEC PGM-IEWL,PARM-'LIST,MAP' 


If you are using a cataloged procedure, 
you must include the PARM parameter in the 
EXEC statement that invokes the procedure. 
and qualify the keyword PARM with the name 
of the procedure step that invokes the 
linkage editor. For example: 


// EXEC PLILFCLG,PARM.LKED-'LIST,XREF' 


*he following paragraphs describe the 
optional facilities. The listing produced 
by the options LIST, MAP, and XREF are 
described under 'Listing,' below. 


LIST 


The LIST option specifies that all linkage 
editor control statements processed should 

be listed in the data set defined by the DD 
Statement SYSPRINT. 


MAP 


The MAP option requests the linkage editor 
to produce a map of the load module; this 
map indicates the relative locations and 
lengths of the control sections in the 
module. 


XREF 


The XREF option requests the linkage editor 
to produce a map of the load module and a 
cross-reference list of all the external 
references in each control section.  XREF 
includes MAP. 


LET 


The LET option requests the linkage editor 
to mark the load module 'executable,' even 
if slight errors or abnormal conditions are 


found during link-editing. 


XCAL 


The XCAL option requests the linkage editor 
to mark the load module as executable even 
if errors or abnormal conditions, including 
improper branches between control sections, 
are found during link-editing.  XCAL, which 
includes LET, applies only to an overlay 
module. 


NCAL 


The NCAL option specifies that no external 
references should be resolved by automatic 
library call. However, the load module is 
marked 'executable' (providing there are no 
errors). 


You can use the NCAL option to conserve 
Storage space in private libraries since, 
by preventing the resolution of external 
references during link-editing, you can 
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store PL/I load modules without the 
relevant PL/I library subroutines; the DD 
statement SYSLIB is not required. Before 
executing such load modules, you must 
link-edit them again to resolve the 
external references, but the load module 
thus created need exist only while it is 
being executed. You can use this technique 
to combine separately compiled PL/I 
routines in a single load module. 


SIZE 


The SIZE option specifies the amount of 
main storage, in bytes, to be allocated to 
the linkage editor; it applies only to the 
F-level linkage editor. Code the SIZE 
option as a keyword parameter with the 
following format: 


SIZE= (valuel, value2) 


For 'valuel' substitute a decimal 
integer number representing the number of 
bytes of main storage to be allocated to 
the linkage editor, including the 
allocation for the load module buffer 
specified in value2. 


For 'value2' substitute a decimal 
integer number representing the number of 
bytes of main storage to be allocated for 
the load module buffer. The linkage editor 
uses the load module buffer when it reads 
in load module records, and also to retain 
information for subsequent writing of 
output records. 


You can specify both values as the 
actual number of bytes (for example, 
SIZE-(85056,6145)) or as a multiple of 1024 
bytes (for example, SIZE=(44K,6K)). Valuel 
must exceed value2; the following table 
lists the minimum and maximum values and 
the minimum difference between valuel and 
value2 for the three designs of the F-level 
linkage editor: 


Linkage Valuel Value2 Valuel - 
Editor Value2 
Min Max Min Max (Min) 
44K 44K - 6K 100K 38K 
88K 88K - 6K 100K UK 
128K 128K - 6K 100K 66K 


If you specify SIZE incorrectly, or if 
you omit the parameter, a default value set 
at system generation is used. 
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‚ Listing 


The linkage editor always lists, in the 
data set defined by the DD statement 
SYSPRINT, any errors or abnormal conditions 
that it discovers. It will also list the 
following additional information if you 
specify the appropriate options: 


Option Required 
LIST 


Listings . 
Control statements 
processed by the 
linkage editor 


Map of the load module MAP or XREF 


Cross-reference table XREF 
of external references 


The following paragraphs describe the 
elements of the listing; the sequence in 
which they appear differs between the 
E-level and F-level linkage editors. 
Appendix A includes a fully annotated 
example of a linkage editor listing. 


A statement of the level of linkage 
editor and the options specified appears at 
the head of the listing. 


CONTROL STATEMENTS AND ERRORS 


During processing, the linkage editor notes 
the occurrence of error and other 
conditions as it encounters them; these 
notes appear as a list immediately after 
the heading statement. If you specify the 
LIST option, this list also includes all 
control statements processed by the linkage 
editor. 


Each entry in the list comprises a 
7-character code followed by the name of 
the control statement to which the code 
applies. For a control statement, the code 
is always IEWO000. All other codes refer 
to explanatory, error, or warning messages; 
each code comprises: 


1. The letters IEW, which identify 
linkage editor messages. 
2. А 3-digit message number. 


3. А 1-digit severity code as follows: 


Ссае Meaning 


0 A condition which will not cause 
an error during execution. The 
output module is marked 
'executable.' 


1 A condition that may cause an 
error during execution. The 
output module is marked 
'executable.' 


2 An error that could make 
execution impossible. The output 
module is marked 'not executable' 
unless LET is specified. 


3 An error that will make execution 
impossible. The output module is 
marked ‘not executable.' 


4 An error condition from which no 
recovery is possible. Linkage 
editor processing is terminated, 
and no output other than 
diagnostic messages is produced. 


At the end of the list of messages, the 
E-level linkage editor places a statement 
of the disposition of the load module; the 
F-level linkage editor places this 
statement at the end of the listing, just 
before the Diagnostic Message Directory . 
(see below). The disposition statements, 
with one exception, are self-explanatory; 
the exception is: 


*:Acdckmodulename DOES NOT EXIST BUT HAS 
` BEEN ADDED TO DATA SET 


The message normally appears when a request 
has been made for the linkage editor to 
substitute the new load module for an 
existing module. It indicates that the 
linkage editor was unable to locate the 
existing module, but has placed the new 
module in the data set named in the DD 
Statement SYSLMOD. ТЕ you name a new 
module by including a name in the DSNAME 
parameter of the DD statement SYSLMOD, the 
linkage editor assumes that you want to 
‘replace an existing module (even if the 
data set is new). 


DIAGNOSTIC MESSAGE DIRECTORY 


When processing of a load module has been 
completed, the linkage editor lists in full 
all the diagnostic messages whose numbers 
appear in the preceding list.  IBM 
System/360 Operating System: Linkage Editor 
and Loader contains explanations of all the 
linkage editor messages and their probable 
causes, and suggests how to cope with them. 





The warning message IEW0O461 frequently 
appears in the linkage editor listing for a 
PL/I program. It refers to external 
references that have not been resolved 
because NCAL was specified (in this 
instance, in a linkage editor LIBRARY 
Statement). The references occur in PL/I 
library subroutines that are link-edited 
with your program as a result of automatic 
library call. Some library modules may, in 
turn, call other library modules. Any 
library module that calls a secondary 
module that may only occasionally be 
required is preceded by a LIBRARY 
Statement. This specifies that the 
references to the secondary modules should 
not be resolved unless these modules are 
already part of the input to the new load 
module, that is, they are external 
references. For those secondary modules 
that are required, the compiler generates 
another external symbol dictionary 
containing alternative names for the 
modules. These new references can be 
resolved, and the required modules are 
placed in the new load module. If the 
secondary modules in turn call other 
modules, the process is repeated. 


MODULE MAP 


The linkage editor listing includes a 
module map only if you specify the options 
MAP or XREF. The map lists all the control 
sections in the output module and all the 
entry names in each control section. The 
control sections are listed in order of 
appearance in the load module; alongside 
each control section name is its address 
relative to the start of the load moduie 
(address 0) and its length in bytes. The 
entry points within the load module appear 
on the printed listing below and to the 
right of the control sections in which they 
are defined; each entry point name is | 
accompanied by its address relative to the 
start of the load module. 


Each control section that is included by 
automatic library call is indicated by an 
asterisk. For an overlay module, the 
control sections are arranged by segment in 
the order in which they were specified. 


After the control sections, the module 
map lists the pseudo-registers established 
by the compiler. Pseudo-registers are 
fields in a communications area, the 
pseudo-register vector (PRV), used by the 
PL/I library subroutines and compiled code 
during execution of a PL/I program. The 
storage occupied by the PRV is not 
allocated until the start of execution of a 
PL/I program; therefore, it does not form 
part of the load module. The addresses 
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given in the list of pseudo-registers are 
relative to the start of the PRV. 


At the end of the module map, the 
linkage editor supplies the оона 
information: 


1. Тһе length of the PRV. 


2. The relative address of the 
instruction with which execution of 
the load module will commence (ENTRY 
ADDRESS). 


3. Тһе total length of the module. For 
an overlay module, the length is that 
of the longest path. 


All the addresses and lengths given in 
the module map and associated information 
are in hexadecimal form. 


 CROSS-REFERENCE TABLE 


The linkage editor listing includes 
cross-reference table only if you dM 
the option XREF. This option produces a 
listing that comprises all the information 
described under 'Module Map,' above, 
together with a cross-reference table of 
external references. The table lists the 
location of each reference within the load 
module, the symbol to which the reference 
refers, and the name of the control section 
in which the symbol is defined. 


For an overlay module, a cross-reference 
table is provided for each segment. It 
includes the number of the segment in WHICH 
each symbol is defined. 


_ Unresolved symbols are identified in the 
cross-reference table by the entry 
SUNRESOLVED. However, if a symbol was not 
resolved owing to the use of the NCAL 
option or a LIBRARY statement, it is 
identified by S$NEVER-CALL. 


RETURN CODE 


The linkage editor returns a completion 
code to the operating system to indicate 
the degree of success it achieved. This 
code appears in the job scheduler END OF 
STEP message as 'RETURN CODE.' The code is 
derived by multiplying the highest 
diagnostic message severity code by four. 
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code Meaning 

0000 Normal completion 

0004 Warning, but execution should be 
success ful 

0008 Errors, execution may fail 

0012 Severe errors, execution 
impossible 

0016 Termination error 


The code 0004 almost invariably appears 
after a PL/I program has been link-edited, 
because some external references in the 
PL/I library subroutines have not been 
resolved. (Refer to 'Diagnostic Message 
Directory," above.) 


Additional Processing 


The basic function of the linkage editor is 
to create a single load module from the 
data that it reads from its primary input 
source, but it has several other facilities 
that you can call upon by using linkage 
editor control statements. The use of 
those statements of particular relevance to 
a PL/I program is described under 
functional headings, below. А11 the 
linkage editor control statements are fully 


described in IBM System/360 Operating 
System: Linkage Editor and Loader. 


FORMAT OF CONTROL STATEMENTS 


A linkage editor control statement is an 
80-byte record that contains two fields. 
The operation field specifies the operation 
required of the linkage editor; it must be 
preceded and followed by at least one blank 
character. The operand field names the 
control sections, data sets, or modules 
that are to be processed, and it may 
contain symbols to indicate the manner of 
processing; the field consists of one or 
more parameters separated by commas. Some 
control statements may have multiple 
operand fields separated by commas. 


The position of a control statement in 
the linkage editor input depends on its 
function. 


In the following descriptions of the 
control statements, items within brackets 
{ ] are optional; you may omit them at your 
discretion. 


MODULE NAME 


A load module must have a name so that the 
linkage editor and the job scheduler can 
identify it. A name comprises up to seven 
characters, the first of which must be 
alphabetic. 


You can name a load module in two ways: 


1. If you are creating a single load 
module, it is sufficient to include 
its name as a member in the DSNAME 
parameter of the DD statement SYSLMOD. 


2. ТЕ you are creating two or more load 
modules in a single execution of the 
linkage editor, you will need to use 
the NAME statement. (The PL/I (F) 
compiler can supply the NAME 
statements when you use the 
batch-compilation feature; see Chapter 
5.) 


The format of the NAME statement is: 
NAME membername [(R)] 


For 'membername' substitute the name of 
the module.  (R), if present, signifies 
that the load module is to replace an 
existing load module of the same name in 
the data set defined by the DD statement 
SYSLMOD. 


The NAME statement must appear in the 
primary input to the linkage editor (the 
data set defined by the DD statement 
SYSLIN); if it appears elsewhere, the 
linkage editor ignores it. The statement 
must follow immediately after the last 
input module that will form part of the 
load module it names (or after the INCLUDE 
Statement that specifies the last module.) 


Alternative Names 


You can use the ALIAS statement to give a 
load module an alternative name; a load 
module can have as many as sixteen aliases 
in addition to the name given to it in a 
SYSLMOD DD statement or by a NAME 
statement. 


the format of the ALIAS statement is: 

ALIAS symbol 

For 'symbol' substitute any name of up 
to seven characters; the first character 


must be alphabetic. You can include more 
` than one name in an ALIAS statement; 


separate the names by commas, for example: 
ALIAS FEE,FIE,FOE,FUM 


An ALIAS statement can be placed before, 
between, or after the modules or other 
control statements that are being processed 
to form a new load module, but it must 
precede the NAME statement that specifies 
the primary name of the new module. 


TO execute a load module, you can 
include an alias instead of the primary 
name in the PGM parameter of an EXEC 
Statement. Providing the alias is not also 
the name of an entry point within the 
module, execution will commence at the 
normal entry point (which, for a PL/I 
program, is the control section IHENTRY). 
Do not use a NAME or an ALIAS statement to 
give a PL/I load module a name that is an 
entry name other than IHENTRY. If you do, 
the initialization routines which are 
called from IHENTRY before control is 
passed to your program will be bypassed and 
your program will not execute successfully. 
Generally, you should not give a PI/I 
module a name or an alias name that begins 
with 'I' (except IHENTRY). 


ADDITIONAL INPUT SOURCES 


The linkage editor can accept input from 
sources other than the primary input 
defined in the DD statement SYSLIN. For 
instance, the automatic library call 
facility enables the linkage editor to 
include modules from the library named in 
the DD statement SYSLIB. You can name 
additional input sources by means of the 
INCLUDE statement, and you can direct the 
automatic call mechanism to alternative 
libraries by means of the LIBRARY 
Statement. 


INCLUDE Statement 


The INCLUDE statement causes the linkage 
editor to process the module or modules 
indicated. After the included modules have 
been processed, the linkage editor 
continues with the next item in the primary 
input. If an included sequential data set 
also contains an INCLUDE statement, that 
Statement is processed as if it were the 
last item in the data set (Figure 6-3). 


The format of an INCLUDE statement is: 


INCLUDE ddname [(membername)] 
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. Primary Input Sequential 

Data Set Data Set 
end — 

INCLUDE end 
--- INCLUDE ^ 
=== --- not 
--- --- processed 
end end 

4 


Figure 6-3. 


Replace 'ddname' with the name of a DD 
Statement that defines either a sequential 
data set or a library that contains the 
modules and control statements to be 
processed. If the DD statement defines a 
library, replace 'membername' with the 
names of the modules to be processed, 
separated by commas. You can specify more 
than one ddname, each of which may be 
followed by any number of member names in a 
single INCLUDE statement. For example, the 
Statement 


INCLUDE D1(MEM1,MEM2) ,D2 (MODA, MODB) 


requests the inclusion of the members MEM1 
and MEM2 from the library defined by the DD 
Statement D1, and the members MODA and MODB 
from the library defined by D2. 


LIBRARY Statement 


The basic function of the LIBRARY statement 
is to name call libraries in addition to 
those named in the DD statement SYSLIB. 

For this purpose, the format of the 
Statement is similar to that of the INCLUDE 
Statement: 


LIBRARY ddname(membername) 


Replace 'ddname' with the name of a DD 
Statement that defines the additional call 
library, and 'membername' with the names of 
the, modules to be examined by the automatic 
call mechanism; separate the module names 
with commas. 


the LIBRARY statement 
references that should 


You can also use 
to specify external 
not be resolved, or to specify that no 
external references should be resolved. 
(Refer to IBM System/360 Operating System: 
Linkage Editor and Loader.) 
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Processing of Additional Data Sources 


OVERLAY PROGRAMS 


To reduce the amount of main storage 
required for the execution of a program, 
you can organize it into an overlay 
structure. An overlay program is divided 
into segments, which can be loaded and 
executed successively in the same area of 
main storage. To construct such a program, 
you must use linkage editor control 
statements to specify the relationship 
between the segments. Note that one 
segment, termed the root segment must 
remain in main storage throughout the 
execution of the program. 


Designing the Overlay Structure 


Before preparing the linkage editor control 
statements, you must determine the overlay 
tree structure from the program. A tree is 
a graphic representation that shows which 
segments occupy main storage at different 
times. The design of tree structures is 


discussed in IBM System/360 Operating 


System: Linkage Editor and Loader, but, for 
the purposes of this chapter, Figures 6-4 


and 6-5 contain a simple example. 





The tree in Figure 6-5 represents the 
execution of the PL/I program of Figure 
6-4. The program comprises six procedures, 
A, B, C, D, E, and F. The main procedure A 
calls procedures B and F. Procedure B 
calls procedure C, which, in turn, calls 
procedures D and E. (Note that only 
procedure A requires the option MAIN.) 


The main procedure (A) must be in main 
storage throughout the execution of the 
program. Since the execution of procedure 
B will be completed before procedure F is 
called, the two procedures can occupy the 
same storage; this is depicted by the lines 
representing the two procedures in Figure 
6-5 starting from the common point (node) 


| 

| 

| К 
| CALL В; 
| 4 

| > 

| CALL Р; 
| 

| 

| 


ME uma mum ums ee CMS ишш жыз шеш шош шы чиш REND END AND аы, Hip ED жаы эш». 


Figure 6-4. Program Suitable for Overlay 


Structure 


X. Procedure B must remain in storage 
while procedures C, D, and E are executed, 
but procedures D and E can occupy the same 


storage; thus the lines representing 
procedures D and E start from the node Y. 


The degree of segmentation that can be 
achieved can be clearly seen from the 
diagram. Since procedure A must always be 
present, it must be included in the root 
segment. Procedures F, D, and E can 
usefully be placed in individual segments, 
as can procedures B and C together; there 
is nothing to be gained by separating 
procedures B and C, since they must be 
present together at some time during 
execution. 


Control Statements 


To specify to the linkage editor how you 
want a load module structured, use the 
control statements INSERT and OVERLAY. You 
must include the attribute OVLY in the PARM 
parameter of the EXEC statement that 
invokes the linkage editor; if you omit 
this attribute, the linkage editor will 
ignore the control statements. 


The OVERLAY statement indicates the 
start of an overlay segment. Its format 
is: | 


OVERLAY symbol 


Replace ‘symbol’ with an arbitrary 
symbol representing the node at which the 
segment starts (for example, X in Figure 
6-5). You must specify the symbolic origin 
of every segment, except the root segment, 
in an OVERLAY statement. 


An INSERT statement positions control 
sections in an overlay segment. Its format 
is: 


INSERT control-section-name 


Replace 'control-section-name' with the 
names of the control sections (that is, 
procedures) that are to be placed in the 
segment; if you include two or more names 
in the statement, separate them with 
commas. The INSERT statements that name 
the control sections in the root segment 
must precede the first OVERLAY statement. 


Creating an Overlay Structure 


The most efficient method of defining an 
overlay structure, and the simplest for a 
PL/I program, is to group all the OVERLAY 
and INSERT statements together and then 
place them in the linkage editor input 
(SYSIN) after the modules that form the 
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Figure 6-5. Overlay Tree Structure for Program of Figure 6-4 


program. The linkage editor initially 
places all the input modules in the root 
segment, and then moves those control 
sections that are referred to in INSERT 
statements into other segments. 


This method has the advantage that you 
can use the batch compilation facility of 
the compiler to process all the procedures 
in one run and place the object modules in 
a temporary CONSECUTIVE data set. You can 
then place the linkage editor control 
statements in the input stream, 
concatenating them with the data set that 
contains the object modules. (Do not use 
the compiler OBJNM option to name the 
object modules; if you do, the NAME: 
Statements inserted by the compiler will 
cause the linkage editor to attempt to 
create separate load modules rather than a 
single overlay module.) 


Figure 6-6 illustrates how you could use 
the PL/I cataloged procedure PLILFCLG to 
create and execute the overlay structure of 
Figure 6-5. 


An alternative approach instead of batch 
compilation is to compile the procedures 
independently and store them as load or 
object modules in a private library. You 
can then use an INCLUDE statement to place 
them in the input to the linkage editor 
(SYSLIN). 
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//CREX JOB 

// EXEC PLILFCLG, PARM. LKED='OVLY' 
//PLiL.SYSIN DD * 

Source statements for procedure A 
*PROCESS 

Source statements for procedure B 
*PROCESS 

Source statements for procedure C 
*PROCESS 

Source statements for procedure D 
*PROCESS 

Source statements for procedure E 
*PROCESS 

Source statements for procedure F 


/* 
//LKED. SYSIN DD * 


OVERLAY X 
INSERT B,C 
OVERLAY Y 
INSERT D 
OVERLAY Y 
INSERT E 
OVERLAY X 
INSERT F 
/* 


Figure 6-6. Compiling, Link-Editing, and 
Executing an Overlay Program 


If an INSERT statement contains the name 
of an external procedure, the linkage 
editor will move only the related program 
control section, which has the same name. 
All other control sections established by 
the compiler, and all the PL/I library 
subroutines, will remain in the root 
segment. 


It is important that PL/I library 
subroutines be in the root segment, since 
the PL/I (F) compiler does not support 
exclusive calls (calls between segments 
that do not lie in the same path). For 
example, in the structure of Figure 6-5, 
procedures in the segment containing D; 
could call procedures in the segments 
containing A, B, C, and D, but not in the 
segments containing E or F. Procedures in 
the segments containing B and C could call 
procedures in the segments containing A, B, 
С, D, and E, but not in the segment 
containing F. A procedure in the segment 
containing B may not call a procedure in 
the segment containing A if this latter 
procedure calls a procedure in the segment 
containing F. 


Note: The library modules IHETABS and 
IHEMAIN must be in the root segment. 


However, certain modules may not be 
required by all segments, in which case you 
can move them into a lower segment. To do 
this, compile the procedures using the 
compiler option EXTREF, and then examine 
the external symbol dictionary. For 
example, if in the structure of Figure 6-5 
the module IHESNS is called only by the 
segment containing E, you can move into 
that segment by placing the control, 
Statement INSERT IHESNS immediately after 
the statement INSERT E. 


Similarly, you can move data control 
sections from the root segment to lower 
segments. For example, to move the static 
internal control section for procedure F 
into the segment containing F, place the 
Statement INSERT ******FA after the 
Statement INSERT F. Note that values 
assigned to static data items are not 
retained when a segment is overlaid. (A 
storage area in static constitutes static 
data for this purpose, but still has the 
same use as a DSA). Therefore, do not move 
Static data from the root segment unless it 
comprises only: 


1. Values set by the INITIAL attribute 
and then unchanged (i.e., read-only 
data ). 


2. Values that need not be retained 
between different loadings of the 
segment. 


An alternative method of creating an 
overlay structure is to obtain object decks 
for the procedures that form the program, 
and then to intersperse OVERLAY statements 
among them in the linkage editor input. 
This method requires more care, since you 
must move into the root segment all static 
internal control sections (unless they are 
read-only) and control sections that refer 
to external variables not included in a 
common area. The linkage editor 
automatically places common areas and any 
library subroutines that are used in common 
by different procedures, in the common 
segments of the paths in which they are 
referred to. For example, if only 
procedures D and E of Figure 6-5 require 
the subroutine IHEOST, the linkage editor 
will place it in the segment that contains 
procedures B and C; but if procedure F also 
refers to IHEOST, the linkage editor will 
place it in the root segment. 


Linkage Loader 


The linkage loader is an operating system 
program that creates and executes load 
modules. The modules created are always 


| placed directly into main storage (never in 


a library) and executed. 


The input to the linkage loader is a 
single object or load module or several 
object or load modules, or a mixture of 
both types. The output is always a single 
load module in main storage. 


The linkage loader does not support the 
linkage editor control statements (ALIAS, 
CHANGE, ENTRY, INCLUDE, INSERT, LIBRARY, 
NAME, OVERLAY, REPLACE, SETSSI). The 
presence of any of these in the job stream 
will not be treated as an error; the job 
will continue to be processed, and the name 
of the statement is printed on SYSLOUT 
together with a diagnostic mes sage. 


The linkage loader compensates for the 
absence of the facilities provided by these 
control statements by allowing the 
concatenation of both object and load 
modules in the data set defined by the 
ddname SYSLIN, and by allowing an entry 
point to be specified in the EP option of 
the PARM parameter (see below in 'Optional 
Facilities'). 


MODULE STRUCTURE 


The structure of a module which is the 
input to the linkage loader is the same as 
that for a module which is the input to the 
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linkage editor. This structure has already 
been described in ‘Module Structure,‘ іп 
the linkage editor section. 


LINKAGE LOADER PROCESSING 


The linkage loader processes the input 
module or modules in order to resolve all 
external references in control sections. 
Once this has been accomplished, the load 
module is loaded into main storage and 
executed. The basic functions are: 


1. Resolution of external references 
between control sections in program 
modules. 


2. Resolution of other external 
references by inclusion of modules 
from the PL/I subroutines library 
(situated either on a direct-access 
device or in main storage). 


3. Automatic editing by deleting 
duplicate copies of program modules. 


4. Using the relocation dictionary (RID) 
to obtain absolute addresses for 
control sections; if a particular 
control section is not in main storage 










Object and/or 
Load Modules 


SYSLIN 





Tess... or 
on Modules 


D 


SYSLIB -- called automatically when references 
were unresolved at the end of input 
from SYSLIN. 


Figure 6-7. 
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when required, the RLD is saved until 
the control section has been loaded. 


In its basic processing mode, which is 
illustrated in Figure 6-7, the linkage 
loader accepts data from its primary input 
source, a data set defined by a DD 
Statement named SYSLIN. For a PL/I 
program, this input data is the object 
module created by the compiler. The 
linkage loader uses the external symbol 
dictionary in the input module to determine 
whether the module includes any external 
references for which there are no 
corresponding external symbols in the 
module: it attempts to resolve such 
references by a method termed automatic 


library call. 


External symbol resolution by automatic 
library call involves a search of the 
library defined by a DD statement named 
SYSLIB; for a PL/I program this will be the 
PL/I subroutine library (SYS1.PLiLIB). 

The linkage loader locates the modules in 

which the external symbols are defined (if 
such modules exist), and incorporates them. 
in the load module it is creating. If all 


the external references have been resolved 
satisfactorily, the load module is 
executed. 


Main Storage 


Loader Processing (SYSLIB Resolution) 






Object and/or 
Load Modules 


SYSLIN 


SYSLIB -- called automatically when 
references remain unresolved 
at the end of input from 
:'SYSLIN and after searching 
the link pack area. 


Figure 6-8. 


Object and/or 
Load Modules 


SYSLIN 


Figure 6-9. Automatic Editing 


If you are using the MVT or MFT control 
program, the linkage loader will first 
search the link-pack area for library 
modules (see Figure 6-8) before searching 
the PL/I subroutine library. (The 
link-pack area is an area of main storage 
in which frequently used load modules are 
Stored permanently; they can be accessed by 
any job running under MVT.) Library 
modules for PLILIB must not be loaded into 
the link-pack area. If there is more than 
one copy of a program module in SYSLIN, the 
linkage loader will load the first one and 
ignore the rest (see Figure 6-9). 







User's Region 






References made in B to 
D, E, F, and G are 
resolved to the link 
pack area. 






Modules in link pack 
area must be 
reentrant, 





Main Storage 


Loader Processing (Link-Pack Area and SYSLIB Resolution) 


The first copy is 
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Main Storage 


Main Storage Requirements 


The minimum main storage requirements for 
the linkage loader are: 


1. Storage for loader code: At least 10K 
bytes. 


2. Storage for data management access 
method routines: At least 4K bytes. 


3. Storage for buffers and tables used by 
the linkage loader: At least 3K bytes. 
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4. Storage for the program to be 
executed. 


Thus the minimum main storage required 
when a program is to be processed by the 
linkage loader is at least 17K bytes for 
the linkage loader and its associated 
routines and data areas, and, in addition, 
whatever amount of main storage is required 
for the program to be executed. If the 
loader code and the data management access 
routines are stored in the link-pack area, 
then the amount of main storage required 
for program execution is 3K bytes for the 
loader data area and, in addition, the 
amount required for the problem program. 


Job Control Language for Link-Loading 


For most purposes, the IBM-supplied 
cataloged procedures are sufficent to 
provide the job control statements required 
for link-loading. ‘However, you may want to 
supply your own job control statements or 
you may want to know which job control 
Statements are required in order to 
construct your own cataloged procedures; 
therefore a brief discussion of the 
Statements required or used by the linkage 
loader is given below. 


The IBM-supplied cataloged procedures 
for the linkage loader are: 


PL1ILFG 
PLILFCG 


Load-and-execute 
Compile, load-and-execute 


These are fully described in Chapter 8, 
'Cataloged Procedures,' which also includes 
a description of the methods used to modify 
or override the statements in them. 


EXEC STATEMENT 


"The name of the linkage loader program is 
IEWLDRGO; it also has the alias name 
LOADER. Either of these can be used in the 
basic EXEC statement: 


// EXEC PGM-IEWLDRGO 
// EXEC PGM-LOADER 


The alias name LOADER is used in the 
IBM-supplied cataloged procedures; this 
name will be used for references to the 
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linkage loader program in the remainder of 
this section. 


By using the PARM parameter of the EXEC 
Statement, you can select one or more of 
the optional facilities available with the 
linkage loader; these are described in 
'Optional Facilities,' below. The use of 
the other parameters of the EXEC statement 
is as described in Chapter 7, 'Executing 
the Load Module." 


DD STATEMENTS 


The linkage loader always requires one 
standard data set. You must define this 
data set in a DD statement with the 
standard name SYSLIN. 


Three other standard data sets are 
optional and if you use them, you must 
define them in DD statements with the 
Standard names SYSLOUT, SYSPRINT, and 
SYSLIB. The four standard data sets are 
summarized in Figure 6-10. The ddnames 
SYSLIN, SYSLIB and SYSLOUT for the loader 
data sets are those specified at system 
generation. Other ddnames for these data 
sets may have been specified at system 
generation for your installation; if they 
have, your job control statements must use 
these ddnames in place of those given 
above. The IBM-supplied cataloged 
procedures PLILFCG and PLILFG use the 
ddnames shown above; your system programmer 
will have to modify these procedures if the 
ddnames that apply at your installation are 
different. 


Primary Input (SYSLIN) 


Input to the linkage loader must be 
sequential and may be one of the following: 


1. Object module: 
a. Output from the compiler. 


b. Опе member of a partitioned data 
set containing object modules. 
2. Load Module: 


One member of a partitioned data set 
containing load modules. 


pcc equorum TET mper asm | 


| ddname | Function | Possible Device С1аѕѕеѕі | 
| SYSLIN | Primary input data, normally | SYSSQ or the input job | 
| | the output from the compiler | stream (specified by DD *) | 
————M——————————— —————— ———— 
| SYSLOUT | Loader messages and module map | 5Ү550, SYSDA, or SYSOUT-A | 
| | listing | | 
a kc a I a a ee a aint et et eee 
| SYSPRINT | PL/I execution-time messages and | SYSSQ, SYSDA, or SYSOUT-A | 
| | problem program output listing. | | 
-----------4-----------------------------------4----------------------------4 
| SYSLIB | Automatic call library (usually | SYSDA | 
| | the PL/I subroutine library) | "| 
[----------- ha a MUR RUD NOU ONU RN ысы Т DEM ышы —— —— 1 


|*sYssQ Magnetic-tape or direct-access device | | 


| SYSDA Direct-access device 


| SYSOUT-A Normal printed output class for system output | 


Ma cs aa ma ee ce a ce ce ee we ee a ce ae ee ee ee ae eee ee 


Figure 6-10. Linkage-Loader Data Sets 


3. А concatenation of object modules, 
load modules or a mixture of both 
types. 


The IBM-supplied cataloged procedure 
PLILFCG includes a SYSLIN DD statement; if 
you want to modify this statement, you must 
refer to it by the qualified ddname 
GO.SYSLIN. The IBM-supplied cataloged 
procedure PLILFLG does not include a SYSLIN 
DD statement; you must supply one, using 
the qualified ddname GO.SYSLIN. 


Automatic Call Library (SYSLIB) 


The SYSLIB data set is searched to resolve 
those external references that remain when 
all the external symbols that refer to 
locations within the program module have 
been resolved. This data set is always a 
partitioned data set; usually it is the 
PL/I subroutine library, SYS1.PL1LIB, but 
any library can be used provided it has the 
correct ddname. Libraries can be 
concatenated; the first library DD 
Statement must have the ddname SYSLIB, the 
others must appear immediately after it in 
the job stream and must have the name field 
blank. The concatenated libraries can 
contain object or load modules but not a 
mixture of both. 


The IBM-supplied cataloged procedures 
PLILFCG and PLILFG both include a SYSLIB DD 
Statement. If you want to modify this 
Statement, you must refer to it using the 
qualified ddname GO.SYSLIB. 


Loader Listing (SYSLOUT) 


The messages produced by the linkage 
loader, the module map that can be produced 
by the MAP option (see 'Optional 
Facilities,' below), and other information 
related to the linkage loader program can 
be written onto this data set. The SYSLOUT 
data set must be CONSECUTIVE organization 
and must have been specified at system 
generation; otherwise, all the loader 
information will be put out on SYSPRINT. A 
printed listing can be produced by 
allocating this data set to the system 
output class associated with a printer. 
This is usually designated by: 


//SYSLOUT DD SYSOUT-A 


The IBM-supplied cataloged procedures 
PLILFCG and PLILFG include this statement; 
if you want to modify the statement, you 
must refer to it with qualified ddname 
GO.SYSLOUT. 


PL/I Execution-Time Messages and Problem 
Program Listing (SYSPRINT) 


PL/I execution-time messages and output 
produced by the problem program are written 
on this data set. The data set must be of 
CONSECUTIVE organization. A printed 
listing can be obtained in the same way as 
for the loader information: 


//SXSPRINT DD SYSOUT-A 


The IBM-supplied cataloged procedures 
PLILFCG and PLILFG both include this 
Statement; if you want to modify it, you 
must refer to it using the qualified ddname 
GO.SYSPRINT. 
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Examples 


A typical sequence of job control 
statements for a compile-load-and-go job 
is: 


//PGEX1 JOB 


// EXEC PGM-LOADER 

//SYSLIN DD DSNAME=* .PLIL. SYSLIN, 

// DISP= (OLD , DELETE) 
//SYSLIB DD DSNAME-SYS1.PL1LIB,DISP-SHR 
//SYSLOUT DD SYSOUT-A 

//SYSPRINT DD SYSOUT-A 


Here a PL/I program has been compiled in a 
job step with the step name PL1L; the 
resultant object module has been placed in 
the SYSLIN data set. Because this module 
is to be loaded and executed in the same 
job as the compilation, the SYSLIN 
statement can use the backwards reference 
as shown. If the compilation and 
load-and-go steps were in different jobs, 
the SYSLIN reference would have to specify 
a permanent data set, cataloged or 
uncataloged. 


The IBM-supplied cataloged procedure 
PLILFCG includes SYSLIN statements in both 
the compile and the load-and-go steps; you 
do not need to specify this statement 
unless you want to modify it. The 
IBM-supplied cataloged procedure PLILFG 
does not include a SYSLIN statement; you 
must supply one, using the qualified ddname 
GO.SYSLIN. 


A more complicated example is given 
below; it has three concatenated input data 
sets (one of which is an object deck), and 
two libraries to be searched for external 
references. The job control statements 
differ slightly, according to the control 
program used: 


PCP 


// EXEC PGM-LOADER 
//SYSLIN DD DSNAME-OBJMOD, 


// UNIT-SYSSQ, 
^/ VOLUME=SER=30103, 
/” DISP= (OLD, KEEP) 


// DD DSNAME=MODLIB(MOD55) ,DISP=SHR 
// DD DDNAME-IN 

//SYSLIB DD DSNAME=SYS1.PL1LIB, 

// DISP=SHR 

// DD DSNAME-PRIVLIB,DISP-SHR 
//SYSLOUT DD SYSOUT-A 

//SYSPRINT DD SYSOUT-A 

//IN DD ж 


Object deck to be input to the linkage 
loader 
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/* 


Here the input data sets are: 


1. ОВЈМОр: An uncataloged data set 
' containing the object module output 
from a compilation. 


2. MODLIB: A cataloged data set 
containing a library of load modules; 
the member to be included here has the 
name MOD55. 


3. IN: An object deck to be included in 
the job stream. 


The two libraries to be searched for 
external references are the PL/I subroutine 
library (SYS1.PL1LIB) and a private 
library, PRIVLIB. 


The IN DD statement shown here is only 
required if you want to include in the job 
stream an object deck for input to the 
linkage loader. The statement 


// DD DDNAME-IN 


specifies that the IN data set is to be 
concatenated with other data sets to form 
the SYSLIN data set. The statement 


//IN DD * 


specifies that the IN data set is to be 
read from the job stream. Because PCP does 
not permit the use of more than one data 
set in the input stream for a single job 
Step, you therefore cannot assign the input 
Stream data to more than one data set. 

This means that you cannot have execution 
data in the input stream when there is an 
object deck, concatenated as showh, in the 
input stream. 


Note: If execution data in the input stream 


is required when using an object deck, the 
linkage editor must be used so that each 
input stream data set is in a separate job 
step. 


If you use the cataloged procedures 
PLILFCG and PLILFG, you can modify or add 
to the statements in these procedures to 
generate the sequence described above. 
Modified or added statements must be 
referred to in the correct order; this is: 


PLILFCG: 


PLIL.SYSLIN (if you want to modify the 
data set for the output from 
the compiler) 

GO.SYSLIB 

GO.SYSLIN 

GO.SYSIN 

GO.IN 


PLILFG: 


GO.SYSLIB 
GO.SYSLIN 
GO. SYSIN 
GO.IN 


МЕТ or МУТ 


// EXEC PGM-LOADER 
// SXYSLIN DD DSNAME-OBJMOD, 


/” UNIT=SYSSOQ, 
ИИ VOLUME=SER=30104, 
// DISP= (OLD, KEEP) 


// DD DSNAME=MODLIB(MOD55) ,DISP=SHR 
// DD DDNAME-IN 

//SYSLIB DD DSNAME=SYS1.PL1LIB, 

// DISP=SHR 

-47 DD DSNAME=PRIVLIB , DISP=SHR 
//SYSLOUT DD SYSOUT=A 

//SYSPRINT DD SYSOUT-A 

//IN DD * 


Object deck for input to linkage loader 


/* 
//SYSIN DD * 


Execution data, if any, to be placed here 
/* 


the input data sets and the two 
libraries are as described above. 


If you want to include, in the job 
stream, both an object deck and execution 
data, the job control language is less 
complicated than with PCP because both MFT 
and MVT permit the use of more than one 
data set in the input stream for the same 
job step. Hence both IN and SYSIN can have 
the DD * notation. 


If you use the cataloged procedures 
PLILFCG or PLILFG, you can modify or add to 
the statements in those procedures to 
generate the sequence described above. 
Modified or added statements must be 
referred to in the correct order; this is: 


PLALFCG: 


PLIL.SYSLIN (if you want to modify the 
data set for the output from 
the compiler) 

GO. SYSLIB 

GO. SYSLIN 

GO. IN 

GO. SYSIN 


these can be in any order 


PLILFG: 


GO.SYSLIB 
GO. SYSLIN 
GO.IN 

GO.SYSIN 


these can be in any order 


Optional Facilities 
CONTROL STATEMENTS 


The linkage loader does not support the 
linkage editor control statements (ALIAS, 
CHANGE, ENTRY, INCLUDE, INSERT, LIBRARY, 
NAME, OVERLAY, REPLACE, SETSSI). The 
presence of any of these in the job stream 
will not be treated as an error; the job 
will continue to be processed, and the name 
of the statement is printed on SYSLOUT 
together with a diagnostic message. 


The linkage loader compensates for the 
absence of the facilities provided by these 
control statements by allowing the 
concatenation of both object and load 
modules in SYSLIN, and by allowing an entry 
point to be specified in the EP option of 
the PARM parameter (see below). 


OPTIONS IN THE PARM PARAMETER 


The linkage loader provides a number of | 
optional facilities that you can select by 
including the appropriate keywords from the 
following list in the PARM parameter of the 
EXEC statement that invokes it: 


-CALL | NOCALL | МСАТ, 
EP 


LET | МОЕТ 
МАР | NOMAP 
PRINT| NOPRINT 
SIZE 
RES | NORES 


If any other keywords appear in the PARM 
parameter, they will be ignored and when 
processing is complete the keywords and a 
diagnostic message will be printed on 
SYSLOUT. 


PARM Parameter Format 


The basic format of the PARM parameter 
field is: 


PARM-' [option list] [/pgmparm]' 


where ‘option list' is a list of linkage 
loader options, and 
'pgnmparm' is a parameter to be passed 
to the main procedure of the PL/I 
program to be executed. 


The conventions for passing a parameter 


to the main procedure of a PI/I program are 
described in Chapter 7. In the examples 
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given below, the program parameter is 
referred to as PP. 


If both loader options and a program 
parameter occur in the PARM parameter, the 
loader options are given first and are 
separated from the program parameter by a 
slash. If there are loader options but no 
program parameter, the slash is omitted. 
If there is more than one option, the 
option keywords are separated by commas. 


The PARM parameter field can have one of 
three formats: 


1. If the special characters '/' or ‘=' 
are used, the field must be enclosed 
in single quotes: 


PARM-'MAP, EP-FIRST/PP' 
PARM-'MAP,EP-FIRST' 
PARM-'/PP' 


2. If these characters are not included, 
and there is more than one loader 
option, the options must be enclosed 
in parentheses: 


PARM- (MAP, LET) 


3. If these characters are not included, 
and there is only one loader option, 
neither quotes nor parentheses are 
required: 


PARM-MAP 


If you want to modify the PARM parameter 
options specified in a cataloged procedure, 
you must refer to the PARM parameter by the 
qualified name PARM.procstepname, for 
example, PARM.GO. 


CALL | NOCALL | МСАТ, 


The CALL option specifies that an attempt 
to resolve external references will be made 
by an automatic search of the data set 
named in the SYSLIB DD statement. If this 
Statement does not exist in the job stream, 
the option is ignored.. 


The NOCALL and NCAL options specify that 
no automatic search will be made. The term 

. *'NCAL' is included to preserve 
compatibility with the linkage editor. 


EP 


The EP option specifies the entry-point 
name. 


EP=epname 
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where ‘epname' is an external name which is 
to be assigned as the entry point of the 
program to be executed. If all the input 
modules are load modules, you must specify 
EP-IHENTRY. 


LET | NOLET 


The LET option specifies that the linkage 
loader will try to execute the problem 
program even if a severity 2 error 
condition has been found. 


The NOLET option specifies that, if a 
severity 2 error condition has been found, 
the linkage loader will not execute the 
problem program. 


MAP | NOMAP 


The MAP option specifies that the linkage 
loader will produce, on SYSLOUT, a map of 
the load module to be executed. This map 
includes a list of the external names and 
their absolute addresses, a list of the 
pseudo-registers, the total length of the 
module, and the absolute address of its 
entry point. If there is no SYSLOUT DD 
Statement, the option will be ignored. The 
module map is described fully in ‘Listing' 
below. 


PRINT|NOPRINT 


The PRINT option specifies that the SYSLOUT 
data set will be opened and used for 
diagnostic messages and other linkage 
loader information. 


The NOPRINT option specifies that the 
SYSLOUT data set will not be opened. 


SIZE 


The SIZE option specifies the maximum 
amount of main storage, in bytes, that can 
be used by the linkage loader to process 
and execute the problem program. Code the 
option in one of the following formats: 


SIZE-10K 
SIZE=(10K) 
SIZE=10240 
SIZE=(10240) 


RES | NORES 


The RES option specifies that an attempt to 
resolve external references will be made by 
an automatic search of the link-pack area. 
This search will be made after the primary 
input has been processed but before the 
SYSLIB data set is opened. 


The NORES option specifies that the 
link-pack area will not be searched. 


DEFAULT OPTIONS 


Defaults for all the options except EP can 
be established at system generation. If no 
such defaults were specified, the linkage 
loader assumes defaults as follows: 


RES 


SIZE=100K, 


It is your responsibility to find out the 
defaults in operation at your installation. 


Listing 


The linkage loader can provide listings on 
the SYSLOUT data set; the SYSPRINT data set 
is used by the problem program. The 
contents of each is: 


Data Set Contents 

SYSLOUT Linkage loader explanatory 
messages and diagnostic 
messages, and (optionally) 
a module map 

SYSPRINT PL/I execution-time diagnostic 


messages; problem program 
output 


The SYSLOUT listing is described here; 
the SYSPRINT listing is described in 
Chapter 7, 'Executing the Load Module.' 


The items in the SYSLOUT listing appear 
in the following sequence: 


1. A statement identifying the level of 
linkage loader used. 


2. Module map (if specified). 
3. Explanatory error or warning messages. 


4. Diagnostic messages. 


MODULE MAP 


If the MAP option is specified, a module 
map appears in the SYSLOUT listing. The 
map lists all the control sections in the 
module to be executed, and all the entry 
names (other than the first one) in each 
control section. The information for each 
reference is: 


1. The control-section or entry-point 
name. 


2. Ап asterisk, if the control section is 
in a module loaded from the SYSLIB 
data set. 


3. An identifier, as follows: 


SD Section definition: the name of 
the control section. 


LR Label reference: identifying an 
entry point in the control 
section other than the primary 
entry point. 


CIM Common area: an EXTERNAL file, 
or a non-string element variable 
declared STATIC EXTERNAL without 
the INITIAL attribute. 


ц. Absolute address of the control 
section or entry point. 


Each reference is printed left to right 
across the page and starts at a tab 
positión. This gives the impression that 
the references are arranged in columns, but 
the correct way to read the map is 


` line-by-line, not down each column. 


The module map is followed by a similar 
listing of the pseudo-registers. The 
identifier used here is PR, and the address 
if the offset from the beginning of the 
pseudo-register vector (PRV). The total 
length of the PRV is given at the end. 


The total length of the module to be 
executed, and the absolute address of its 
primary entry point, are given after the 
explanatory messages and before the 
diagnostic messages. 


EXPLANATORY ERROR OR WARNING MESSSAGES 


The linkage loader always lists details of 
any error or warning conditions that it 
discovers during processing. The format of 
the messages is given in 'Control 
Statements and Errors,' in the linkage 
editor section of this chapter. 
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DIAGNOSTIC MESSAGES 


When the module to be executed has been 
processed, the linkage loader prints out in 
full all the diagnostic messages referred 
to above, IBM System/360 Operating System: 


Linkage ditor and Loader contains 
explanations of these messages and the 
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probable cause of the errors noted in them, 
and suggests how to rectify these errors. 


The warning message IEW1001 almost 
always appears in the listing. The 
explanation for this is the same as that 
for IEWO461, described above in ‘Diagnostic 
Message Directory,' in the linkage editor 
section of this chapter. 
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Introduction 


To execute a program, it must be in the 
form of a load module or an object module. 
If in load-module form you must use an EXEC 
statement to request the job scheduler to 
load and execute. If in object-module form 
you must use an EXEC statement to request 
the job scheduler to load and execute the 
loader which will process the module and 
pass control to it. 


Modules for execution are selected from 
one of two sources: 


1. A partitioned data set which is a 
module library. The modules are 
either object modules created by the 
compiler or load modules created by 
the linkage editor. 


2. A sequential data set which is an 
object module created by the compiler. 


Partitioned data sets and module 
libraries are described in Chapter 12, 
sequential data sets are described in 
Chapter 9. 


This chapter describes the selection of 
the object or load module for execution, 
the job control statements required for 
load module execution, and the messages and 
other data printed on the output listing. 


Load Module Processing 
IDENTIFYING THE MODULE 


The data set containing the module to be 
selected for execution is identified in one 
of two ways: 


1. Jobs using the linkage editor: The 
data set is identified in the PGM 
parameter of the EXEC statement for 
the execution job step. 


2. Jobs using the linkage loader: The 
data set is identified in a DD 
Statement with the name SYSLIN in the 
execution job step. 


Jobs Using the Linkage Editor 


The data set exists in a library created in 
a previous job step of the same job, or in 
a previous job. 


Library Created in a Previous Job Step: 
The basic reference is: 


//stepname EXEC PGM=*.prevstepname.ddname 


where 'prevstepname' is the name of the job 
step in which the library is created. 


If the data set is the output data set 
created by the linkage editor, code: 


//Stepname EXEC PGM-*.linkname.SYSLMOD 
where 'linkname' is the link-edit stepname. 


If you use the cataloged procedures 
PLILFCLG or PLILFLG, the code generated is: 


//GO EXEC PGM-*.LKED.SYSLMOD 


Library. Created іп a Previous Job: If the 
library is a system library (SYS1.LINKLIB), 


code: 
//stepname EXEC PGM-progname 


where 'progname' is the member name of the 
module in the system library. 


If the library is a private library used 
as a job library, the syntax is the same as 
for the system library. The private 
library must be identified in a JOBLIB DD 
Statement placed immediately after the JOB 
Statement. 


If the library is a private library used 
as a step library, the syntax is the same 
as for the system library. The private 
library must be identified in a STEPLIB DD 
Statement which follows the EXEC statement 
that initiates the job step. 


Jobs Using.the Linkage Loader 


The data set exists in a library or is a 
single module, created in a previous job 
step of the same job or in a previous job. 


Library Created in a Previous Job Step: 
The basic reference is: 
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//SYSLIN DD DSNAME=*.stepname. ddnane, 
// DISP=(disp) 


where '*.stepname.ddname' refers to the 
name of the DD statement that 
describes the data set in which the 
member of the library is created. 


'disp' is the set of terms for the 
disposition of the data set before 
and after the job step. 


If you use the cataloged procedure 
PLiLFCG with input from a library, you must 
override the SYSLIN DD statements in both 
job steps. The ddnames for the input data 
set you are using must be qualified as 
PLIL.SYSLIN and GO.SYSLIN respectively. If 
you use the cataloged procedure PLILFG, you 
must supply the SYSLIN DD statement, using 
//GO. SYSLIN. 


Library Created іп a.Previous Job: If the 


library is the system library, code: 
//SXSLIN DD DSNAME-dsname,DISP-(disp) 


where 'dsname' is the name of the member of 
the library. 


'disp' is as defined previously in 
this chapter. 


If the library is a private library, the 
syntax is the same as for the system 
library. 


If the library is neither cataloged nor 
in a job library, it must be described 
fully in the SYSLIN DD statement. (A 
cataloged data set, which can be a library 
or a single module, has its name in the 
system catalog and can be called by 
specifying the name only.) Code: 


//SYSLIN DD DSNAME-dsname (mbname), 


/” DISP=(disp), 
/” VOLUME-volume, 
// UNIT-unit 


where 'dsname' is the name of the library. 


'mbname' and 'disp' are as defined 
previously in this chapter. 


'volume' is the set of terms defining 
the volume and its usage. 


'unit' specifies the storage device. 
If you use the cataloged procedure 
PLILFCG or PLILFG, the same considerations 
apply as for a library created in a 
previous job step. 
Module Created in а Previous Job Step: The 
basic reference is: 
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//SYSIN DD DSNAME-dsname,DISP- (disp) 


where 'dsname' is the name of the temporary 
or permanent data set. 


"disp' is as defined previously in 
this chapter. 


The cataloged procedure PLILFCG generates 
the appropriate SYSLIN DD statement. If 

you use the cataloged procedure PLILFLG, 

you must supply this statement, using the 
qualified ddname //GO.SYSLIN. 


Module Created in.a Previous Job: The 
reference for the SYSLIN DD statement 
depends on whether the data set is 
cataloged or not. For a cataloged data 
set, code: 


//SYSLIN DD DSNAME=dsname, DISP= (disp) 


where 'dsname' is the name of the cataloged 
data set. 


*"disp' is as defined previously іп 
this chapter. 


If the data set is uncataloged, code: 


//SYSLIN DD DSNAME-dsname, 


// DISP=(disp), 
ГА VOLUME= volume, 
// UNIT=unit 


where 'dsname' is the name. of the data set. 
"disp", ‘volume’, and 'unit' are as 
defined previously in this chapter. 


If you use the cataloged procedures 
PLILFCG or PLILFG, the same considerations 
apply as for libraries created in a 
previous job step. 


Job Control Language for Execution 


You can use a cataloged procedure to 
generate the job control statements or you 
can supply them yourself. The IBM-supplied 
cataloged procedures that apply to this 
step are: 


PLiLFCG Compile, load-and-execute 
PLILFCLG Compile, link-edit, and execute 
PLiILFG Load-and-execute 

PLILFLG Link-edit, and execute 


These procedures are described in 
Chapter 8, 'Cataloged Procedures,' which 
includes an account of the methods used to 
modify or overwrite any of the statements 
in the procedures. 


ТЕ you want to supply your own job 
control statements, the statements required 
for the execution job step are described 
below. | 


EXEC STATEMENT 


The basic form of the EXEC statement 
requires only the PGM parameter: 


// EXEC PGM=reference 


where 'reference' has one of two forms: 


1. Jobs using the linkage editor: a 
reference to the data set containing 
the load module. This has already 
been described in 'Identifying the 
Load Module' in this chapter. 


2. Jobs using the linkage loader: the 
name of the loader program: 


PGM-LOADER 


The use of the linkage loader is 
described in Chapter 6, 'Linkage 
Editor and Loader." 


While the PGM parameter is the only 
mandatory parameter as far as the operating 
system is concerned, some or all of the 
other parameters available may be mandatory 
at your installation. The use of these 
parameters is discussed here. 


ACCT Parameter 


The accounting procedure at your 
installation may require you to provide 
information here, if each job step is to be 
charged separately. 


COND Parameter 


This is a useful parameter if your 
execution job step is dependent on the 
successful completion of a previous job 
Step. The use of the EVEN and ONLY 
subparameters allows you precise control 
over the conditions under which this job 
step can be executed. | 


.marks. 


PARM Parameter 


The PL/I (F) compiler provides a facility 
for passing, in this job step, a single 
parameter to the main procedure of the PL/I 
program. The data specified in the PARM 
parameter field can be up to 100 characters 
long and must be enclosed in quotation 

Any character in the character set 
available can be specified. The associated 
parameter in the main procedure should be 
declared CHARACTER(100) VARYING. 


The PARM parameter is a useful means of 
passing data to a load module. For 
example, if the SYSIN file is already 
associated with a user data set, any extra 
data required can be quickly inserted by 
being specified in this parameter. Another 
use is to pass data that can be employed to 
determine how the program will be executed 
and which category or categories of output 
will be produced. Both the PL/I (F) 
compiler and the linkage editor use the 
PARM parameter in this way; the characters 
passed represent various options which 
determine, for example, the information to 
be printed on the output listing. 


If you want to use the PARM parameter 
for the second of these purposes, you 
should include, at the beginning of your 
PL/I program, code to convert the parameter 
characters to variables, and code to set a 
series of program switches. For example: 


STOCK: PROC(INPARM) OPTIONS(MAIN); 
DCL INPARM CHAR(100) VAR, 
1 VALUES BASED(P), 
2 (TERMA, 
TERMB, 
TERMC, 
TERMD, 
TERME) CHAR(1), 
NUMBER PIC'9999', 
SPEC CHAR(1), 
CTCHAR CHAR(3), 


' NNN 


P=ADDR (INPARM) ; 
L1:IF TERMA-TERMB THEN GO TO...; 
ELSE IF CTCHAR-'I/M' THEN...; 
L2:1F TERMC,=TERMD THEN СО TO...; 
ELSE GO TO...; 
L3:1F TERMA-TERME THEN GO TO...; 
ELSE IF SPEC-'*' THEN...; 
L4:IF МОМВЕК>1000 THEN...; 
ELSE IF NUMBER<10 THEN...; 


END STOCK; 
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If this program, once compiled and 
link-edited (or loaded), is executed with 
the following EXEC statement: 


// EXEC PGM-...,PARM-'ABCDE1U1Uü*I/M' 


then the elements of the structure variable 
VALUES will have the following values: 


TERMA = “А! 
TERMB = “В! 
TERMC = “с” 
TERMD = (р; 
TERME = Е! 
NUMBER = "149104, 
SPEC = тж! 
CTCHAR = ‘I/M' 


These values will then be used in the four 
switching statements to determine which 
parts of the program will be executed and 
therefore what output the program will 
produce. 


The result of the pointer assignment 
Statement is that the elements in VALUES 
now have the appropriate values from the 
parameter field. If any character in the 
parameter field is omitted for a particular 
job, it must be replaced by a blank; this 
will create a blank in the corresponding 
VALUES element. The existence of a blank 
or blanks in these variables must be 
considered when the switching statements 
are coded, in order to avoid erroneous 
switching. 


GET STRING or SUBSTR could be used in 
place of the pointer assignment, if the 
context was such that they offered an 
advantage. 


DPRTY Parameter 


If your load module is executed using the 
MVT control program, you can specify the 
priority for each job step. For details of 
this usage, see 'MVT Control Program' in 
Chapter 4, ‘Job Initialization.' 


The priority value specified in the EXEC 
statement is always overridden by a 
priority value specified in the JOB 
Statement; if no priority is specified in 
the JOB statement, the value specified in 
the EXEC statement is assumed. If neither 
Statement includes a priority parameter, 
the installation default (if any) is 
applied. 
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REGION Parameter 


If your load module is executed using the 
MVT control program, you can specify a 
region size for the job step. For details 
of this usage, see 'MVT Control Program' in 
Chapter 4, ‘Job Initialization.' 


A region size specified in the EXEC 
statement is always overriden by a region 
size specified in the JOB statement. If a 
region size is not specified in the JOB 
statement, the size specified in the EXEC 
statement is assumed. If neither is 
specified, the installation default (if 
any) is applied. 


ROLL Parameter 


If your load module is executed using the 
MVT control program, you can obtain extra 
space dynamically in main storage by means 
of this parameter. 


TIME Parameter 


If your load module is executed using the 
MVT control program, you can specify the 
maximum time that this job step can use the 
CPU, by means of this parameter. The time 
specified here overrides the default time 
for the job class. This parameter is 
useful if there is a possibility that your 
program might go into a permanent loop or 
if your program requires a long execution 
time. 


STANDARD DD STATEMENTS 


Three standard data sets can be used for 
the execution job step. These are: 


Purpose ddname 

Input SYSIN 

Output SYSPRINT 

Dump SYSABEND, SYSUDUMP, 
or PLIDUMP 


Of these, only SYSPRINT is necessary in 
every job. If it is omitted, the system 
messages will be put out on the operator's 
console and the other output data will be 
lost. If your installation has 
multiple-console support (MCS), you must 
find out on which console or consoles the 
system messages will appear. 


Input (SYSIN) 


If you want to include data in the input 
stream, you can do so by means of a DD 
Statement of the form: //ddname DD * 
immediately preceding the data. (A data 
set in the input stream does not have to be 
called SYSIN; it can have any name.) The 
data should be 80-byte F-format unblocked 
records (for example, punched cards). 

Code: 


//SXSIN DD ж 
input data 
/* 


. The SYSIN DD statements with this notation 
must be the last statement in the job 
control statements for the job step for 
PCP. If the data includes the characters 
// in columns 1 and 2 replace //SYSIN DD * 
by //SYSIN DD DATA. 


The IBM-supplied cataloged procedures 
PLILFCG, PLILFCLG, PLILFG, and PLILFLG do 
not include a SYSIN DD statement. If you 
want to use one, you must qualify the 
ddname with the step name, that is, code 
// GO. SYSIN. 


Output (SYSPRINT) 


System and problem program output can be 
put out through the system output streams. 
The advantage of this is that each output 
Stream can be associated with an output 
device, such as a printer; this device is 
Specified in the SYSOUT parameter of the DD 
Statement for the output data set. If, as 
is usual, output stream A is associated 
with a printer, the statement 


//SXSPRINT DD SYSOUT-A 


will result in all SYSPRINT data appearing 
in a printed listing. 


The SYSPRINT data can include both 
system output (for example, diagnostic 
messages from job control statements) and 
problem program output. If you want system 
and problem program ouput to be on separate 
listings, you can arrange this by means of 
the MSGCLASS parameter in the JOB 
Statement, see Chapter 4, 'Job 
Initialization.' 


The IBM-supplied cataloged procedures 
PLILFCG, PLILFCLG, PLILFG, and PLILFLG 
include this statement in the execution job 
step. 


Dump (SYSABEND, SYSUDUMP, ог PLÍDUMP) 


If you want to obtain a printed listing of 
any of these dumps, code one of the 
following: 


//SYSABEND DD SYSOUT-A 
//SYSUDUMP DD SYSOUT-A 
//7PLIDUMP DD SYSOUT-A 


For further information on DD statements 
for dumps, see Chapter 14, 'Other 
Facilities of the Operating System’. 


USER DD STATEMENTS 


In execution of your program, you can 
create data sets or you can access data 
sets already created. For the types of 
data set that can be used with a PI/I 
program, see Chapter 9, 'Data Sets and PL/I 
Files.' For the methods of creating or 
accessing these data sets, see Chapter 10, 
'Stream-Oriented Transmission,' and Chapter 
11, 'Record-Oriented Transmission.' 


The IBM-supplied cataloged procedures 
PLILFCG, PLILFCLG, PLILFG, and PLILFLG do 
not include statements for user data sets. 
If you want to include such statements, you 
must code them with the ddname qualified 
with the step name, that is, code 
//GO.ddname. 


Listing 
CONTENTS OF SYSPRINT LISTING 


The SYSPRINT listing that you obtain with 
your job consists of some or all of the 
following entries, usually in the sequence 
given: 


1. Job output, in the format established 
by any PUT FILE(SYSPRINT) statements 
in your PL/I source program. 


2. Execution-time diagnostic messages 
produced by the PL/I library. These 
have the format: 

IHEdddI Message text 
where 'ddd' is a decimal number. 
3. Dump of part of or all main storage. 


The important information here for you 
is the completion codes. 
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4. Diagnostic messages from any operating 
system facility which has an interface 
with your PL/I program. For example, 
checkpoint or sort messages would be 
printed here. 


5. Job scheduler messages, showing the 
final disposition of the data sets 
used in the job. These messages are 
printed in pairs, as follows: 


IEFdddI Data set name Disposition 
IEFdddI Volume serial number of 
data set 


where 'ddd' is a decimal number. The 
two messages numbers are always the 
same for each pair. 


6. Step completion information. This 
depends on your installation but will 
probably contain the step name, step 
time, clock time, date and return 
code. The return code is always zero 
unless you include statements in your 
PL/I program to create a return code. 


7. Job completion information (if this is 
the last step). This depends on your 
installation but will probably include 
job name, job time, clock time, and 
date. 


Of these, only the job scheduler messages 
and the step and job completion information 
will appear in every job. The other items 
will depend on the nature of the source 
program and how successfully it executes. 


RETURN CODES 


The COND parameter causes the job scheduler 
to test the return codes put out at the end 
of every job step. These codes indicate 
the degree of success of the job step; they 
show, for example, whether the program can 
be expected to complete normally and 
whether the output data will be as 
required. Such codes are returned as a 
matter of course at the end of the 
compilation and linkage-editor job steps 
(see Chapters 5 and 6 respectively), 
therefore you do not have to take any 
action to supply them. 


When the execution job step terminates, 
a return code is produced to indicate 
whether or not it terminated successfully. 


Code Termination 
Zero Normal 
Non-zero (value depends Abnormal 


On cause) 
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The return code is provided by the PL/I 
library error-handling subroutines. You 
can generate a return code in your program 
by coding the statements shown below; this 
code is added to the value provided by the 
PL/I library and is printed on the listing. 


Single-task processing: 


DCL IHESARC ENTRY(FIXED ВІМАВҮ (31,0)); 


CALL IHESARC (expression); 
Multitask processing: 


DCL IHETSAC ENTRY(FIXED BINARY (31,0)); 


CALL IHETSAC (expression); 


Note: The entry point IHETSAC is applicable 
to the major task only. 


On evaluation, the expression supplies the 
required value for the return code. 

IHESARC and IHETSAC must be declared as 
fullword binary, otherwise errors may occur 
in the returned code because of the 
halfword binary feature. 


Communication with Program during Execution 


The DISPLAY statement provides a means of 
communicating with the load module for the 
PL/I program during execution. The program 
can put out, on the operator's console, a 
message of up to 72 characters in length. 
If a reply is expected, the syntax of the 
reply message must use a 2-digit code 
provided by the operating system. The 
operator uses this code as a prefix to the 
reply message. 


If your installation has 
multiple-console support (MCS), you must 
find out on which console your messages 
will appear. The PL/I implementation of 
the route and descriptor codes in MCS is 
restricted to: 


PL/I Statement Route Descriptor 
Code code 
DISPLAY 2 7 
DISPLAY with REPLY 1 7 


If SYSPRINT is not available, the console 
on which error messages will appear is 
designated by route code 11 and descriptor 
code 7. These error messages will be 
truncated to 72 characters if they exceed 
this length. 


Introduction 


A cataloged procedure is a set of job 
control statements stored in a system 
library, the procedure library 
(SYS1.PROCLIB). It comprises one or more 
EXEC statements, each of which may be 
followed by one or more DD statements. You 
can retrieve the statements by naming the 
cataloged procedure in the PROC parameter 
of an EXEC statement in the input job 
stream. When the job scheduler encounters 
such an EXEC statement, it replaces it in 
the input stream with the statements of the 
cataloged procedure. 


The use of cataloged procedures saves 
time and obviates errors in coding 
frequently used sets of job control 
statements. Even if the statements in a 
cataloged procedure do not match your 
requirements exactly, you can easily modify 
them or add new statements for the duration 
of a job. 


This chapter describes seven cataloged 
procedures supplied by IBM for use with the 
(F) compiler, and explains how to invoke 
them and how to make modifications to them. 


PL/I Cataloged Procedures supplied by IBM 


The following paragraphs do not fully 
describe the individual statements of the 
IBM cataloged procedures, since all the 
parameters are discussed elsewhere in this 
manual. Note that the cataloged procedures 
described here are the standard PL/I 
cataloged procedures. It is recommended 
that each installation review these 
procedures and modify them to obtain the 
most efficient use of the facilities 
available and to allow for installation 
conventions; refer to ‘Permanent 
Modification,‘ at the end of this chapter. 
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The standard PL/I cataloged procedures 
аге: 


PLIDFC Compile and punch object deck 

PLILFC Compile and piace dbject 
module on magnetic-tape or 
direct-access device 

PLILFCL Compile and link-edit 

РІЛІЕСІС Compile, link-edit, and execute 

PL1LFLG Link-edit and execute 

PLILFCG Compile, load-and-execute 

PLILFG Load-and-execute 


COMPILE AND PUNCH OBJECT DECK (PLIDFC) 


The cataloged procedure PL1DFC (Figure 8-1) 
comprises only one job step, in which the 
(F) compiler is executed with the DECK 
option. (IEMAA is the symbolic name of the 
compiler.) In common with the other 
cataloged procedures that include a 
compilation job step, PL1DFC does not 
include a DD statement for the compiler 
input data set; you must always supply an 
appropriate statement with the qualified 
ddname PL1D.SYSIN. Because the EXEC 
Statement includes the options DECK and 
NOLOAD, the compiler will place the object 
module in card-image form in the data set 
defined by the DD statement SYSPUNCH; 
conventionally, the system output device of 
class B is always a card punch. 


COMPILE AND WRITE OBJECT MODULE (PLILFC) 


The cataloged procedure PLILFC (Figure 8-2) 
is similar to РІЛГЕС; it differs only іп 
that the options specified for the 
compilation are LOAD and NODECK, and the DD 


//PLiD EXEC PGM-IEMAA,PARM-'DECK,NOLOAD',REGION-52K 


//SYSPRINT DD SYSOUT-A 
//SYSPUNCH DD SYSOUT-B 


//SYSUT3 DD DSNAME-&6SYSUT3,UNIT-SYSDA,SPACE-(80,(250,250)), 


/” DCB=BLKSIZE= 80 


//SYSUT1 DD DSNAME=& &SYSUT1, UNIT=SYSDA, SPACE= (1024, (60,60),,CONTIG), 
/” SEP= (SYSUT3, SYSPUNCH) , DCB=BLKSIZE=1024 


Figure 8-1. 


Cataloged Procedure PLiDFC (Compile and Punch Object Deck) 
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//Р111. EXEC PGM-IEMAA,PARM-'LOAD,NODECK',REGION-52K 


//SYSPRINT DD SYSOUT-A 


//SYSLIN DD DSNAME-&&LOADSET , DISP= (MOD, PASS) ,UNIT-SYSSQ, 


/” SPACE=(80, (250,100) ) 


//SYSUT3 DD DSNAME-&6SYSUT3,UNIT-SYSDA,SPACE- (80, (250, 250)), 


// DCB-BLKSIZE-80 


//SYSUT1 DD DSNAME-&6SYSUT1,UNIT-SYSDA,SPACE-(1024,(60,60)0,,CONTIG), 
// SEP= (SYSUT3,SYSLIN) , DCB=BLKSIZE=1024 


Figure 8-2. 


Cataloged Procedure PLILFC (Compile and Write Object Module) 


//PLIL EXEC PGM=IEMAA, PARM=' LOAD, NODECK*' , REGION=5 2K 


//SYSPRINT DD SYSOUT=A 


//SYSLIN DD DSNAME=& &LOADSET ,DISP= (MOD, PASS) , UNIT=SYSSQ, 


// SPACE= (80, (250,100) ) 


//SYSUT3 DD DSNAME=& &SYSUT3 , UNIT=SYSDA , SPACE= (80, (250,250)), 


£L ; DCB-BLKSIZE-80 


//SYSUT1 DD DSNAME=& &SYSUT1, UNIT=SYSDA , SPACE= (1024, (60,60),,CONTIG), 
// SEP=(SYSUT3,SYSLIN) , DCB=BLKSIZE=1024 
//LKED EXEC PGM=IEWL, РАКМ= " XREF, LIST‘, COND=(9,LT, PL1L) , REGION=96K 


//SYSLIB DD DSNAME=SYS1.PLILIB,DISP=SHR 


//SYSLMOD DD DSNAME=&&GOSET (GO) ,DISP- (MOD, PASS) , UNIT=SYSDA, 


/” SPACE=(1024, (50,20,1) ,RLSE) 


//SYSUT1 DD DSNAME=6 &SYSUT1, UNIT=SYSDA, SPACE= (1024, (200, 20)), 
/” SEP=(SYSLMOD, SYSLIB) , DCB=BLKSIZE=1024 


//SXYSPRINT DD SYSOUT-A 


//SYSLIN DD DSNAME=& SLOADSET ,DISP= (OLD, DELETE) 


// DD DDNAME=SYSIN 


Figure 8-3. 


statement SYSLIN replaces SYSPUNCH. The 
LOAD option causes the compiler to place 
the object module, in a form suitable for 
input to the linkage editor, in the data 
set defined by the DD statement SYSLIN. 
This DD statement defines a temporary data 
set named &&LOADSET, since the cataloged 
procedure assumes that a link-edit job step 
will follow. If you want to retain the 
load module, you must substitute your own 
DD statement for the one supplied. Input 
data for this cataloged procedure requires 
the qualified ddname PL1L.SYSIN. 


COMPILE AND LINK-EDIT (PL1ILFCL) 


The cataloged procedure PLILFCL (Figure 
8-3) comprises two job steps: PL1L, which 
is identical with cataloged procedure 
PLILFC, and LKED, which invokes the Linkage 
editor (symbolic name IEWL) to link-edit 
the object module produced in the first 
step. 


Input data for the compilation job step 
requires the qualified ddname PL1L.SYSIN. 


The COND parameter in the EXEC statement 
LKED specifies that this job step should be 
bypassed if the return code produced by the 
compiler is greater than 9 (that is, if a 
severe or termination error occurred during 
compilation). 
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Cataloged Procedure PLILFCL (Compile and Link-Edit) 


The DD statement SYSLIB specifies the 
PL/I subroutine library, from which the 
linkage editor will read appropriate 
modules for inclusion in the load module. 


The linkage editor always places the 
load modules it creates in the library 
defined by the DD statement SYSLMOD. 
statement in the cataloged procedure 
specifies a new temporary library &&GOSET, 
in which the load module will be placed and 
given the member name GO (unless you 
specify the OBJNM option for the 
compilation). In specifying a temporary 
library, the cataloged procedure assumes 
that you will execute the load module in 
the same job; if you want to retain the 
module, you must substitute your own 
statement for the DD statement SYSLMOD. 


This 


The statement DDNAME=SYSIN following the 
DD statement SYSLIN allows you to 
concatenate a data set defined by a DD 
statement with the name SYSIN with the 
primary input to the linkage editor; for 
example, you could place linkage-editor 
control statements in the input stream by 
this means. 


//PLIL EXEC РСМ=ТЕМАА, PARM=" LOAD, NODECK’ , REGION=52K 


//SYSPRINT DD SYSOUT=A 


//SYSLIN DD DSNAME=&§ &LOADSET ,DISP= (MOD, PASS) , UNIT=SYSSQ, 


ИИ SPACE= (80, (250,100) ) 


//SYSUT3 DD DSNAME=& &SYSUT3 , UNIT=SYSDA, SPACE= (80, (250,250)), 


4/ DCB=BLKSI ZE=80 


//SYSUTI DD DSNAME=& &6SYSUT1, UNIT=SYSDA, SPACE=(1024, (60,60) ,, CONTIG), 
/” SEP= (SYSUT3,SYSLIN) , DCB=BLKSIZE=1024 
//LKED EXEC PGM-IEWL,PARM-'XREF,LIST',COND-(9,LT,PL1L),REGION-96K 


//SXSLIB DD DSNAME-SYS1.PL1LIB,DISP-SHR 


/4/SXSLMOD DD DSNAME-&6GOSET (GO) ,DISP- (MOD, PASS) , UNIT=SYSDA, 


// ‘SPACE=(1024, (50,20,1) ,RLSE) 


//SYSUT1 DD DSNAME=& &SYSUT1, UNIT=SYSDA, SPACE= (1024, (200,20)), 
7” SEP=(SYSLMOD, SYSLIB) , DCB=BLKSIZE=1024 


//SXSPRINT DD SYSOUT-A 


//SYSLIN DD DSNAME=& &LOADSET, DISP= (OLD, DELETE) 


/” DD DDNAME=SYSIN 


//GO EXEC PGM-*.LKED.SYSLMOD,COND- ((9,LT,LKED), (9,LT,PL1L)) 


//SXSPRINT DD SYSOUT-A 


Figure 8-4. 


COMPILE, LINK-EDIT, AND EXECUTE (PLILFCLG) 


The cataloged procedure PLILFCLG (Figure 
8-4) comprises three job steps, PL1L and 
LKED, which are identical with the two job 
steps of PLILFCL, and GO, in which the load · 
module created in the step LKED is 

executed. The third step will be executed 
only if no severe or termination errors 
occur in the preceding steps. 


Input data for the compilation job step 
requires the qualified ddname PL1L.SYSIN; 
input data for the execution job step 
requires the name GO.SYSIN. 


LINK-EDIT AND EXECUTE (PL1LFLG) 


The cataloged procedure PL1LFLG (Figure 
8-5) comprises two job steps, LKED and GO, 
which are similar to the steps of the same 
names іп PLILFCLG. Іп the job step LKED, 
the DD statement SYSLIN does not define a 
data set, but merely refers the job 
scheduler to the DD statement SYSIN, which 
you must supply with the qualified ddname 
LKED.SYSIN. This DD statement defines the 


Cataloged Procedure PLILFCLG (Compile, Link-Edit, and Execute) 


data set from which the linkage editor will 
obtain its primary input. Execution of the 
step GO is conditional on successful 
execution of the step LKED only. 


COMPILE, LOAD AND EXECUTE (PL1LFCG) 


The cataloged procedure PLILFCG (Figure 
8-6) achieves the same result as PLILFCLG. 
However, instead of using three job steps 
(compile, link-edit, and execute), it has 
only two (compile, and load-and-execute). 
In the second job step of PLILFCG, the 
operation system loader program is 
executed; this program link-edits the 
object program produced by the compiler and 
then executes the load module immediately. 


Input data for the compilation job step 
requires the qualified ddname PL1L.SYSIN. 


Note that the REGION parameter of the 
EXEC statement GO specifies 96K bytes. 
Since the loader requires about 17K bytes 
of main storage, there are about 79K bytes 
for your program; if this is likely to be 
insufficient, you must modify the REGION 
parameter. 


//LKED EXEC PGNM-IEWL,PARM-'XREF,LIST',REGION-96K 


//SYSLIB DD DSNAME-SYS1.PL1LIB,DISP-SHR 


//SYSLMOD DD DSNAME-&&GOSET (GO) , DISP=(MOD, PASS) , UNIT=SYSDA, 


"P4 SPACE-(10240,(50,20,1),RLSE) 


//SYSUT1 DD DSNAME-&6SYSUT1,UNIT-SYSDA,SPACE- (1024, (200,200), 
ИИ SEP=(SYSLMOD, SYSLIB) , DCB=BLKSIZE=1024 


//SXSPRINT DD SYSOUT=A 
//SXSLIN DD DDNAME=SYSIN 


//GO EXEC PGM-*.LKED.SYSLMOD,COND- (9,LT,LKED) 


//SYSPRINT DD SYSOUT-A 


Figure 8-5. 


Cataloged Procedure PLILFLG (Link-Edit and Execute) 
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//PLiL EXEC PGM-IEMAA,PARM-'LOAD,NODECK',REGION-52K 


//SYSPRINT DD SYSOUT-A - 


//SXSLIN DD DSNAME=6 &LOADSET , DISP= (MOD, PASS) , UNIT=SYSSQ, 


// SPACE-(80,(250,100)) 


//SYSUT3 DD DSNAME-&6SYSUT3,UNIT-SYSDA,SPACE- (80, (250, 250)), 


// DCB=BLKSI ZE=80 


//SYSUT1 DD DSNAME=£ &SYSUT1, UNIT=SYSDA , SPACE= (1024, (60,60),,CONTIG), 
// SEP= (SYSUT3, SYSLIN) , DCB=BLKSIZE=1024 
//GO EXEC PGM=LOADER, PARM='MAP, PRINT’ , REGION=96K, COND= (9, LT, PLIL) 


//SYSLIB DD DSNAME=SYS1.PLILIB, DISP=SHR 


//SYSLIN DD DSNAME=§ &LOADSET, DISP= (OLD , DELETE) 


//SYSLOUT DD SYSOUT=A 
//SYSPRINT DD SYSOUT-A 


Figure 8-6. 


Cataloged Procedure PLILFCG (Compile, Load-and-Execute) 


//GO EXEC PGM-LOADER,PARM-'MAP,PRINT',REGION-96K 


//SYSLIB DD DSNAME-SYS1.PL1LIB,DISP-SHR 
//SYSLOUT DD SYSOUT-A 
//SYSPRINT DD SYSOUT-A 


Figure 8-7. 


The use of the loader imposes certain 
restrictions on your PL/I program; before 
using this cataloged procedure, refer to 
Chapter 6, which explains how to пзе the 
loader. 


LOAD AND EXECUTE (PL1ILFG) 


The cataloged procedure PLILFG (Figure 8-7) 
achieves the same result as PLILFLG. 
However, instead of using two job steps 
(link-edit and execute), it has only one. 
In this job step, the operating system 
loader program is executed. This program 
link-edits and executes an object program 
placed in a data set defined by a DD 
Statement with the name SYSLIN; you must 
supply this DD statement with the qualified 
ddname GO.SYSLIN. 


Note that the REGION parameter of the 
EXEC statement specifies 96K bytes. Since 
the loader requires about 17K bytes of main 
Storage, there are about 79K bytes for your 
program; if this is not likely to be 
sufficient, you must modify the parameter. 


Тһе use of the loader imposes certain 
restrictions on your PL/I program; before 
using this cataloged procedure, refer to 
Chapter 6, which explains how to use the 
loader. 


DEDICATED WORKFILES 


All the cataloged procedures that require 
the use of workspace data sets in any 
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Cataloged Procedure PLILFG (Load-and-Execute) 


job step include DD statements that permit 
the substitution of dedicated workfiles for 
these data sets. In such a DD statement, 
the dsname is coded: 


DSNAME=& &ddname 


where 'ddname' is the ddname of the 
dedicated workfile that is to be 
substituted for the workspace data set. 
This substitution only occurs if: 


1. The job is being processed under MVT. 


2. An initiator that generates dedicated 
workfiles is used to select the job. 


Dedicated workfiles may be used for the 
SYSUT1 and SYSUT3 work data sets for the 
PL/I (F) compiler. Dedicated workfiles may 
also be used for the SYSLIN data set in 
compile-link-edit-and-go or compile-load- 
and-go jobs. However, care should be taken 
to specify a block size (which must be a 
multiple of 80 bytes) for this data set, as 
the compiler will not override an 
unsuitable block size left in the dedicated 
workfile DSCB by а previous job (this is 
because the compiler cannot know if SYSLIN 
is a permanent data set, perhaps 
erroneously specified, for which the block 
size may not be overriden). This block 
size may be specified either in user JCL or 
the cataloged procedure used. If it is 
specified in a cataloged procedure, care 
must be taken to ensure that the block size 
is overridden by user JCL when the 
procedure is used to update a permanent 
SYSLIN data set with a block size different 
to that specified in the procedure. 


Note that the standard cataloged 
procedures PLILFC, PLILFCL, PLILFCLG, and 


PLILFCG use the dsname LOADSET and specify 
UNIT=SYSSQ for SYSLIN. They assume that 
SYSLIN will not use a dedicated workfile. 
These mày be modified to do so subject to 
the above restrictions on block size, and 
provided UNIT is changed to specify 
UNIT-SYSDA. 


Fora complete description of the use of 
dedicated workfiles, see IBM System/360 


Operating System: System Programmer's 
Guide. : 


Using Cataloged Procedures 


To invoke a cataloged procedure, specify 
its паше in the PROC parameter of an EXEC 
statement. For example, to use the 
cataloged procedure PLIDFC, you could 
include the following statement in the 
appropriate position among your other job 
control statements in the input stream: 


// EXEC PROC=PL1DFC 


Note that you need not code the keyword 
PROC; if the first operand in the EXEC 
statement does not begin PGM= or PROC=, the 
job scheduler interprets it as the name of 
a cataloged procedure. Thus, the following 
statement is equivalent to that given 
above: 


// EXEC PLIDFC 


when the job scheduler encounters the 
name of a cataloged procedure in an EXEC 
statement, it extracts the statements of 
the cataloged procedure from the procedure 
library and substitutes them for the EXEC 
statement in the input job stream. If you 
include the parameter MSGLEVEL=1 in your 
JOB statement, the job scheduler will 
include the original EXEC statement in its 
listing, and will append the statements of 
the cataloged procedure. In the listing, 
cataloged procedure statements are 
identified by XX or X/ as the first two 
characters; X/ signifies a statement that 
has been modified for this invocation of 
the cataloged procedure. 


An EXEC statement identifies a job step, 
which can require either the execution of a 
program or the invocation of a cataloged 
procedure. A cataloged procedure includes 
one or more EXEC statements, which identify 
procedure steps. However, an EXEC 
statement in a cataloged procedure cannot 
invoke another cataloged procedure; it must 
request the execution of a program. Thus a 
job comprises one or more job steps, each 
of which involve one or more procedure 
steps. 


It will usually be necessary for you to 
modify the statements of a cataloged 
procedure for the duration of the job step 
in which it is invoked, either by adding DD 
statements to it or by overriding one or 
more parameters in the EXEC or DD 
statements. For example, all the cataloged 
procedures that involve compilation require 
the addition of a DD statement with the 
name SYSIN to define the data set that 
contains the source statements. Also, 
whenever you use more than one standard 
linkage-editor procedure step in a job, you 
must modify all but the first cataloged 
procedure that you invoke if you want to 
execute more than one of the load modules; 
this special case is discussed in ‘Altering 
Cataloged Procedures,‘ below. 


Altering Cataloged Procedures 


You can modify a cataloged procedure 
permanently by rewriting the job control 
statements that are stored in the procedure 
library. Alternatively, you can make 
temporary changes by including parameters 
in the EXEC statement that invokes the 
cataloged procedure or by placing 
additional DD statements after the EXEC 
statement. 


Permanent alterations should be made 
only by system programmers responsible for 
maintaining the procedure library. Some of 
the considerations that may influence their 
decisions as to whether and how to modify 
the standard cataloged procedures are 
discussed below. 


Most programmers find it necessary to 
make temporary modifications whenever they 
use a cataloged procedure. Such changes 
apply only for the duration of the job step 
in which the procedure is invoked and only 
to that job step; they do not affect the 
copy of the cataloged procedure stored in 
the procedure library. 


TEMPORARY MODIFICATION 


Temporary modifications can apply to EXEC 
or DD statements in a cataloged procedure. 
To change a parameter of an EXEC statement, 
you must include a corresponding parameter 
in the EXEC statement that invokes the 
cataloged procedure; to change one or more 
parameters of a DD statement, you must 
include a corresponding DD statement after 
the EXEC statement that invokes the 
cataloged procedure. Although you may not 
add a new EXEC statement to a cataloged 
procedure, you can always include 
additional DD statements. 
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EXEC Statement 


If a parameter of an EXEC statement that 
invokes a cataloged procedure has an 
unqualified name, that parameter applies to 
all the EXEC statements in the cataloged 
procedure. The effect on the cataloged 
procedure depends on the parameter: 


PARM applies to the first procedure 
step and nullifies any other PARM 
parameters. 


COND and ACCT apply to all the 
procedure steps. 


TIME and REGION apply to all the 
procedure steps and override existing 
values. 


For example, the statement 


// EXEC PLILFCLG, PARM="SIZE=999999', 
ИИ REGION=14 4K 


invokes the cataloged procedure PLILFCLG, 
substitutes the option SIZE=999999 for LOAD 
and NODECK in the EXEC statement PLIL, and 
nullifies the PARM parameter in the EXEC 
statement LKED; it also specifies a 
regional size of 144K for all three 
procedure steps. 


To change the value of a parameter in 
only one EXEC statement of a cataloged 
procedure, or to add a new parameter to one 
EXEC statement, you must identify the EXEC 
statement by adding its name as a suffix to 
the parameter name; separate the parameter 
name and the step name with a period. For 
example, to alter the region size for 
procedure step PL1L only in the preceding 
example, code: 


// EXEC PROC-PLILFCLIG, 
ИИ PARM-'SIZE-999999', 
/” REGION. PL1L=144K 


A new parameter specified in the 
invoking EXEC statement overrides 
completely the corresponding parameter in 
the procedure EXEC statement. This is 
particularly important with the PARM 
parameter. For example, the statement 


// EXEC PLIDFC, PARM. PL1LL="SIZE=999999, 
// EXTREF' 


would be in error if the standard compiler 
default options applied. The default 
options NODECK and LOAD would apply, rather 
than the options DECK and NOLOAD specified 
in the procedure EXEC statement. 
Consequently, the compiler would attempt to 
open the data set defined by the DD 
Statement SYSLIN, which does not exist in 
the cataloged procedure РІ1рЕС. 
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.You can suppress all the options 
specified by a parameter by coding the 
keyword and equal sign without a value. 
For example, to suppress the bulk of the 
linkage-editor listing when invoking the 
cataloged procedure PLILFCLG, code: 


// EXEC PLILFCLG,PARM.LKED- 


DD Statement 


To add a new DD statement to a cataloged 
procedure, or to modify one or more 
parameters of an existing DD statement, you 
must include, in the appropriate position 
in the input stream, a DD statement with a 
name of the form 'procstepname.ddname'. If 
'ddname' is the name of а DD statement 
already present in the procedure step 
identified by 'procstepname,' the 
parameters in the new DD statement override 
the corresponding parameters in the 
existing DD statement; otherwise, the new 
DD statement is added to the procedure 
step. For example, the statement 


//PLiD.SYSIN DD ж 


adds a DD statement to the step PL1D of 
cataloged procedure PL1DFC, and the effect 
of the statement 


//PLiD.SYSPRINT DD SYSOUT-C 


is to modify the existing DD statement 
SYSPRINT (causing the compiler listing to 
be transmitted to the system output device 
of class C). 


Overriding DD statements must follow the 
EXEC statement that invokes the cataloged 
procedure in the same order as the 
corresponding DD statements of the 
cataloged procedure. DD statements that 
are being added must follow the overriding 
DD statements for the procedure step in 
which they are to appear. If you are using 
an operating system with PCP, an overriding 
or additional DD statement with the operand 
* or DATA must be the last DD statement for 
the procedure step. 


TO override a parameter of a DD 
Statement, code either a revised form of 
the parameter or a replacement parameter 
that performs a similar function (e.g., 
SPLIT for SPACE). То nullify a parameter, 
code the keyword and equal sign without a 
value. You can override DCB subparameters 
by coding only those you wish to modify; 
that is, the DCB parameter in an overriding 
DD statement does not necessarily override 
the entire DCB parameter of the 
corresponding statement in the cataloged 
procedure. 


Multiple Invocation of Cataloged Procedures 


You can invoke different cataloged 
procedures, or invoke the same procedure 
several times, in the same job. No special 
problems are likely to arise unless more 
than one of these cataloged procedures 
involves a link-edit step, in which case 
you must take precautions to ensure that 
all your load modules can be executed. 


The linkage editor always places a load 
module that it creates in the library 
identified by the DD statement SYSLMOD. In 
the absence of a linkage editor NAME 
statement (or the compiler OBJNM parameter 
option), it uses the member name specified 
in the DSNAME parameter as the name of the 
module. In the standard cataloged 
procedures, the DD statement SYSLMOD always 
specifies a temporary library named 
&&GOSET, and gives the member name GO. 


Consider what will happen if, for 
example, you use the cataloged procedure 
PLILFCLG twice in a job to compile, 
link-edit, and execute two PL/I programs, 
and do not individually name the two load 
modules that will be created by the linkage 
editor. The linkage editor will name the 
first module GO, as specified in the first 
DD statement SYSLMOD. It will not be able 
to use the same name for the second module, 
since the first module still exists in the 
library &&GOSET; therefore it will allocate 
a temporary name to the second module (a 
name that is not available to your 
program). Step GO of the cataloged 
procedure requests the job scheduler to 
initiate execution of the load module named 
in the DD statement SYSLMOD in the step 
LKED, that is, to execute the module named 
GO from the library &&GOSET. Consequently, 
the first program module will be executed 
twice and the second not at all. 


You can use one of the following methods 
to obviate this difficulty: 


1. Delete the library S&GOSET at the end 
of the step GO of the first invocation 


//3J070PGEX JOB 
// EXEC PLILFLG, PARM= 


of the cataloged procedure by adding a 
DD statement of the form: 


//GO. SYSLMOD DD DSNAME=&&GOSET, 
EA DISP=(OLD, DELETE) 


2. Modify the DD statement SYSLMOD in the 
second and subsequent invocations of 
the cataloged procedure so as to vary 
the names of the load modules. For 
example: 


//LKED.SYSLMOD DD DSNAME= 6&6 &GOSET(GO1) 
and so on. 


3. Use the OBJNM option to give a 
different name to each load module. 


Example 


Figure 8-8 is an example of the use of the 
cataloged procedure PLILFLG. It assumes 
that an object module already exists in the 
data set SOURCE1, which is on the 2311 disk 
pack with the serial number D186. 


The PARM parameter in the EXEC statement 
nullifies the corresponding parameter of 
the first EXEC statement in the cataloged 
procedure; its effect is to suppress most 
of the linkage-editor listing. 


Two of the DD statements in the example 
refer to the procedure step LKED; one of 
them overrides the existing statement 
SYSLMOD, and the other adds a new statement 
SYSIN. The overriding statement SYSLMOD 


. causes the linkage editor to place the load 


module in the existing private library PLIB 
and give it the name CAT. The new 
Statement SYSIN defines the data set that 
contains the object module that is to be 
link-edited. (The ddname SYSIN is equated 
with the name SYSLIN by the DDNAME 
parameter of the DD statement SYSLIN in the 
cataloged procedure.) 


Data to be processed when the program 
CAT is executed is introduced in the input 
Stream and is identified by the DD 
Statement SYSIN, which is added to the job 
step GO. 


//LKED.SYSLMOD DD UNIT=2311, VOLUME=SER=D186, DSNAME=PLIB(CAT) , 


/” DISP=(OLD, PASS) 


//LKED.SYSIN DD UNIT=2311, VOLUME=SER=D186 , DSNAME=SOURCE1 , DISP=OLD 


//GO.SYSIN DD * 
17324 259 
/% 


7312 841 977 


Figure 8-8. 


2193 21 37052 


Invoking Cataloged Procedure PL1LFLG 
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PERMANENT MODIFICATION 


To make permanent modifications to a 
cataloged procedure, or to add a new 
cataloged procedure, use the system utility 
program IEBUPDTE, which is described in IBM 
System/360 Operating System: Utilities. 

The following paragraphs discuss some of 
the factors you should have in mind when 
considering whether to modify the standard 
cataloged procedures for your installation. 
For further information on writing 
installation cataloged procedures, see IBM 
System/360 Operating System: System 
Programmer's Guide. 


In general, installation conventions 
will dictate the options that you include 
in the PARM, UNIT, and SPACE parameters of 
the cataloged procedures, and also the 
blocking factors for output data sets. 


If your installation is using the MVT 
option of the operating system, you may 
need to modify some or all of the REGION 
parameters and SYSPRINT DD statements in 
the cataloged procedures. 


Тһе minimum region size for compilation 
should be at least 8K bytes larger than the 
largest value that will be specified in the 
compiler SIZE option (excluding 
SIZE-999999). 


In those cataloged procedures that 
invoke the linkage editor, a region size of 
96K is specified for the link-edit step. 
You can reduce this value if you are using 
the E-level linkage editor or the 44K 
F-level linkage editor. The minimum region 
sizes for the E-level linkage editor are: 


————————————— 
| 


//CONVERT JOB PL1PROG, MSGLEVEL=1 


|/^/PL1COMPL PROC (Symbolic parameters are optional) 


//ENDCOMPL PEND 


ГА EXEC PLICOMPL 
//PL1D.SYSIN рр ж 
(Input Data) 
/* 
// EXEC РЇ1СОМР1 


//EL1D.SYSIN DD ж 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| (Input Data) 
| 

| 


Figure 8-9. 
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Linkage Editor 


E15 
E18 
E44 


Region 


24K 
26K 
54K 


For the F-level linkage editor, the region 
size should be at least 8K bytes larger 


than the largest 
the SIZE option. 
parameter if you 


value to be specified in 
You must alter the REGION 
are using the 128K bytes, 


(PLIDFC procedure as it exists in the procedure library) 


— лче ee u$ ee чыш ees ee «ир ee UU oe ee чыш eee 


Executing PLIDFC as an In-Stream Procedure 


F-level, linkage editor. 


Note that, under MVT the operating 
system requires 52K bytes of main storage 
within a region when initiating or 
terminating a job step. If you specify a 
region size of less than 52K bytes, 
completion of a job may be held up until 
52K bytes are available. 


If your installation does not use MVT, 
you can delete the REGION parameter from 
all cataloged procedures. 


If the data set defined by a DD 
Statement with the name SYSPRINT may be on 
a direct-access device, you should add a 
SPACE parameter to the statement. 


A modified cataloged procedure can be 
tested by converting it to an in-stream 
procedure and executing it any number of 
times during a job. Figure 8-9 shows how 
to convert PLIDFC to an in-stream procedure 
and execute it twice. 


For further information about in-stream 
procedures and symbolic parameters, refer 
to the publication IBM System/360 Operating 
System: Job Control Language Reference. 
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Introduction 


This chapter describes briefly the nature 
and organization of data sets, and the data 
management services provided by IBM 
System/360 Operating System, and explains 
how the compiled program produced by the 
PL/I (F) compiler uses them. 


Data Sets 


In IBM System/360 Operating System, a data 
set is any collection of data that can be 
created and accessed by a program. A data 
set may be a deck of punched cards; it may 
be a series of items recorded on magnetic 
tape or paper tape; or it may be recorded 
on a direct-access device such as magnetic 
disk, drum, or data cell. A printed 
listing produced by a program is also a 
data set, but it cannot be read by a 
program. A PL/I compiled program uses the 
data management routines of the operating 
system to create and access data sets. 


A data set resides on one or more 
volumes. A volume is a standard unit of 
auxiliary storage that can be written on or 
read by an input/output device (for 
example, a reel of tape, a disk pack, or a 
card deck); a unique serial number 
identifies each volume (other than a 
punched-card or paper-tape volume or a 
magnetic-tape volume with either no labels 
or nonstandard labels). 


A magnetic-tape or direct-access volume 
can contain more than one data set; 
conversely, a single data set can span two 
or more magnetic-tape or direct-access 
volumes. 


DATA SET NAMES 


A data set on a direct-access device must 
have a name so that the operating system 
can refer to it. А data set on magnetic 
tape must have a name if the tape has 
Standard labels (see 'Labels,' below). A 
name consists of up to eight characters, 
the first of which must be alphabetic. 
Data sets on punched cards, paper tape, 
unlabeled magnetic tape or nonstandard 
labeled magnetic tape do not have names. 
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You can place the name of a data set, 
with information identifying the volume on 
which it resides, in a catalog that exists 
in the volume that contains the operating 
System. Such a data set is termed a 
cataloged data set. To retrieve a 
cataloged data set, you do not need to give 
the volume serial number or identify the 
type of device; you need only specify the 
name of the data set and its disposition. 
The operating system searches the catalog 
for information associated with the name 
and uses this information to request the 
operator to mount the volume containing 
your data set. 


If you have a set of related data sets, 
you can increase the efficiency of the 
search for a particular member of the set 
by establishing a hierarchy of indexes in 
the catalog. For example, consider an 
installation that groups its data sets 
under four headings: ENGRNG, SCIENCE, 
ACCNTS, and INVNTRY (Figure 9-1). In turn, 
each of these groups is subdivided; for 
instance, the SCIENCE group has subgroups 
called PHYSICS, CHEM, MATH, and BIOLOGY. 
The MATH group itself contains three 
subgroups: ALGEBRA, CALCULUS, and BOOL. To 
find the data set BOOL, the names of all 
the indexes of which it is part must be 
specified, beginning with the largest group 
(SCIENCE), followed by the next largest 
group (MATH), and finally the data set name 
BOOL. The names are separated by periods. 
The complete identification needed to find 
the data set BOOL is SCIENCE.MATH.BOOL; 
such an identifier is termed a qualified 
name. The maximum length of a qualified 
name is 44 characters, including the 
separating periods; each component name has 
a maximum length of eight characters. (Do 
not use data set names that begin with the 
letters SYS and have a P as the nineteenth 
character. The names assigned by the PCP 
operating system to unnamed temporary data 
sets are of this form. They are deleted | 
when the operating system utility IEHPROGM 
is used with a SCRATCH statement that 
includes the keywords VTOC and SYS.) 





Some data sets are updated periodically, 
or are logically part of a group of data 
sets, each of which is related to the 
others in time. You can relate such data 
sets to each other in what is termed a 
generation data group. Each data set in a 
generation data group has the same name 
qualified by a unique parenthesized 
generation number (for example, STOCK(0), 
STOCK(-1), 5ТОСК(-2)). Тһе most recently 
cataloged data set is generation 0, and the 
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preceding generations are -1, -2, and so 
on. You specify the number of generations 
to be saved when you establish the 
generation data group. 


г---------т-------і-------т--------- 
ооо, 
ENGRNG SCIENCE ACCNTS INVNTRY 
| 
| 
S ю——-т---——-- 1 


ALGEBRA CALCULUS BOOL 


Figure 9-1. A Hierarchy of Indexes 

For example, consider a generation data 
group that contains a series of data sets 
used for weather reporting and forecasting; 
the name of the data sets is WEATHER. The 
generations for the group (assuming that 
three generations are to be saved) are: 


WEATHER (0) 
WEATHER (-1) 
WEATHER (-2) 


When WEATHER is updated, the new data set 
is specified to the operating system as 
WEATHER(+1). When it catalogs the new data 
set, the operating system changes the name 
to WEATHER(0), changes the former 
WEATHER(0) to WEATHER(-1), the former 

, WEATHER(-1) to WEATHER(-2), and deletes the 
former WEATHER(-2). 


For instructions on how to create a 
generation data group, refer to IBM 


System/360 Operating System: Job Control 
Lanquage and IBM System/360 Operating 
: System: Utilities. 


RECORD FORMATS 


The items of data in a data set are 
arranged in blocks separated by interblock 
gaps (IBG)*; a block is the unit of data 
transmitted to and from a data set. Each 
block contains one record, part of a record 


4Although the term 'interrecord дар" is 
widely used in operating system manuals, it 
is not used here; it has been replaced by 
the more accurate term 'interblock gap.' 
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or several records; a record is the unit of 
data transmitted to and from a program. 
When writing a PL/I program, you need 
consider only the records that you are 
reading or writing; but when you describe 
the data sets that your program will create 
or access, you must be aware of the 
relationship between blocks and records. 


If a block contains two or more records, 
the records are said to be blocked. 
Blocking conserves storage space in a 
volume because it reduces the number of 
interblock gaps, and it may increase 
efficiency by reducing the number of 
input/output operations required to process 
a data set. Records are blocked and 
deblocked automatically with the aid of the 
data management routines of the operating 
system. 


The records in a data set must be in one 
of three formats: fixed-length, 
variable-length, or undefined-length. 
Fixed-length and variable-length records 
can be blocked or unblocked; 
undefined-length records cannot be blocked. 
The following paragraphs describe the three 
record formats. 


Fixed-Length Records 


In a data set with fixed-length (F-format 
and FB-format) records, (see Figure 9-2) 
all records have the same length. If the 
records are blocked, each block contains an 
equal number of fixed-length records 
(although the last block may be truncated 
if there are insufficient records to fill 
it). If the records are unblocked, each 
record constitutes a block. 


Because it can base blocking and 
deblocking on the constant record size, the 
operating system can process fixed-length 
records faster than variable-length 
records. The use of ‘standard’ FS-format 
and FBS-format further optimizes the 
sequential processing of a data set ona 
direct-access device. A standard format 
data set contains fixed-length records and 
must have no embedded empty tracks or short 
blocks (apart from the last block). Witha 
standard format data set, the operating 
system can predict whether the next block 
of data will be on a new track, and, if 
necessary, can select a new read/write head 
in anticipation of the transmission of that 
block. | 


Note; 
1. A PL/I program never places embedded 


short blocks in a data set with 
fixed-length records. 


Unblocked records (F-format) : 


r-~Block-— 4 г--В1оск-- 4 r~~Block-- + 


г 1 г 1 (r- 
| Record | IBG | Record | IBG | Record 


аы... 
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Blocked records (FB-format): 


г------------Віоск------------ 4 
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| Record | Record | Record 
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Figure 9-2. Fixed-Length Records 


2. A data set can be processed as a 
standard data set even if it was not 
created as such, providing it contains 
no embedded short blocks or empty 
tracks. 


Variable-Length Records 


V-format permits both variable-length 
records and variable-length blocks. The 
first four bytes of each record and of each 
block contain control information for use 


V-format: 

een ores (ca ecto erating 1 Sr T Sma acre mcrae ar = 
Ісі|с2| Record 1 | IBG |C1|C2| Record 2 

| l | | 11 

Пел PEREN Баласы ы J Басы ааа dE 
VB-format: 

и Жезде adc aa c pese паві (cocum EE NM 
IC1|C2| Record 1 |С2| Record 2 | IBG | 

| d |! | | | 

Қылады масына ee ы. 


VS-format: 


-T 
|C1|C2| Record 1 | IBG |C1|C2| 


| IBG | Record 


PESEE | 


с1|с2| 


| a a НАННАН НЕ 


рат 


| IBG | 


a 


by the operating system (including the 
length in bytes of the record or block). 
Variable-length records can have one of 
four formats: V, VB, VS, or VBS (Figure 
9-3). 


V-format signifies unblocked 
variable-length records. Each record is 
treated as a block containing only one 
record, the first four bytes of the block 
contain block control information, and the 


. next four contain record control 


information. 


r7tT^—T"7 
| IBG |с1|с2| 
| | f 1 


LIIll-A.l-- 


Record 3 


А 
| IBG |с1[с2| 


Record 2 Record 2 | IBG 
| | | (entire) | | | | (first segment) | | | |Qlast segment) | 
L.ILIII.lclccl-eeed4 L ore өте «Дә өше anus iee «mn asus ams enum enn amm «ше HD. «ғаз AEN. TY эше an «лыр “ілі быр» tt «ә. J Lh Lae ел» аа «== UD эша; чыл» «AUD. чю QUUD ане atem J 
VBS-format: 
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ІС1|с2| Record 1 |c2| Record 2 | IBG |С1|с2) Record 2 {C2[Record з 
| | | (entire) | | (first segment) | | | (1ast segment) | | 

Ll S СОННУН ННЦ ce a ns ne ne ee ЦИЦ LiL. Le ee Жолы he cain ee 


C1: Block control information 
C2: Record or segment control information 


Figure 9-3. Variable-Length Records 
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VB-format signifies blocked 
variable-length records. Each block 
contains as many complete records as it can 
accommodate. The first four bytes of the 
block contain block control information, 
and the first four bytes of each record 
contain record control information. 


VS-format is similar to V-format, but 
differs in that the length of a record can 
exceed the block length; if necessary, a 
record is segmented and continued in 
consecutive blocks. Each block contains 
only one record or segment of a record. 
The first four bytes of the block contain 
‘block control information, and the next 
four contain record or segment control 
information (including an indication of 
whether the record is complete or is a 
first, intermediate, or last segment). 


VBS-format differs from VS-format in 
that each block contains as many complete 
records or segments as it can accommodate; 
each block is, therefore, approximately the 
same size (although there can be a 
variation of up to four bytes, since each 
segment must contain at least one byte of 
data). 


VS-format and VBS-format records are 
known as spanned records because they can 
start in one block and be continued in the 
next. Segmentation and reassembly are 
handled automatically by the PL/I (F) 
compiler. The use of spanned records 
allows you to select a block size, 
independently of record size, that will 
combine optimum usage of auxiliary storage 
space with maximum efficiency of 
transmission. Note that spanned records 
cannot be specified for stream-oriented 
files. 


Undefined-Length Records 


U-format permits the processing of records 
that do not conform to F- and V-formats. 
The operating system and the PL/I (F) 
compiler treat each block as a record; your 
program must therefore perform any blocking 
or deblocking that you require. 


DATA SET ORGANIZATION 


The data management routines of the 
operating system can handle five types of 
data set, which differ in the way data is 
stored within them and in the permitted 
means of access to the data. Four of these 
types of data set, sequential, indexed 
sequential, direct, and telecommunications 
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are recognized by the PL/I (F) compiler in 
the data set organizations CONSECUTIVE, 
INDEXED, and REGIONAL; and the file 
attribute TRANSIENT respectively; the fifth 
type, partitioned, has no corresponding 
PL/I organization?*. 


In a sequential (or CONSECUTIVE) data 
set, records are placed in physical 
sequence. Thus, given one record, the 
location of the next record is determined 
by its physical position in the data set. 
Sequential organization is used for all 
magnetic tapes, and may be selected for 
direct-access devices. Paper tape, punched 
cards, and printed output are sequentially 
organized. 


An indexed sequential (or INDEXED) data 
set must reside in a direct-access volume. 
Records are arranged in collating sequence, 
áccording to a key that is associated with 
every record. An index or set of indexes 
maintained by the operating system gives 
the location of certain principal records. 
This permits direct retrieval, replacement, 
addition, and deletion of records, as well 
as sequential processing. 


A direct (REGIONAL) data set must be in 
a direct-access volume. The records within 
the data set can be organized by a PL/I 
program in three ways: REGIONAL(1), 
REGIONAL(2), and REGIONAL(3); in each case, 
the data set is divided into regions, each 
of which contains one or more records. A 
key that specifies the region number and, 
for REGIONAL(2) and REGIONAL(3), identifies 
the record, permits direct access to any 
record; sequential processing is also 
possible. There are no indexes. 


A telecommunications data set 
(associated with a TRANSIENT file in a PL/I 
program) is an input or output message 
queue set up by the message control 
program. А key embedded in the record 
provides identification of the sending 
terminal. 


In a partitioned data set, independent 
groups of sequentially organized data, each 
called a member, are stored in a 
direct-access volume. The data set 
includes a directory that lists the 
location of each member.  Partitioned data 
Sets are often called libraries. 


1ро not confuse the operating system data 
set organizations 'sequential' and 'direct' 
with the PL/I file attributes SEQUENTIAL 
and DIRECT. The attributes refer to how 
the file is to be processed, and not to the 
way the corresponding data set is 
organized. 


The PL/I (F) compiler includes по 
special facilities for creating and 
accessing partitioned data sets; however, 
there is ready access to the operating 
system facilities for partitioned data sets 
through job control language. Chapter 12, 
"Libraries of Data Sets,' is a guide to the 
use of partitioned data sets for the PL/I 
programmer. 


LABELS 


The operating system uses recorded labels 
to identify magnetic-tape and direct-access 
volumes and the data sets they contain, and 
to store data set attributes (record size, 
block size, etc.). The attribute 
information must originally come from a DD 
Statement or from your program. Once the 
label is written, however, you need not 
specify the information again. 


Magnetic-tape volumes can have standard 
or nonstandard labels, or they can be 
unlabeled. Standard labels have two parts: 
the initial volume label, and header and 
trailer labels. The initial volume label 
identifies a volume and its owner; the 
header and trailer labels precede and 
follow each data set on the volume. 
labels contain system information, 
device-dependent information (for example, 
recording technique), and data-set 
characteristics. Trailer labels are almost 
identical with header labels, and are used 
when magnetic tape is read backwards. 


Header 


Direct-access volumes have standard 
labels. Each volume is identified by a 
volume label, which is stored in a standard 
location in the volume. This label 
contains a volume serial number and the 
address of a volume table of contents 
(VTOC). The table of contents, in turn, 
contains a label (termed a data set control 
block (DSCB)) for each data set stored in 
the volume. 


DATA DEFINITION (DD) STATEMENT 


A data definition (DD) statement is a job 
control statement that describes a data set 
to the operating system, and is a request 
to the operating system, for the allocation 
of input/output resources. Each job step 
must include a DD statement for each data 
set that is processed by the step. 


Chapter 1 describes the format of job 
control statements. The operand field of 
the DD statement can contain keyword 
parameters that describe the location of 


the data set (for example, volume serial 
number and identification of the unit on 
which the volume will be mounted) and the 
attributes of the data itself (record 
format, etc.). 


The DD statement enables you to write 
PL/I source programs that are independent 
of the data sets and input/output devices 
they will use. You can modify the 
parameters of a data set or process 
different data sets without re-compiling 
your program; for example, you can modify a 
program that originally read punched cards 
во that it will accept input from magnetic 
tape merely by changing the DD statement. 


Name of DD Statement 


The name that appears in the name field of 
the DD statement (ddname) identifies the 
Statement so that other job control 
Statements and the PL/I program can refer 
to it. А ddname must be unique within a 
job step; if two DD statements in one job 
Step have the same name, the second 
statement is ignored. With the two 
exceptions noted below, a DD statement must 
always have a name. 


If the job step in which the DD 
Statement appears is part of a cataloged 
procedure, the ddname must be qualified by 
the name of the procedure step. For 
example, a DD statement that describes a 
data set to be processed in step GO of the 
cataloged procedure PLILFCLG might have the 
ddname GO.MSTR. (Note that the PL/I source 
program would refer to this DD statement 
only by its unqualified name MSTR.) 


For input only you can concatenate two 
or more sequential or partitioned data sets 
(that is, link them so that they are 
processed as one continuous data set) by 
omitting the ddname from all but the first 
of the DD statements that describe them. 
For example, the following DD statements 
cause the data sets LIST1, LIST2, and LIST3 
to be treated as a single data set for the 
duration of the job step in which the 
Statements appear: 


//GO.LIST DD DSNAME=LIST1, DISP=OLD 
А DD DSNAME=LIST2, DISP=OLD 
/” DD DSNAME=LIST3, DISP=OLD 


When read from a PL/I program the 
concatenated data sets need not be on the 
same volume, but the volumes must be on the 
same type of device, and the data sets must 
have similar characteristics (block size, 
record format, etc.). You cannot process 
concatenated data sets backwards. 


Chapter 9: Data Sets and PL/I Files 105 


Parameters of DD Statement 


The operand field of the DD statement 
contains keyword parameters that you can 
use to give the following information: 


1. The name of the data set (DSNAME 
parameter). 


2. Description of the device and volume 
that contain the data set (UNIT, 
VOLUME, SPACE, LABEL, and SYSOUT 
parameters). 


3. Disposition of the data set before and 
after execution of the job step (DISP 
parameter). 


4. Data set characteristics (DCB 
parameter). 


ihe following paragraphs summarize the 
functions of these groups of parameters. 
Appendix B describes the essential 
parameters and explains how to use them. 
For full details of all the parameters, 
refer to IBM System/360 Operating System: 
Job Control Language User's Guide, and Job 
Control Language Reference 


Naming the Data Set 


The DSNAME parameter specifies the name 
of a newly defined data set or refers to 
the name of an existing data set. You need 
not specify the DSNAME parameter for a 
temporary data set (one that exists only 
for the duration of the job step in which 
it is created); the operating system will 
give it a temporary name. 


Describing the Device and Volume 


The UNIT parameter specifies the type of 
input/output device to be allocated for the 
data set. You can specify the type by 
giving the actual unit address, the type 
number of the unit (e.g., 2400 for magnetic 
tape), or by naming a group of units 
established at system generation. 


The VOLUME parameter identifies the 
volume on which the data set resides. It 
can also include instructions for mounting 
and demounting volumes. 


The SPACE parameter specifies the amount 
of auxiliary storage required to 
accommodate a new data set on a 
direct-access device. 


The LABEL parameter specifies the type 
and contents of the data set labels for 
magnetic tape. 

The SYSOUT parameter allows you to route 
an output data set through a system output 
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device. А system output device is any unit 
(but usually a printer or a card punch) 
that is used in common by all jobs. The 
computer operator allocates all the system 
output devices to specific classes 
according to,device type and function. The 
usual convention is for class A to refer to 
a printer and class B to a card punch; the 
IBM-supplied cataloged procedures assume 
that this convention is followed.. If you 
use the SYSOUT parameter, the only other 
information you may have to supply about 
the data set is the block size, which you 
can specify either in the DCB parameter or 
in your PL/I program. 


Disposition of the Data Set 


The DISP parameter indicates whether a 
data set already exists or is new, and 
specifies what is to be done with it at the 
end of the job step. At the end of a job 
step, you can delete a data set, pass it to 
the next step in the same job, enter its 
name in the system catalog or have it 
removed from the catalog, or you can retain 
the data set for future use without 
cataloging it. 


The REWIND option of the ENVIRONMENT 
attribute allows you to use the DISP 
parameter to control the action taken when 
the end.of a magnetic-tape volume is 
reached or when a magnetic-tape data set is 


closed. Refer to IBM System/360 Operating 


System: PL/I (F) Language Reference Manual 
for a description of the REWIND option. 


Data Set Characteristics 


The DCB (data control block) parameter 
of the DD statement allows you to describe 
the characteristics of the data in a data 
set, and the way it will be processed, at 
execution time. Whereas the other 
parameters of the DD statement deal chiefly 
with the identity, location, and disposal 
of the data set, the DCB parameter 
specifies information required for the 
processing of the records themselves. For 
DCB usage, see 'Data Control Block,' below. 


The DCB parameter contains a list of 
subparameters that describe: 


1. Тһе organization of the data set and 
how it will be accessed (DSORG, OPTCD, 
CYLOFL, NCP, NTM, and LIMCT 
subparameters). 


2. Device dependent information such as 
the recording technique for magnetic 
tape or the line spacing for a printer 
(CODE, DEN, MODE, PRTSP, STACK, and 
TRTCH subparameters). 


3. The record format (BLKSIZE, LRECL, 
RECFM, KEYLEN, and RKP subparameters). 


4. The number of data management buffers 
that are to be used (BUFNO 
subparameter). 


5. The printer or card punch control 
characters (if any) that will be 
inserted in the first byte of each 
record (RECFM subparameter). 


You can specify BLKSIZE, BUFNO, LRECL, 
NCP, RECFM, and TRKOFL in the ENVIRONMENT 
attribute of a file declaration in your 
PL/I program instead of in the DCB 
parameter. 


You cannot use the DCB parameter to 
override information already established 
for the data set in your PL/I program (by 
the file attributes declared and the other 
attributes that are implied by them). DCB 
subparameters that attempt to change. 
information already supplied are ignored. 
You can use only the DCB subparameters 
given above; if you specify any others, 
they will be ignored. 


Data in the Input Stream 


You can introduce data to your program 
by including it in the input job stream 
with your job control statements. The data 
must be in the form of 80-byte records 
(usually punched cards), and must be 
immediately preceded by a DD statement with 
the single parameter * in the operand 
field, for example: 


//GO. SYSIN DD ж 


To indicate the end of the data, include 
the delimiter job control statement /*; 
this delimiter is not essential if you are 
using an operating system with MFT or MVT 
because the operating system will generate 
//SYSIN DD * statements for other data sets 
in the input stream. 


If your data includes records that 
commence //, use the parameter DATA 
instead, for example: 


//GO. SYSIN DD DATA 


In this case, the delimiter (/*) is always 
necessary. 


when using an operating system with PCP, 
you can include only one data set in the 
input stream for a job step, and the DD 
Statement that defines it must be the last 
DD statement in the job step; for MFT and 
MVT, you can include more than one such 
data set in a job step. All three variants 
of the operating system supply full DCB 
subparameters for data sets in the input 
stream. 


FILES AND DATA SETS 


When you write a PL/I program, you do not 
need to know which data sets you will use 
or where the volumes that contain them will 
be mounted. PL/I uses a conceptual 'file' 
as a means of accessing a data set. When 
an OPEN statement is executed, the file is 
associated with a data set through the 
TITLE option, which refers to the name of 
the DD statement (ddname) that describes 
the data set; if the OPEN statement does 
not include the TITLE option, the compiler 
takes the DD name from the first eight 
characters of the file name, padding it 
with blanks if necessary. 


The OPEN statement indicates the name of 
the DD statement that describes the data 
set to be associated with the file that is 
being opened; the DD statement specifies 
the type of device that will access the 
data set, the serial number of the volume 
that contains the data set, and the name of 
the data set. (see Figure 9-4). ТЕ the DD 
Statement refers to a cataloged data set, 
it need supply only the name of the data 
set and its disposition; the operating 
System can use the name to obtain unit and 
volume information from the system catalog. 


Since the link between the PL/I file and 
the data set exists only while the file is 
open, the same file can be associated with 
different data sets during the execution of 
a single program; and the same data set can 
be accessed through different files. 
Furthermore, the use of a DD statement to 
define the data set, the volume that 
contains it, and the device on which they 
will be placed, enables you to defer your 
choice until execution time; and you can 
use the same program to process different 
data sets on different devices without 
re-compiling the program. 


Operating System Data Management 


The object program produced by the PL/I (F) 
compiler uses the data management 
facilities of the operating system to 
control the storage and retrieval of data. 
The compiler translates each input and 
output statement in a PL/I source program 
into a sequence of machine instructions 
that includes a branch to the appropriate 
PL/I library interface subroutine; this 
subroutine initiates the flow of control 
through any other PL/I library subroutines 
that are required. These subroutines issue 
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: OPEN FILE(IN) TITLE('T2') 
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Figure 9-4. Associating а File with а Data Set 
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operating system assembler language macro 
instructions? that request the data 
management routines of the operating system 
to perform the required input or output 
operations. Most of the library | 
subroutines required by a PL/I program are 
included with the object program in the 
load module produced by the linkage editor. 
However, some library subroutines, 
including those that handle the opening and 
closing of files, are loaded dynamically 
during the execution of the object program; 
the storage they occupy is released as soon 
as they have finished their work. 


ithe operating system data management 
routines control the organization, 
location, and cataloging of data sets, as 
well as the storage and retrieval of the 
records they contain. They create and 
maintain data set labels, indexes, and 
catalogs; they move data between main 
Storage and auxiliary storage; and they can 
use the system catalog to locate data sets 
and request the operator to mount and 
demount volumes as required. 


BUFFERS 


The data management routines can provide 
areas of main storage (buffers), in which 
data can be collected before it is 
transmitted to auxiliary storage, or into 
which it can be read before it is made 
available to a program. The employment of 
buffers permits the blocking and deblocking 
of records, and may allow the data 
management routines to increase the 
efficiency of transmission of data by 
anticipating the needs of a program. 
Anticipatory buffering requires at least 
two buffers: while the program is 
processing the data in one buffer, the next 
block of data can be read into another. 


The operating system can further 
increase the efficiency of transmission in 
a program that involves many input/output 
operations by employing chained scheduling. 
In chained scheduling, a series of read or 
write operations are chained together and 
treated as a single operation. For chained 
scheduling to be effective, at least three 
buffers are necessary. (To specify chained 
scheduling, code OPTCD-C in the DCB 
subparameter of the DD statement: See 
Appendix B.) 


The data management routines have two 
ways of making data that has been read into 


ithe macro instructions are described in 


IBM System/360 Operating System: Supervisor 


and ata Manaqement Macro Instructions. 


a buffer available to a program. In the 
move mode, the data is actually transferred 
from the buffer into the area of main 
storage occupied by the program. In the 
locate mode, the program can process the 
data while it is still in the buffer; the 
data management routines pass the address 
of the buffer to the program to enable it 
to locate the data. Similarly a program 
can move output data into the buffer or it 
can build the data in the buffer itself. 


ACCESS METHODS 


Data management has two techniques for 
transmitting data between main storage and 
auxiliary storage: the queued technique and 
the basic technique. 


The queued access technique deals with 
individual records, which it blocks and 


deblocks automatically. A record is 
retrieved by the GET macro instruction and 
written by the PUT macro instruction. The 
first time a GET macro instruction is 
issued, the data management routines place 
a block of records in an input buffer and 
pass the first record to the program that 
issued the instruction; each succeeding GET 
passes another record to the program. When 
the input buffer is empty, it is 
automatically refilled with another block. 
Similarly, the PUT macro instruction places 
records in an output buffer and, when the 
buffer is full, writes out the records. 
Since the queued access technique brings 
records into main storage before they are 
requested, it can be used only for 
sequential processing. 


The basic access technique uses the READ 
and WRITE macro instructions for input and 


output. These instructions move blocks, 
not records. When a READ macro instruction 
is issued, the data management routines 
pass a block of data to the program that 
issued the instruction; they do not deblock 
the records. Similarly, a WRITE macro 
instruction transmits a block to auxiliary 
storage. However, when the PL/I library 
subroutines employ the basic technique, 
they deblock the input records before 
passing them to the PL/I program, and block 
output records before issuing a WRITE macro 
instruction. 


The combination of data-set organization 
and an access technique is termed an access 
method. The access methods used by the 
PL/I subroutine library are: 


QSAM:  Queued sequential access method 


QISAM: Queued indexed sequential access 


method 
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Figure 9-5, 
BSAM: Basic sequential access method 


BISAM: Basic indexed sequential access 


method 
BDAM: Basic direct access method 
ОТАМ:  Queued telecommunications access 


method 


The PL/I library subroutines use QSAM 
for all stream-oriented transmission. They 
implement PL/I GET and PUT statements by 
transferring the appropriate number of 
characters from or to the data management 
buffers, and use GET and PUT macro 
instructions in the locate mode to fill or 
empty the buffers. (For paper tape, 
however, the library uses the move mode to 
permit translation of the transmitted 
characters before passing them to the PL/I 
program.) 


Figure 9-5 lists the access methods that 
the PL/I library subroutines use for 
record-oriented transmission. 


Lote that an access method identified 
with one data set organization can be used 
to process a data set usually thought of as 
organized in a different manner. For 
example, the PL/I (F) compiler uses BSAM 
and QSAM for the sequential processing of 
REGIONAL data sets. 
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Data Management Access Methods for Record-Oriented Transmission 


DATA CONTROL BLOCK 


A data control block (DCB) is an area of 
main storage that contains information 
about a data set and the volume that 
contains it. The data management routines 
of the operating system refer to this 
information when they are processing a data 
set; no data set can be processed unless 
there exists a corresponding DCB. For a 
PL/I program, a PL/I library subroutine 
creates a DCB for the associated data set 
when a file is opened. 


A data control block contains two types 
of information: data set characteristics 
and processing requirements. The 
characteristics include record format, 
record size, block size, and data set 
organization. The processing information 
may specify the number of buffers to be 
used, and it may include device-dependent 
information (for example, printer line 
spacing or magnetic-tape recording 
density), and special processing options 
that are available for some data-set 
organizations. 


The information in the DCB comes from 
three sources: 


1. The file attributes declared 
implicitly or explicitly in the PL/I 
program. However, when link-editing 
more than one load or object module 


together, take care that the first 
module to be included contains 
declarations of any files which are 
referred to but not declared in 
subsequent modules. 


2. The data definition (DD) statement 
that describes the data set. 


3. If the data set already exists, the 
data set labels. 


OPENING A FILE 


The execution of a PL/I OPEN statement. 
associates a file with a data set. This 
requires the merging of the information 
describing the file and the data set. If 
any conflict exists between file attributes 
and data set characteristics the 
UNDEFINEDFILE condition will be raised. 


The data management subroutines of the 
PL/I library create a skeleton data control 
block for the data set, and use the file 
attributes from the DECLARE and OPEN 
statements, and any attributes implied by 
the declared attributes, to complete the 
data control block as far as possible 
(Figure 9-6). They then issue a data 
management OPEN macro instruction, which 
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calls the operating system data management 
routines to check that the correct volume 
is mounted and to complete the data control 
block. The operating system routines 
examine the data control block to see what 
information is still needed and then look 
for this information, first in the DD 
statement, and finally, if the data set 
already exists and has standard labels, in 
the data set labels. For new data sets, 
the open routines begin to create the 
labels (if they are required) and to fill 
them with information from the data control 
block. 


Neither the DD statement nor the data 


| set label can override information provided 


by the PL/I program; nor can the data set 
label override information provided by the 
DD statement. 


When the DCB fields have been filled in 
from these sources, control returns to the 
PL/I library subroutines. If any fields 
have still not been filled in, the PL/I 
OPEN subroutine provides default 
information for some of them; for example, 
if LRECL has not been specified, it is now 
provided from the value given for BLKSIZE. 


DATA CONTROL BLOCK 
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Figure 9-6. 


How the Operating System completes the Data Control Block 
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CLOSING A FILE 


The execution of a PL/I CLOSE statement 
dissociates a file from the data set with 
which it was associated. The PL/I library 
subroutines first issue a data management 
CLOSE macro instruction and then, when 
control returns from the operating system 
data management routines, release the data 
control block that was created when the 
file was opened. The data management 
routines complete the writing of labels for 
new data sets and update the labels of 
existing data sets. 


Auxiliary Storage Devices 


The following paragraphs state the record 
formats that are acceptable for various 
types of auxiliary storage device, and 
summarize the salient operational features 
of these devices. 


CARD READER AND PUNCH 


F-format, V-format, and U-format records 
are acceptable to both the card reader and 
punch; the control bytes of V-format 
records are not punched. Any attempt to 
block records is ignored. 


Each punched card corresponds to one 
record; you should therefore restrict the 
maximum record size to 80 bytes (EBCDIC 
mode) or 160 bytes (column-binary mode). 
TO select the mode, use the MODE 
subparameter of the DD statement; if you 
omit this subparameter, EBCDIC is assumed. 
(The column-binary mode increases the 
packing density of information on a card, 
punching two bytes in each column. Note 
that only six bits of each byte are 
punched; on input, the two high-order bits 
of each byte are set to zero; on output, 
the two high-order bits are lost.) 


The Card Read Punch 2540 has five 
hoppers (stackers) into which cards are fed 
after reading or punching. Two stackers 
accept only cards that have been read, and 
two others accept only those that have been 
punched; the fifth (center) stacker can 
accept either cards that have been read or 
those that have been punched. The two 
Stackers in each pair are numbered 1 and 2, 
and the center stacker is numbered 3 
(Figure 9-7). 


The Card Read Punch 2520 has two 
stackers, into which cards can be read or 
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punched. The Card Reader 2501 has only one 
Stacker. 
г------- READ------ 1 
| | | | | | 
| | | | | | 
| 1 | 2 13 1 2 | 1 | 
bo eee a ETG 
------ PUNCH------ 4 


Card Read Punch 2540: Stacker 
Numbers 


Figure 9-7. 


Cards are normally fed into the 
appropriate stacker 1 after reading or 
punching. You can use the STACK 
subparameter of the DD statement to select 
an alternative pocket for reading or 
punching. For punching only, you can 
select the stacker pocket dynamically by 
inserting a ANS or System/360 code in the 
first byte of each record; you must 
indicate which code you are using in the 
RECFM subparameter of the DD statement. 
The control character is not punched. 


PAPER TAPE READER 


The paper tape reader accepts F-format and 
U-format records; each U-format record is 
followed by an end-of-record character. 

You can use the CODE subparameter of the DD 
statement to request translation of data 
from one of the six standard paper tape 
codes to System/360 internal representation 
(EBCDIC). Any character found to have a 
parity error is not transmitted. 


PRINTER 


The printer accepts F-format, V-format, and 
U-format records; the control bytes of 
V-format records are not printed. Each 
line of print corresponds to one record; 
you should therefore restrict your record 
Size to the length of one printed line. 

Any attempt to block records is ignored. 


You can use the PRTSP subparameter of 
the DD statement to select the line spacing 
of your output, or you can control the 
spacing dynamically by inserting a ANS or 
System/360 code in the first byte of each 
record; you must indicate which code you 
are using in the RECFM subparameter of the 
DD statement. The control character is not 
printed. If you do not specify the line 
Spacing, single spacing (no blanks between 
lines) is assumed. 


MAGNETIC ТАРЕ 


Nine-track magnetic tape is standard in IBM 
System/360, but some 2400 series 
magnetic-tape drives incorporate features 
that facilitate reading and writing 7-track 
tape. The translation feature changes | 
character data from EBCDIC (the 8-bit code 
used in System/360) to BCD (the 6-bit code 
used on 7-track tape) or vice-versa. The 
data conversion feature treats all data as 
if it were in the form of a bit string, 
breaking the string into groups of eight 
bits for reading into main storage, or into 
groups of six bits for writing on 7-track 
tape; the use of this feature precludes 
reading the tape backwards. If you want to 
employ translation or data conversion, 
include the TRTCH (tape recording 
technique) subparameter in your DD 
Statement. 


You can specify F-format, V-format, or 
U-format records for 9-track magnetic tape, 
but V-format records are acceptable on 
7-track tape only if the data conversion 
feature is available. (The data in the 
control bytes of V-format records is in 
binary form; in the absence of the data 
conversion feature, only six of the eight 
bits in each byte are transmitted to 
7-track tape.) 


The maximum recording density available 
depends on the model number of the tape 
drive that you use; single-density tape 
drive units have a maximum recording 
density of 800 bytes per inch, and 
dual-density tape drive units have a 
maximum of 1600 bytes per inch. For 
9-track tape, a single-density drive offers 
only the 800 bytes per inch density; the 
Standard density for a dual-density drive 
is 1600 bytes per inch, but you can use the 
subparameter DEN (density) of the DD 
Statement to specify 800 bytes per inch. 
For 7-track tape, the standard recording 
density for both types of drive unit is 800 
bytes per inch; you can use the DEN 
subparameter to select alternatives of 200 
or 556 bytes per inch. 


Note: When a data check occurs on a 
magnetic-tape device with short length 


records (12 bytes on a read and 18 bytes on 
a write), these records will be treated as 
noise. 


DIRECT-ACCESS DEVICES 


Direct-access devices accept F-format, 
V-format, and U-format records. 


The storage space on these devices is 
divided into conceptual cylinders and 
tracks. А cylinder is usually the amount 
of space that can be accessed without 
movement of the access mechanism, and a 
track is that part of a cylinder that is 
accessed by a single read/write head. For 
example, a 2311 disk pack has ten recording 
surfaces, each of which has 200 concentric 
tracks; thus, it contains 200 cylinders, 
each of which includes ten tracks. 


When you create a new data set on a 
direct-access device, you must always 
indicate to the operating system how much 
auxiliary storage the data set will 
require. The way to do this is to use the 
SPACE parameter of the DD statement to 
allocate space in terms of blocks, tracks, 
or cylinders. If you request space in 
terms of tracks or cylinders, bear in mind 
that space in a data set on a direct-access 
device is occupied not only by blocks of 
data, but by control information inserted 
by the operating system; if you use small 
blocks, the control information can result 
in a considerable space overhead. The 
following reference cards contain tables 
that will enable you to determine the 
amount of space you will require: 


2301 Drum Storage Unit, Form X20-1717 
2302 Disk Storage Drive, Form X20-1706 
2303 Drum Storage Unit, Form X20-1718 
2311 Disk Storage Drive, Form X20-1705 
2314 Storage Facility, Form X20-1710 


2321 Data Cell Drive, Form X20-1704 
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Chapter 10: Stream-Oriented Transmission 


Stream-oriented transmission allows a PL/I 
program to ignore block and record 
boundaries and treat a data set as a 
continuous stream of data items in 
character form. For output, the data 
Management subroutines of the PL/I library 
convert the data items from the program 
variables into character form if necessary, 
and build the stream of characters into 
records for transmission to the data set. 
For input, the library subroutines take 
records from the data set and separate them 
into the data items requested by the 
program, converting them into the 
appropriate form for assignment to the 
program variables. Because stream-oriented 
transmission always treats the data in a 
data set as a continuous stream, it can be 
used only to process data sets with 
CONSECUTIVE organization. 


Record Format 


Although in stream-oriented transmission a 
PL/I program sees a data set аз a 
continuous stream of data items, the data 
set actually comprises a series of discrete 
records in one of the three formats, 
fixed-length, variable-length, and 
undefined-length.  Fixed-length and 
variable-length records can be blocked or 
unblocked; variable-length records, 
however, cannot be spanned. 


When you create a data set, you must 
specify the record format either in your 
PL/I program or in a DD statement. In the 
PL/I program, you can state the record 
format directly in the ENVIRONMENT 
attribute, or you can indicate it 
indirectly in the LINESIZE option of an 
OPEN statement; the ENVIRONMENT attribute 
and the LINESIZE option are described in 


IBM System/360 Operating System: PL/I (F) 


Language Reference Manual. To specify the 
record format in a DD statement, use the 


DCB subparameters RECFM, BLKSIZE, and 
LRECL; these subparameters are described in 
Appendix B. 


FIXED-LENGTH RECORDS 


In a data set with fixed-length records, 
each record, except possibly the last, 
contains the same number of characters. 
Although the options and format items PAGE, 
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LINE, and SKIP, and the format item COLUMN 
can cause a new output record (line) to be 
started, the current record is not 
truncated, but is padded to the specified 
length with blanks. The minimum length of 
a fixed-length record is 1 byte, except for 
magnetic tapes of density 800 per inch or 
less, in which case records of this length 
are treated as noise. 


VARIABLE-LENGTH RECORDS 


Variable-length output records are filled 
with characters up to the maximum length 
specified, unless they are truncated by the 
execution of one of the options or format 
items PAGE, LINE, SKIP, or COLUMN. If 
necessary, a variable-length record is 
padded with blanks to ensure that it 
contains the minimum ten characters of data 
that are required by the operating system. 
(With the eight bytes required for block 
and record control fields, this gives a 
minimum block size of 18 bytes.) 


UNDEFINED-LENGTH RECORDS 


Undefined-length records are processed in a 
similar manner to variable-length records, 
but, since the minimum length for these 
records is 1 byte, padding is never 
required. In the case of magnetic tapes of 
density 800 bytes per inch or less, 1-Бруғе 
records are treated as noise. 


CHOICE OF RECORD FORMAT 


For a data set that is intended to be 
printed, you can usefully relate the record 
size to the length of the printed line (for 
example, by using the LINESIZE option); 
this is discussed under 'PRINT Files,' 
below. Similar considerations apply when 
you use the SKIP option or format item or 
the COLUMN format item with a non-PRINT 
file. For all other data sets that you 
create by stream-oriented transmission, 
program considerations do not affect the 
choice of record format (unless the data 
set will later be processed by 
record-oriented transmission). You will 
not normally gain any advantage by blocking 
your records; for unblocked records, 


specify a block size, but no record size. 
Choose the maximum block size consistent 
with the amount of main storage available 
to your program and with the 
characteristics of the output device you 
are using. (The larger the block size, the 
fewer requests need be made to the data 
management routines for the transmission of 
a block of data to or from auxiliary 
storage; such requests carry a substantial 
time overhead.) | 


For a direct-access device, the ideal 
block size is the capacity of one track; 
this combines maximum transmission 
efficiency with optimum use of auxiliary 
storage space. A block can exceed the 
capacity of one track only if your 
installation includes the track overflow 
feature; this allows the block to be 
continued on the next track. Although 
track overflow can increase data-packing 
efficiency, it reduces transmission speed. 
The use of small blocks wastes storage 
space because a block of system information 
precedes each block of data on the track. 
For example, there are more than 60 bytes 
of system information for each block in the 
2311 disk drive: a track can contain one 
block of 3625 bytes, but only 55 blocks of 
five bytes (i.e., 275 bytes of data). 
(Refer to the reference cards listed under 
'"Direct-Access Devices,' in Chapter 9, for 
further information.) 


Unit record devices (card readers and 
punches, and printers) and paper-tape 
readers do not support blocked records. 
With a unit record device, each record 
begins on a new card or line regardless of 
the blocking factor. For example, if you 
specify LRECL=20, BLKSIZE-80 for a card 
punch, only the first 20 columns of each 
card will be punched; if you read these 
cards in, the stream will contain 60 blank 
characters between each of the original 
records. If the record size exceeds the 
capacity of a card (80 bytes) or the 
maximum length of a line (132 characters 
for the 1403 printer), the record is 
truncated. 


in general, fixed-length records are 
transmitted faster than variable-length or 
undefined-length records. For maximum 
efficiency in sequential processing of a 
data set on a direct-access device, specify 
'standard' format records (RECFM-FS or 
RECFM-FBS). If you use variable-length 
records, VBS-format allows you to specify 
biock size independently of record size 
(and thus to select the optimum block 
size). 


Chapter 10: 


Buffers 


Stream-oriented transmission requires the 
use of at least one data-management buffer, 
and ideally at least two buffers. You may 
gain some advantage by specifying three 
buffers for a low-speed device such as a 
printer, and you should specify at least 
three if you use chained scheduling. (For 
an explanation of chained scheduling, see 
Chapter 9 'Buffers'.) 


You can request buffers either in your 
PL/I program (in the ENVIRONMENT attribute) 
or in a DD statement (BUFNO subparameter). 
If you omit the information or specify zero 
buffers, the operating system will allocate 
two buffers. 


DCB Subparameters 


Figure 11-2 lists the DCB subparameters 
that are applicable to a data set processed 
by stream-oriented transmission; they are 
described in Appendix B. You can specify 
record format, block size, record size, and 
number of buffers in the ENVIRONMENT 
attribute instead of in the DCB parameter, 


Creating a Data Set 


Any data set that you create using 
Stream-oriented transmission must have 
CONSECUTIVE organization, but it is not 
necessary for you to specify this in the 
ENVIRONMENT attribute, since CONSECUTIVE is 
the default organization. 


Your program deals only with data items, 
and not with records and blocks as they 
will exist in the data set. Accordingly, 
you need not concern yourself with the 
actual structure of the data set beyond 
specifying a block size (which is always 
necessary), unless you propose to use 
record-oriented transmission to access the 
data set at a later date. 


То create a data set, you must give the 
operating system certain information either 
in the DD statement that defines the data 
set or in your PL/I program. The following 
paragraphs indicate the essential 
information, and discuss some of the 
optional information you may supply. 
Appendix B describes the parameters 
referred to, and explains how to code them; 
the ENVIRONMENT attribute and the LINESIZE 
option are discussed fully in IBM 


System/360 Operating System: PL/I (F) 
Language Reference Manual. 
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ESSENTIAL INFORMATION a later step but will not need it after the 
end of your job. i 


You must supply the following information: 
If you are creating a data set ona 


1. Device that will write or punch your direct-access device, you must specify the 
data set (UNIT, SYSOUT, or VOLUME amount of space required for it (SPACE 
parameter of DD statement). parameter of DD statement). 

2. Block size: you can give the block 
Size in the DD statement (BLKSIZE If you want your data set written ona 
subparameter of DCB parameter), or in particular magnetic-tape or direct-access 
your PL/I program (in the ENVIRONMENT volume, you must indicate the volume serial 
attribute or the LINESIZE option). number in the DD statement (SER or REF 

subparameter of VOLUME parameter). If you 
Notes If you do not specify a record do not supply a serial number for a 
size, unblocked records are assumed magnetic-tape data set that you want to 


and the record size is determined from keep, the operating system will allocate 
the block size. If you do not specify one and request the operator to print the 


a record format, U-format is assumed number on your program listing. 

(except for PRINT files: see "PRINT 

Files,‘ below). If your data set is to follow another 

data set on a magnetic-tape volume, you 
If you want to keep a magnetic-tape or must use the LABEL parameter of the DD 

direct-access data set (that is, you do not Statement to indicate its sequence number 
want the operating system to delete it at on the tape. 
the end of your job), the DD statement must 
name the data set and indicate how it is to Figure 10-1 summarizes the essential 
be disposed of (DSNAME and DISP parameters of the DD statements used for 
parameters). The DISP parameter alone will creating a data set with stream-oriented 
suffice if you want to use the data set in transmission. 
(oS ee ee 1 
| 1 Parameters of DD Statement | 
| Storage Device b--—————----—-——————————q—————————————————————p————————————————————-— | 
| | When required | What you must state | Parameters | 
p----------—--------- +-———- --------------- %--------------------- І--------------------- | 
| 1 | Output device | UNIT= or SYSOUT- or | 
| А11 | Always | | VOLUME=REF= | 
| | р--------------------- %--------------------- 1 
| | | Block size+ | DCB=BLKSIZE= | 
}-------------------— }-------------------— {--------------------- І---------------------: | 
| Direct access only | Always | Storage space | SPACE- | 
| | | required | | 
|-----------—---------- %--------------------- %--------------------- %-------------------- | 
| Magnetic tape only | Data set not first | Sequence number | LABEL= | 
| | in volume and for | | | 
1 | magnetic tapes that | | | 
| | do not have | | | 
| | standard labels | | | 
}--------------------- %--------------------- %--------------------- І-------------------- | 
| | Data set to be used | | | 
| | by another job step | Disposition | DISP= | 
| | but is not required | | | 
| | after end of job | | | 
| Direct access and I-------------------- Ғ--------------------- Ғ-------------------- 4 
| standard labeled | Data set to be kept | Disposition | DISP= | 
| magnetic tape | after end of job Ғ--------------------- 4--------------------- 4 
| | | Name of data set | DSNAME= | 
| }-------------------— %------------------ ---і--------------------- 1 
| | Data set to Бе on | Volume serial number| VOLUME=SER= or | 
| | particular volume | | VOLUME=REF= | 


p-L----—-----——--------- D —— Жаныс самасын дырын € ————ÁE: ] 
|*Alternatively, you can specify the block size in your PL/I program by using either | 
| the ENVIRONMENT attribute or the LINESIZE option. | 
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//3030PGEX JOB 
//COLEEX EXEC PL1LFCLG, PARM. PLLL=' SIZE=999999', PARM.LKED='"LIST" 
//PL1L.SYSIN DD ж 
PEOPLE: PROC OPTIONS(MAIN) ; 
DCL WORK FILE STREAM OUTPUT, 
1 REC, 
2 FREC, 
3 NAME CHAR(20), 
3 NUM CHAR(1), 
3 PAD CHAR(24), 
2 VREC CHAR(35), 
IN CHAR(80) DEF REC; 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(WORK) LINESIZE(400); 
GET FILE(SYSIN) EDIT(IN) (A(80)); 
PUT FILE(WORK) EDIT(IN)(A(45*7*NUM); 
GO TO MORE; 
FINISH: CLOSE FILE(WORK); 
| END PEOPLE; 


MORE: 


/* 
//GO.WORK DD UNIT=2311, SPACE=(400,10) , DISP=(NEW, KEEP) , DSNAME=PEOPLE, 
// VOLUME=SER=D186 

//GO.SYSIN DD * 


R.C.ANDERSON 0 2028408 DOCTOR 

B.F.BENNETT 2 771239 PLUMBER VICTOR HAZEL 

R.E.COLE 5 698635 СООК ELLEN VICTOR JOAN ANN OTTO 
J.F.COOPER 5 418915 LAWYER FRANK CAROL DONALD NORMAN BRENDA 
A.J.CORNELL 3 237837 BARBER ALBERT ERIC JANET 

E.F.FERRIS 4 158636 CARPENTER GERALD ANNA MARY HAROLD 

/* 


Figure 10-2. 
EXAMPLE 


Figure 10-2 illustrates the use of 
stream-oriented transmission to create a 
data set on a 2311 disk drive. The data 
read from the input stream by the standard 
file SYSIN includes a field VREC that 
contains five unnamed 7-character 
subfields; the field NUM defines the number 
of these subfields that contain 
information. The output file WORK 
transmits to the data set the whole of the 
field FREC and only those subfields of VREC 
that contain information. The data set has 
U-format unblocked records (by default) 
with a maximum block size of 400 bytes 
(defined by the LINESIZE option in the 
statement that opens the file WORK). А11 
blocks except the last will contain exactly 
400 bytes. 


Accessing a Data Set 


A data set that you access using 
stream-oriented transmission need not have 
been created by stream-oriented 
transmission, but it must have CONSECUTIVE 
organization, and all the data in it must 
be in character form. You can open the 
associated file for input, and read the 


Using Stream-Oriented Transmission to Create a Data Set 


records the data set contains; or you can 
open the file for output, and extend the 
data set by adding records at the end. 


To access an existing data set, you must 
identify it to the operating system in a DD 
Statement. The following paragraphs 
indicate the essential information you must 
include in the DD statement, and discuss 
some of the other information you may 
supply; this discussion does not apply to 
data sets in the input stream, which are 
dealt with in Chapter 9 "Data Sets and PL/I 
Files". Appendix B describes the 
parameters referred to, and tells you how 
to code them. ` 


ESSENTIAL INFORMATION 


If the data set is cataloged, you need 
supply only the following information in 
the DD statement: 


1. The name of the data set (DSNAME 
parameter). The operating system will 
locate the information that describes 
the data set in the system catalog, 
and, if necessary, will request the 
operator to mount the volume that 
contains it. 
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ГҺ----------------------------------- т-------------------------т------------------------- 1 
| When required | What you must state | Parameters | 
-Һ-----------------------------------4-------------------------і------------------------- 1 
| Name of data set | DSNAME= | 
| Always Ы------------------------- 1------------------------- 1 
| | Disposition of data set | DISP= | 
}----------------- т----------------- %------------------------- ------------------------ 1 
| . [А11 devices | Input device | UNIT- or VOLUME-REF- | 
[If data set not  |----------------- Ғ------------------------ }----- 4 
| cataloged {Standard labeled | |. | 
| |magnetic tape and| Volume serial number | VOLUME-SER- | 
| [direct access | | | 
}~---------------- 1----------------- %------------------------- һ%------------------------- 1 
|Magnetic tape: if data set not | Sequence number | LABEL= | 
|first in volume or which does not | | | 
|have standard labels | | | 
----------------------------------- %-------------------------і-------------------------і| 
|If data set does not have standard | Block size | DCB-BLKSIZE- 
| labels | | | 
ыы шы a шымйыымыызБан дына a ees 1..------------------------....-.----.----------------1 
|*Alternatively, you can specify the block size in your PL/I program by using either | 
| the ENVIRONMENT attribute or the LINESIZE option. | 


ecd ne encase ade ыла қай сырлы ыт acon 
Accessing a Data Set: Essential Parameters of DD Statement 


Figure 10-3. 


2. Confirmation that the data set already 
exists (DISP parameter). If you are 
opening the data set for output with 
the intention of extending it by 
adding records at the end, code 
DISP=MOD; otherwise, to open the data 
set for output will result in it being 
overwritten. 


If the data set is not cataloged, you 
must, in additon, specify the device that 
will read the data set and, for 
magnetic-tape and direct-access devices, 
give the serial number of the volume that 
contains the data set (UNIT and VOLUME 
parameters). 


If the data set is on paper tape or 
punched cards, you must specify the block 
Size either in the DD statement (BLKSIZE 
subparameter) or in your PL/I program 
(ENVIRONMENT attribute). 


If the data set follows another data set 
on a magnetic-tape volume, you must use the 
LABEL parameter of the DD statement to 
indicate its sequence number on the tape. 


Figure 10-3 summarizes the essential 
parameters of the DD statements for data 


Sets accessed using stream-oriented 
transmission. 


MAGNETIC TAPE WITHOUT STANDARD LABELS 


If a magnetic-tape data set has nonstandard 
labels or is unlabeled, you must specify 
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the block size either in the DD statement 
(BLKSIZE subparameter) or in your PL/I 
program (ENVIRONMENT attribute). But the 
DSNAME parameter is not essential if the 
data set is not cataloged. 


PL/I data management includes no 
facilities for processing nonstandard 
labels. To the operating system, such 
labels appear as data sets preceding or 
following your data set. You can either 
process the labels as independent data sets 
or use the LABEL parameter of the DD 
Statement to bypass them; to bypass the 
labels, code LABEL=(2,NL) or LABEL-(,BLP). 


RECORD FORMAT 


When you use stream-oriented transmission 
to read a data set, you do not need to know 
the record format of the data set (except 
when you must specify a block size); each 
GET statement transfers a discrete number 
of characters to your program from the data 
stream. . 

If you do give record-format 
information, it must be compatible with the 
actual structure of the data set. For 
example, if a data set was created with 
F-format records, a record size of 600 
bytes, and a block size of 3600 bytes, you 
can access the records as if they were 
U-format with a maximum block size of 3600 
bytes; but if you specify a block size of 
3500 bytes, your data will be truncated. 


7/2033РСЕХ JOB 


//COLEEX EXEC PLILFCLG, PARM. PLIL=" SIZE=999999* , PARM.LKED="LIST' 


//PLiL.SYSIN DD * 
PEOPLE: PROC OPTIONS (МАІМ); 
DCL WORK FILE STREAM INPUT, 
1 REC, 
2 FREC, 
3 NAME CHAR(20), 
3 NUM CHAR(2), 
3 SERNO CHAR(7), 
3 PROF CHAR(16), 
2 VREC CHAR(35), 
IN CHAR(80) DEF REC; 
ON ENDFILE(WORK) GO TO FINISH; 
OPEN FILE (WORK) ; 
MORE: 


GO TO MORE; 
FINISH: CLOSE FILE(WORK) ; 
END PEOPLE; 
/% 


СЕТ FILE(WORK) EDIT(IN,VREC) (A(405),AC7*NUM)) ; 
PUT FILE(SYSPRINT) SKIP EDIT(REC) (A); 


//GO.WORK DD DSNAME=PEOPLE, DISP=(OLD, KEEP) ,UNIT=2311, VOLUME=SER=D186 


Figure 10-4. Using Stream-Oriented Transmission to Access a Data Set 


EXAMPLE 


The program im Figure 10-4 reads the data 
set created in Figure 10-2 and uses the 
standard file SYSPRINT to list the data it 
contains. (SYSPRINT is discussed later in 
this chapter.) Each set of data is read, 
by the GET statement, into two variables: 
FREC, which always contains 45 characters; 
and VREC, which contains the number of 
characters generated by the expression 
7*NUM. Note that the DISP parameter of the 
DD statement could read simply DISP=OLD; if 
the second term is omitted, an existing 
data set will not be deleted. 


PRINT Files 


Both the operating system and PL/I include 
features that facilitate the formatting of 
printed output. The operating system 
allows you to use the first byte of each 
record for a printer control character; the 
control characters, which are not printed, 
cause the printer to skip to a new line or 
page. In PL/I, the use of a PRINT file 
provides a convenient means of controlling 
the layout of printed output in 
stream-oriented transmission; the compiler 
automatically inserts printer control 
characters in response to the PAGE, SKIP, 
and LINE options and format items. 


You can apply the PRINT attribute to any 
STREAM OUTPUT file, even if you do not 


intend to print the associated data set 
directly. When a PRINT file is associated 
with a magnetic-tape or direct-access data 
set, the control characters have no affect 
on the layout of the data set, but appear 
as part of the data in the records. 


The compiler reserves the first byte of 
each record transmitted by a PRINT file for 
an ANS control character, and inserts the 
appropriate characters automatically. 
Figure 11-5 lists the ANS control 
characters; a PRINT file uses only the 
following five characters: 


New Page 

Single line space 
Double line space 
Triple line space 
Suppress space 


(blank) 


olv m 


Tl 


The compiler handles the PAGE, SKIP, and 
LINE options or format items by padding the 
remainder of the current record with blanks 
and inserting the appropriate control 
character in the next record. For V- or 
U-format files, this padding is not done if 
the current line length is equal to or 
greater than the length of a noise record. 
If SKIP or LINE requests more than a triple 
line space, the compiler inserts sufficient 
blank records with appropriate control 
characters to accomplish the required 
positioning. In the absence of a printer 
control option or format item, when a 
record is full the compiler inserts a blank 
code (single line space) in the first byte 
of the next record. 
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RECORD FORMAT 


You can limit the length of the printed 
line produced by a PRINT file either by 
specifying a record size in the ENVIRONMENT 
attribute or in a DD statement, or by 
‘giving a line size in an OPEN statement. 
The record size must include the extra byte 
for the printer control character, that is, 
it must be one byte larger than the length 
ОЁ the printed line (five bytes larger for 
V-format records). The value you specify 
іп the LINESIZE option refers to the number 
Of characters in the printed line; the 
compiler adds the control bytes. 


The blocking of records has no affect on 
the appearance of the output produced by a 
‘PRINT file, but it does result in more 
efficient use of storage space when the 
file is associated with a data set on 
magnetic tape or a direct-access device. 

If you use the LINESIZE option, ensure that 
your line size is compatible with your 
-block size: for F-format records, blocksize 
must be an exact multiple of (line size + 
1); for V-format records, blocksize must be 
‘at least nine bytes greater than line size. 


Although you can vary the line size for 
a PRINT file during execution by closing 
‘the file and opening it again with a new 
line size, you must do so with caution if 
you are using the PRINT file to create a 
‘data set on magnetic tape or a 
‘direct-access device: you cannot change the 
record format established for the data set 
when the file is first opened. If the line 
size specified in an OPEN statement 
conflicts with the record format already 
established, the UNDEFINEDFILE condition 
will be raised; to prevent this, either 
specify V-format records with a block size 
at least nine bytes greater that the 
maximum line size you intend to use, or 
ensure that the first OPEN statement 
specifies the maximum line size. (Note 
‘that, if your program is processed by an 
‘operating system with МЕТ or МУТ, output 
destined for the printer may be temporarily 
stored on a direct-access device, unless 
‚уой specify a printer by using UNIT-, even 
if you intend it to be fed directly to the 
printer.) 


Since PRINT files have a default line 
size of 120 characters, you need not give 
any record format information for them. In 
the absence of other information, the 
compiler assumes V-format records; the 
complete default information is: 


120 


BLKSIZE-129 
LRECL-125 


| RECFM=VA 


EXAMPLE 


Figure 10-5 illustrates the use of a PRINT 
file and the printing options of the 
stream-oriented transmission statements to 
format a table and write it onto magnetic 
tape for printing on a later occasion. The 
table comprises the natural sines of the 
angles from 09 to 3599 544 in steps of 6". 


The statements in the ENDPAGE ON-unit 
insert a page number at the bottom of each 
page, and set up the headings for the 
following page. After the last line of the 
table has been written, the statement PUT 
FILE(TABLE) LINE(54) causes the ENDPAGE 
condition to be raised to ensure that a 
number appears at the foot of the last 
page; the preceding statement sets the flag 
FINISH to prevent a further set of headings 
from being written. 


The DD statement that defines the data 
set that this program creates includes no 
record-format information; the compiler 
infers the following from the file 
declaration and the line size specified in 
the statement that opens the file TABLE: 


Record format - V (the default for a 
PRINT file) 


Record size - 98 (line size * one byte 
for printer control 
character + four bytes 
for record control 
field) 


Block size = 102 (record size + four 
bytes for block 
control field) 


Figure 11-8 uses record-oriented 
transmission to print the table created in 
Figure 10-5. 


TAB CONTROL TABLE 


Data-directed and list-directed output to a 
PRINT file is automatically aligned on 
preset tabulator positions; the tab 
settings are stored in a table in the PL/I 
library module IHETAB (Figure 10-6). The 
functions of the fields in the table are as 
follows: 


//I3035PGEX JOB 


// COLEEX 
//PLIL.SY 
SINE: 


/X 


EXEC PLILFCLG, PARM. PLIL="SIZE=999999* , PARM. LKED="LIST'* 
SIN DD * 
PROC OPTIONS (MAIN) ; 
DCL TABLE FILE STREAM OUTPUT PRINT, 
TITLE CHAR(13) INIT('NATURAL SINES'), 
HEADINGS CHAR(90) INIT(' 0 6 12 
24 30 36 42 48 54"), 
PGNO FIXED DEC(2) INIT(1), 
FINISH BIT(1) ІМІТ("0"В), 
VALUES(0:359,0:9) FLOAT DEC(6); 
ON ENDPAGE(TABLE) BEGIN; 
PUT FILE(TABLE) EDIT('PAGE',PGNO) (LINE(55) ,COL(87) ,A,F (32) : 
IF FINISH='0'B THEN DO; 
PGNO-PGNO*1 ; 
PUT FILE(TABLE) EDIT(TITLE||' (CONT''D)',HEADINGS) 
(PAGE,A,SKIP(3),A); 
PUT FILE(TABLE) SKIP(2); 
END; 
END; 
DO I-0 TO 359; 
DO J=0 TO 9; 
VALUES (I,J) =I+J/10; 
END; 
END; 
VALUES=SIND (VALUES) ; 
OPEN FILE(TABLE) PAGESIZE(52) LINESIZE(93); 
PUT FILE(TABLE) EDIT(TITLE, HEADINGS) (PAGE,A,SKIP(3),A); 
DO I=0 TO 71; 
PUT FILE(TABLE) SKIP(2); 
DO J=0 TO і: 
K=5*I+d; 
PUT FILE(TABLE) EDIT(K, VALUES (K,*)) (Е(3),10 F(9,4))3 
END; 
END; 
FINISH='1'B; 
PUT FILE(TABLE) LINE(54); 
CLOSE FILE(TABLE); 
END SINE; 


//GO. TABLE DD UNIT=2400, DISP=(NEW, CATLG, DELETE) , DSNAME=SINES 


Figure 10-5. Using a PRINT File 
PAGESIZE Halfword binary integer is numbered 255. 
that defines the default value of each tab should 
page size. be greater than that of 
the tab preceding it in 
LINESIZE Halfword binary integer the table; otherwise, it 


Reserved bytes 


Tab count 


тар, = Tabn 


that defines the default 
line size. 


Reserved for left and 
right margin facilities. 


Number of tab position 
entries in table (maximum 
255). If tab count = 0, 
the tab positions are not 
used: each data item is 
put out as if a PRINT 
file were not being used. 


Tab positions within the 
print line. The first 
position is numbered 1, 
and the highest position- 


will be ignored. The 
first data field in the 
printed output begins at 
the left margin (position 
1), and thereafter each 
field begins at the next 
available tab position. 


You can alter the tab control table and 
either replace it permanently in the PL/I 
library (SYS1.PL1LIB, see Chapter 12) or 
insert it in the linkage editor input 
Stream for use in a single program. To 
change the tab settings, you must change 
the values in the assembler language 
control section (listed in Figure 10-6). 
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Figure 10-7 illustrates how to make а (instead of the library module IHETAB) to 
temporary change in the tab settings. The be link edited with the PL/I object. module. 


first job step (ASLE) uses the IBM-supplied 

assembler language cataloged procedure 

ASMFC to assemble a new control section for 

IHETAB, which retains the standard default Standard Files 
line size and page size, but introduces new 

tab settings 30, 60, and 90. The second 


job step uses the cataloged procedure PL/I includes two standard files, SYSIN for 
PLILFCLG to compile, link edit, and execute input and SYSPRINT for output. If your 

a PL/I program. The procedure step LKED program includes a GET statement that does 
includes two additional DD statements: TAB, not include the FILE option, the compiler 
which defines the data set that contains inserts the file name SYSIN; if it includes 
the assembled control section (passed from a PUT statement without the FILE option, 
step ASLE), and SYSIN, which permits the the compiler inserts the name SYSPRINT. 
linkage editor INCLUDE statement to be 

inserted in the input stream. The INCLUDE If you do not declare SYSPRINT, the 
statement causes the new tab control table compiler will give the file the attribute 


PRINT in addition to the normal default 


Byte 0 1 2 3 
[ 5 nmi Se Sse saa ess ea a ae a ttn di ii tdi 
Word 1 | PAGESIZE | LI NESIZE | 
}------------ т------------ %----------- т----------- 4 
2 | (Reserved) | (Reserved) | Tab count | Tab, | 
------------ %------------1------------4------------1 
3 | Tabs | Tabs | Tab. ee | Tab. es і 
{сасы А шшш 4------------ ane саралы ДЕКА 5 1 
| | | | | 
| | | | 
-------------і------------4------------і------------1 
ш | Таба | | | | 
а ас fee ЕКЕН Ыы ЕДА Бу болыр шыл S дылы ашы ыы 4 

(a) Tab control table 

CSS SS a SS er ei 
| 60 | 120 | 
мм 
| 0 | 0 | 5 | 25 | 
р------------і------------ %-----------і4------------ 1 
| 49 | 73 | 97 | 121 | 
e нынын ы Чо сыды ыы Қысы ыса ыды азы ды Жаралы зы а 1 


(b) Standard form of table 


TAB TITLE “ІНЕТАВ" 
ІНЕТАВ CSECT 

ENTRY IHETABS 
IHETABS DS 0р 
PAGESIZE DC AL2 (60) 
LINESIZE DC AL2 (120) 

DC H'O' 
NOTABS DC AL1(ENDTABS-*-1) 
TAB1 DC AL1(25) 
TAB2 DC AL1(u9) 
TAB3 DC AL1 (73) 
TABY DC А11 (97) 
ТАВ5 рс AL1 (121) 
ENDTABS EQU * 

END 


(c) Control section IHETAB 


Figure 10-6. Tabular Control Table (Module IHETAB) 
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//NEWTAB JOB 
// ASLE EXEC ASMFC 


//ASM.SYSPUNCH DD DSNAME=&&TAB, UNIT=SYSSQ, SPACE= (TRK, 1) , DISP= (NEW, PASS) 


//ASM.SYSIN DD * 
TAB TITLE 'IHETAB' 
IHETAB CSECT 

ENTRY IHETABS 
IHETABS DS ор 


PAGESIZE DC AL2(60) 
LINESIZE DC А12(120) 
DC — H'Q' 
NOTABS DC AL1(ENDTABS-*-1) 
ТАВ1 DC А11(30) 
TAB2 DC А11(60) 
TAB3 DC АҺ1(90) 
ENTABS EQU > 
END 
/* 


//COLEEX EXEC PLILFCLG,PARM. LKED=" LIST" 
//PLAL.SYSIN рр * 


Here follow the source statements of the PL/I program 


/ж 


//LKED.TAB DD DSNAME=& &TAB, DISP= (OLD, DELETE) 


//LKED.SYSIN DD * 
INCLUDE TAB 

/ Ж 

//GO.SYSIN DD * 


Here follows data for the PL/I program 
/ж 


Figure 10-7. Making а Temporary Change іп Tab Settings 


attributes; thus, the complete file 
declaration will be SYSPRINT FILE STREAM 
OUTPUT PRINT EXTERNAL. Since SYSPRINT is a 
PRINT file, the compiler also supplies a 
default line size of 120 characters anda 
V-format record. Therefore, you need give 
only a minimum of information in the 
corresponding DD statement; if your 
installation uses the usual convention that 
the system output device of class Ais a 
printer, the following is sufficient: 


//SYSPRINT DD SYSOUT=A 


If you use one of the IBM-supplied 
cataloged procedures to execute your 
program, even this DD statement is not 
required, since it is already included in 
the GO step. 


You can override the attributes given to 
SYSPRINT by the compiler by explicitly | 
declaring or opening the file. If you do 
so, bear in mind that this file is also 
used by the error-handling routines of the 
compiler, and that any change you make in 
the format of the output from SYSPRINT will 
also apply to the format of execution-time 
error messages. When an error message is 
printed, eight blanks are inserted at the 
start of each line except the first; 


consequently, if you specify a line size of 
less than nine characters (or a block size 
of less than ten bytes for F-format or 
U-format records, or less than 18 bytes for 
V-format records), the second and 
successive lines will not be printed, and 
the error-message routine will be locked in 
a permanent loop. 


The compiler does not supply any special 
attributes for the standard input file 
SYSIN; if you do not declare it, it 
receives only the normal default 
attributes. The data set associated with 
SYSIN is usually in the input stream; if 1% 
is not in the input stream, you must supply 
full DD information. 


Opening a STREAM File 


Note that if a stream-oriented file is 
opened for output and closed without any 
PUT statements being executed for it, a 
blank record will be transmitted. If the 
file is a print file, the first byte of the 
record will contain a carriage control 
character to skip to a new page. 
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In record-oriented transmission, data is 
transmitted to and from auxiliary storage 
exactly as it appears in the program 
variables; no data conversion takes place. 
A record in a data set corresponds to a 
variable in the program. 


You can employ record-oriented 
transmission to process data sets with the 
three types of organization recognized by 
PL/I (CONSECUTIVE, INDEXED, and REGIONAL) 
and teleprocessing data sets. The creation 
and accessing of each type of data set are 
discussed under appropriate headings below. 


Record Format 


When you create a data set, you must 
specify a block size; you can also specify 
a record size. If you omit the record 
Size, the records will be unblocked and 
their size will be determined by the block 
size. In your PL/I program, you can state 
the record format in the ENVIRONMENT 
attribute, which is described in IBM 


System/360 Operating System: PL/I (Е) 


Language Reference Manual; alternatively, 
you can state the record format in a DD 


statement, using the subparameters RECFM, 
BLKSIZE, and LRECL (which are described in 
Appendix B). 


With the following exceptions, 
record-oriented transmission can handle all 
three record formats (fixed-length, 
variable-length, and undefined-length). 
Fixed-length and variable-length records 
can be blocked or unblocked; 
variable-length records can be spanned. 

The exceptions are: 


1. CONSECUTIVE data sets: you cannot read 
variable-length records backwards. 


2. REGIONAL(1) and REGIONAL(2) data sets: 
only unblocked fixed-length ‘records 
are accepted. 


3. REGIONAL(3) data sets: you can use all 
three formats, but the records must be 
unblocked. 


The record size (or block size if you 
omit the record size) that you should 
specify is governed by the size of the 
program variable from which you will 
transmit your data. For fixed-length 
records, the record size should equal the 
size of the variable; the maximum size of 
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variable-length and undefined-length 
records must be enough to accept the 
largest record you will transmit. If these 
conditions are not met, the RECORD 
condition will be raised. To determine the 
record size required for a data aggregate, 
you may need to refer to the information on 
structure mapping included in IBM 


System/360 Operating System: PL/I (Е) 
Lanquage Reference Manual. 


CHOICE OF RECORD FORMAT 


For maximum efficiency in data 
transmission, use blocked records whenever 
they are permitted, and select the maximum 
block size consistent with the amount of 
main storage available to your program and 
with the characteristics of the output 
device you are using. (The larger the 
block size, the fewer requests need be made 
by the data management routines for the 
transmission of a block of data to or from 
auxiliary storage; such requests carry a 
substantial time overhead.) 


For a direct-access device, the ideal 
block size is the capacity of one track; 
this combines maximum transmission 
efficiency with optimum use of auxiliary 
storage. А block can exceed the capacity 
of one track only if your installation has 
the track overflow feature; this allows the 
block to be continued on the next track. 
Although track overflow can increase 
data-packing efficiency, it reduces 
transmission speed. The use of small 
blocks wastes storage space because a block 
of system information follows each block of 
data (except the last on the track). For 
example, there are more than 60 bytes of 
System information for each block in the 
2311 disk drive; a track can contain one 
block of 3625 bytes, but only 55 blocks of 
5 bytes (i.e., 275 bytes of data). (Refer 
to the reference cards listed under 
'Direct-Access Devices,' in Chapter 10, for 
further information.) 


Unit record devices (card readers and 
punches, апа printers) and paper-tape 
readers do not support blocked records. 
With a unit record device, each record 
begins on a new card or line regardless of 
the blocking factor. For example, if you 
specify LRECL-20, BLKSIZE-80 for a card 
punch, only the first 20 columns of each 
card will be punched. If the record size 
exceeds the capacity of a card (80 bytes) 


or the maximum length of a line (132 
characters for the 1403 printer), the 
record is truncated. 


In general, fixed-length records are 
transmitted faster than variable-length or 
undefined-length records. For maximum 
efficiency in sequential processing of a 
data set on a direct-access device, specify 
'standard' format records (RECFM-FS or 
RECFM-FBS). If you use variable-length 
records, VBS-format allows you to specify 
block size independently of record size 
(and thus to select the optimum block 
size). 


Buffers 


When you use a SEQUENTIAL BUFFERED file to 
process a data set, you can specify the 
number of data management buffers to be 
used either in your PL/I program (in the 
ENVIRONMENT attribute) or in the DD 
statement (BUFNO subparameter). If you 
omit this information or specify zero 
buffers, the operating system will allocate 
two buffers. Two buffers are sufficient 
for efficient transmission in most cases, 
but you may gain some advantage by 
specifying three buffers for a low-speed 
device such as a printer. You should 
specify at least three buffers if you use 
chained scheduling. Blocked records are 
not supported for UNBUFFERED files. 


Although a buffer specification for a 
DIRECT file will be ignored, and even if 
the file is declared UNBUFFERED, the data 
management routines of the PL/I library 
sometimes use work buffers termed hidden 
buffers. Hidden buffers are used for: 


1. UNBUFFERED access of CONSECUTIVE data 
sets with V-format records (the buffer 
contains the V-format control bytes 
and the data). 


2. INDEXED data sets (the buffer contains 
a 10-byte control field and the data). 


3. SEQUENTIAL access of a REGIONAL(2) or 
REGIONAL(3) data set declared KEYED 
(so that the key and the record can be 
transmitted from contiguous storage 
areas). 


CREATING AND ACCESSING DATA SETS 


To create or access a data set, you must 
give the operating system certain 
information, either in the DD statement 
that defines the data set or in your PL/I 


program. The following sections indicate 
the essential information that you must 
supply when processing CONSECUTIVE, 
INDEXED, REGIONAL, and teleprocessing data 
sets, and discuss some of the optional 
information you may supply. The 
discussions do not refer to data sets in 
the input stream, which are covered in 
Chapter 10. Appendix B describes the 
parameters referred to, and explains how to 
code them; the ENVIRONMENT attribute is 


described in IBM System/360 Operating 
System: PL/I (Е) Language Reference Manual. 


CONSECUTIVE Data Sets 
CREATING A CONSECUTIVE DATA SET 


In a CONSECUTIVE data set, records are 
stored sequentially in the order in which 
you write them; there are no keys. Figure 
11-1 summarizes the essential information 
you must pass to the operating system when 
creating a CONSECUTIVE data set. You must 
specify: 


1. Device that will write or punch your 
data set (UNIT, SYSOUT, or VOLUME 
parameter of DD statement). 


2. Block size: you can give the block 
size in the DD statement (BLKSIZE 
subparameter of DCB parameter), or in 
your PL/I program (in the ENVIRONMENT 
attribute). 


Note: If you do not specify a record 
size, unblocked records are assumed 
and the record size is determined from 
the block size. If you do not specify 
a record format, U-format is assumed. 


If you want to keep a magnetic-tape or 
direct-access data set (that is, you do not 
want the operating system to delete it at 
the end of your job), the DD statement must 
name the data set and indicate how it is to 
be disposed of (DSNAME and DISP 
parameters). The DISP parameter alone will 
suffice if you want to use the data set in 
more than one job step but will not need it 
after the end of your job. 


If you are creating a data set on a 
direct-access device, you must specify the 
amount of space required for it (SPACE 
parameter of DD statement). 


If you want your data set written on a 
particular magnetic-tape or direct-access 
volume, you must indicate the volume serial 
number in the DD statement (SER or REF 
subparameter of VOLUME parameter). If you 
do not supply a serial number of a 
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Parameters of DD Statement | 


| Storage Device р---------------------ұү---------------------ү--------------------- 1 
| When required H What you must state T Parameters | 
p-----—----—--—------ ------------------- %---------------------|--------------------- 1 
| 1 | Output device | UNIT= or SYSOUT= or | 
{ All | Always | | VOLUME=REF= | 
| | |------------------- --------------------- 1 
| | |: | Block size* | DCB=BLKSIZE= | 
}--------------------- %------------------- %--------------------- і-------------------- 1 
| Direct access only | Always | Storage space | SPACE= | 
| | | required | 1 
}~---------—---------- %-------------------- %--------------------- І%--------------------- 1 
| Magnetic tape only | Data set not first | Sequence number | LABEL= | 
| | in volume and fox | | | 
| | magnetic tapes that | | | 
i | do not have | | | 
| | standard labels | | | 
һ---------------- -----і---------------------|--------------------- --------------------- 1 
| | Data set to be used | | | 
| | by another job step | Disposition | DISP- | 
| | but not required at | | | 
| | end of job | | | 
| Direct access and I------------------- --—-------7---—-—-—----— Ғұ--------------------- 1 
| standard labeled | Data set to be kept | Disposition | DISP= | 
| magnetic tape | after end of job Е--------------------1---------------------4 
| 1. | Name of data set | DSNAME= | 
| --------------------- %---------------------1--------------------- 1 
| | Data set to be on | Volume serial number| VOLUME=SER= or | 
| | particular volume { | VOLUME=REF= | 
р--------------------- Жап шаа она лы АЫ Sip MR Жазасы м де ысы Жыры ассын E T NNUS 1 
[*Alternatively, you can specify the block size in your PL/I program by using the | 
| ENVIRONMENT attribute. | 
renale M ERE T RU рыны а ал Ur tarot M CRUS MENTEM EE 1 
Figure 11-1. Creating a CONSECUTIVE Data Set: Essential Parameters of DD Statement 
magnetic-tape data set that you want to pree ————————————— À————Ó———Ó— —À 
keep, the operating system will allocate [Subparameter| Specifies | 
one, inform the operator, and print the рЫр----------- Ғрұ--------------------------- 4 
number on your program listing. | BLKSIZE {Maximum number of bytes per | 
! | block | 
If your data set is to follow another | BUFNO | Number of data management { 
data set on a magnetic-tape volume, you | | buffers | 
must use the LABEL parameter of the DD | CODE |Paper tape: code in which | 
statement to indicate its sequence number | {the tape was punched | 
on the tape. | DEN |Magnetic tape: tape 
| |xecording density | 
Figure 11-2 lists the DCB subparameters | LRECL {Maximum number of bytes per | 
that are applicable to CONSECUTIVE data | {кесога | 
sets; they are described in Appendix в. | MODE [Card reader or punch: mode | 
You can specify record format (RECFM), | Jof operation (column binary | 
block size (BLKSIZE), record size (LRECL), | jor EBCDIC) | 
and number of buffers (BUFNO) in the | OPTCD {Optional data-management | 
ENVIRONMENT attribute instead of in a DD | |services and data-set i 
statement. | |attributes | 
| PRTSP |Printer line spacing (0, 1, | 
| |2, or 3) | 
| КЕСЕМ {Record format and | 
| | | characteristics | 
ACCESSING A CONSECUTIVE DATA SET | TRTCH |Magnetic tape: tape | 
| |recording technique for | 
| |7-track tape | 
You can access an existing CONSECTUIVE data а) 


set in three ways. You сап open the 
associated file for input, and read the 
records the data set contains; you can open 
the file for output, and extend the data 
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Figure 11-2. DCB Subparameters for 


CONSECUTIVE Data Sets 


—————— т------------------------- 1 
| When required | What you must state | Parameters | 
— ——— —— —— —————— a! d4--—-----------------—- 1 
| | Name of data set | DSNAME- | 
[Always pa eee re so a a -ə----------4.---..-.--.---------.----------4 
| | Disposition of data set | DISP= | 
ао а 
| [А11 devices | Input device | UNIT= or VOLUME=REF= | 
|If data set not  |----------------- 4-——————————————— ————— Аф------------------------- 1 
| cataloged |Standard labeled | | | 
| [magnetic tape and| Volume serial number | VOLUME-SER- | 
| | direct access | | | 
ннн санар чин Га REE ннан нй + == «мо аш» сино VEND A VERD VEND МӘЛ A А ФЕР IND GUI AS CEU Чай» ары» «ка» чо «лан Н» «Кыз OS ӨЙ» «рл «то «кыз ань «м» «ив ағыз AD «ню «тю етю чит CUR GERD «Шз AE D «ци» MID. -------4 
|Magnetic tape: if data set not | Sequence number | LABEL- | 
|first in volume or which does not | | | 
|have standard labels | | | 
----------------------------------- %------------------------- %------------------------- 1 
|If data set does not have standard | Block sizet* | DCB-BLKSIZE- | 
| labels | | | 
a ant ce a ld ale as шаласы атынын 4-------------------------1-------------------------1 


Е 
|*Alternatively, you can specify the block size in your PL/I program by using the | 


| ENVIRONMENT attribute. 


Figure 11-3. 


set by adding records at the 

end; or you can open the file for update, 
and read and rewrite each record in turn. 
(The operating system does not permit 
updating a CONSECUTIVE data set on magnetic 
tape; you must read the data set and write 
the updated records into a new data set.) 


TO access an existing data set, you must 
identify it to the operating system in a DD 
statement. The following paragraphs, which 
are summarized in Figure 11-3, indicate the 
essential information you must include in 
your DD statement, and discuss some of the 
other information you may supply; this 
discussion does not apply to data sets in 
the input stream, which are dealt with in 
Chapter 9 ‘Data Sets and PL/I Files‘. 
Appendix B describes the DD parameters 
referred to, and tells you how to code 
them. 


Essential Information 


If the data set is cataloged, you need 
supply only the following information in 
the DD statement: 


1. The name of the data set (DSNAME 
parameter). The operating system will 
locate the information that describes 
the data set in the system catalog, 
and, if necessary, will request the 
operator to mount the volume that 
contains it. 


Accessing a CONSECUTIVE Data Set: Essential Parameters of DD Statement 


2. Confirmation that the data set already 
exists (DISP parameter). If you open 
the data set for output with the 
intention of extending it by adding 
records at the end, code DISP=MOD; 
otherwise, to open the data set for 
output will result in it being 
overwritten. 


If the data set is not cataloged, you 
must, in addition, specify the device that 
will read the data set, and, for 
magnetic-tape and direct-access devices, 
give the serial number of the volume that 
contains the data set (UNIT and VOLUME 
parameters). 


If the data set is on paper tape or 
punched cards, you must specify the block 
size either in the DD statement (BLKSIZE 
subparameter), or in your PL/I program 
(ENVIRONMENT attribute). 


If the data set follows another data set 
on a magnetic-tape volume, you must use the 
LABEL parameter of the DD statement to 
indicate its sequence number on the tape. 


Magnetic Tape Without Standard Labels 


If a magnetic-tape data set has nonstandard 
labels or is unlabeled, you must specify 
the block size either in the DD statement 
(BLKSIZE subparameter) or in your PL/I 
program (ENVIRONMENT attribute). The 
DSNAME parameter is not essential if the 
data set is not cataloged. 
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PL/I data management includes no 
facilities for processing nonstandard 
labels. To the operating system, such 
labels appear as data sets preceding or 
following your data set. You can either 
process the labels as independent data sets 
or use the LABEL parameter of the DD 
statement to bypass them; to bypass the 
labels code LABEL=(2,NL) or LABEL=(,BLP). 


Record Format 





If you give record-format information, it 
must be compatible with the actual 
structure of the data set. For example, if 
a data set was created with F-format 
records, a record size of 600 bytes, and a 
block size of 3600 bytes, you can access 
the records as if they were U-format with a 
maximum block size of 3600 bytes; but if 
you specify a block size of 3500 bytes, 
your data will be truncated. 


//JOZ4PGEA JOB 


EXAMPLE OF CONSECUTIVE DATA SETS 


Figure 11-4 illustrates both creation and 
accessing of CONSECUTIVE data sets on 
magnetic tape. The program merges the 
contents of two existing data sets, DS1 and 
DS2, and writes them onto a new data set, 
DS3; each of the original data sets 
contains 15-byte fixed-length records 
arranged in EBCDIC collating sequence. The 
two input files, ІМ1 and IN2, have the 
default attribute BUFFERED, and locate mode 
is used to read records from the associated. 
data sets into the respective buffers. The 
output file, OUT, is not buffered, allowing 
move mode to be used to write the output 
records directly from the input buffers. 


//COLEEX EXEC PLILFCLG, PARM. PL1L=" SIZE-999999' , PARM. LKED=" LIST" 


//PIÁL.SYSIN DD ж 
MERGE: PROC OPTIONS(MAIN); 


DCL (IN1,IN2,0UT) FILE RECORD SEQUENTIAL, 
(ITEM1 BASED(A),ITEM2 BASED(B)) CHAR(15); 


ON ENDFILE(IN1) BEGIN; 


ON ENDFILE(IN2) GO TO FINISH; 


NEXT2: WRITE FILE(OUT) FROM(ITEM2); 
READ FILE(IN2) SET(B); 

GO TO NEXT2; 

END; 


ON ENDFILE(IN2) BEGIN; 


ON ENDFILE(IN1) GO TO FINISH; 


NEXT1: WRITE FILE(OUT) FROM(ITEM1); 
READ FILE(IN1) SET(A); 
GO TO NEXT1; 
END; 

OPEN FILE(IN1) INPUT, 
FILE(IN2) INPUT, 
FILE(OUT) OUTPUT; 

READ FILE(IN1) SET(A); 

READ FILE(IN2) SET(B); 

IF ІТЕМІ>ІТЕМ2 THEN DO; 

WRITE FILE(OUT) ЕКОМ(ІТЕМ2) ; 
READ FILE(IN2) SET(B); 

GO TO NEXT; 

END; 

ELSE DO; 

WRITE FILE(OUT) FROM(ITEM1); 
READ FILE(IN1) SET(A); 

GO TO NEXT; 

END; 


NEXT: 


FINISH: 
END MERGE; 

/* 

//GO.IN1 DD 

//GO.IN2 DD 

//GO.OUT DD 

/” DCB= (RECFM-F, BLKSIZE=15) 


Figure 11-4. 
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CLOSE FILE(IN1),FILE(IN2),FILE(OUT); 


DSNAME=DS1 , DISP= (OLD, KEEP) , UNIT=24 00, VOLUME=SER=337 31 
DSNAME=DS2 , DISP= (OLD, KEEP) , UNI T=2400,, VOLUME=SER=987655 
DSNAME=DS3 , DISP= (NEW, KEEP) , UNIT=2400, 


Creating and Accessing a CONSECUTIVE Data Set 


PEEN el нынын зам ыы ызы E oe НОРИ 1 
Action | 
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| Space one line before 

| printing (blank code) 

| Space two lines before printing 

| Space three lines before printing 
| Suppress space before printing 

| to 

| to 

| to 

| to 

| to 

| to 

| to 

| to 

to 
to 


Skip channel 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 

| Skip 

| Skip 


1 
channel 2 
channel 3 
channel 4 
channel 5 
channel 6 
channel 7 
channel 8 
channel 9 
channel 
| Skip to channel 
| Skip to channel 
| Select stacker 1 
| Select stacker 2 
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|The channel numbers refer to the printer 
|carriage control tape. (See IBM 1403 


|Printer Component Description.) 
Кышы ше шыш ылды наданы SUN EE 


ANS Printer and Card Punch 
Control Characters 
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Figure 11-5. 


PRINTING AND PUNCHING CARDS 


You cannot use a PRINT file for 
record-oriented transmission, and 
record-oriented transmission statements 
cannot include the printing options (PAGE, 


SKIP, etc). Nevertheless, you can still 
exercise some control over the layout of 
printed output by including a printer 
control code as the first byte of each of 
your output records; you can also use 
similar control codes to select the stacker 
to which cards punched by your program are 
fed. 


The operating system recognizes two 
types of code for printer and card punch 
commands, ANS code and machine code. You 
must indicate which code you are using, 
either in the RECFM subparameter of your DD 
Statement or in the ENVIRONMENT attribute 
in your PL/I program. If you specify one 
of these codes, but transmit your data to a 
device other than a printer or a card 
punch, the operating system will transmit 
the control bytes as part of your records. 
If you use an invalid control character, 
'space one line' or 'stacker 1' will be 
assumed. | | 


The ANS control characters (Figure 11-5) 
cause the specified action to occur before 
the associated record is printed or 
punched. 


The machine code control characters 
differ according to the type of device. 
Figure 11-6 lists the codes for the 1403 
Printer, and Figure 11-7 gives those for 
the 2540 Card Read Punch. There are two 
types of command for the printer, the one 
causing the action to occur after the 
record has been transmitted, and the other 
producing immediate action but transmitting 


croc — «mum ews «мә m m cum ee tum im im em m m m m m ы m m m m m t m m m im t apos кы qut ы m m ne an oem аанын i m 1 


| Print and then | 


| Act immediately | 


| act | Action | (no printing) | 
L-------—- ee ic аа el сысы 
| Code byte | | | Code byte | 
E: 
| 00000001 | Print only (no space) | = 

| 00001001 | Space 1 line | 00001011 | 
| 00010001 | Space 2 lines | 00010011 | 
| 00011001 | Space 3 lines | 00011011 | 
| 10001001 | Skip to channel 1 | 10001011 | 
| 10010001 | Skip to channel 2 | 10010011 | 
| 10011001 | Skip to channel 3 | 10011011 | 
| 10100001 | Skip to channel 4 | 10100011 | 
| 10101001 | Skip to channel 5 | 10101011 | 
| 10110001 | Skip to channel 6 | 10110011 | 
| 10111001 | Skip to channel 7 | 10111011 | 
| 11000001 | Skip to channel 8 | 11000011 | 
| 11001001 | Skip to channel 9 | 11001011 | 
| 11010001 | Skip to channel 10 | 11010011 | 
| 11011001 | Skip to channel 11 | 11011011 | 
| 11100001 | Skip to channel 12 | 11100011 | 
|}---------~+—----~- oa a ane a ea аа RR a E 


|The channel numbers refer to the printer carriage control | 
tape. (See IBM 1403 Printer Component Description.) | 
; 4 


| 
L 


1403 Printer Control Codes 
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“no data (i.e., you must include the second 
type of command in a blank record). 


The essential requirements for producing 
printed output or punched cards are exactly 
the same as those for creating any other 
CONSECUTIVE data set (described above). 

For a printer, if you do not use one of the 
control codes, all data will be printed 
sequentially, with no spaces between 
records; each block will be interpreted as 
the start of a new line. When you specify 
a block size for a printer or card punch, 
and are using one of the control codes, 
include the control bytes in your block 
Size; for example, if you want to print 
lines of 100 characters, specify a block 
size of 101. 


Example 


The program in Figure 11-8 uses 
record-oriented transmission to read and 
print the contents of the data set SINES, 
which was created by the PRINT file in 
Figure 10-5. Since the data set SINES was 
cataloged, only two parameters are required 
in the DD statement that defines it. The 
output file PRINTER is declared with the 
ENVIRONMENT option CTLASA, ensuring that 
the first byte of each record will be 
interpreted as an ANS printer control code. 
The information given in the ENVIRONMENT 
attribute could alternatively have been 
given in the DD statement as follows: 


DCB=(RECFM=UA, BLKSIZE=94) 


//J036PGEX JOB 


г т 
| Code bytes | Action | 
~--~---—----}----------------=-| 
| 00000001 | Select stacker 1 | 

| 01000001 | Select stacker 2 | 

| 10000001 | Select stacker 3 | 
—— Á L 

2540 Card Read Punch Control 
codes 


Figure 11-7. 


INDEXED Data Sets 


A data set with INDEXED organization can 
exist only on a direct-access device. Each 
record in the data set is identified by a 
key that is recorded with the record. A 
key is a string of not more than 255 
characters; all the keys in a data set must 
have the same length. The records in the 
data set are arranged according to the 
collating sequence of their keys. Once an 
INDEXED data set has been created, the keys 
facilitate the direct retrieval, addition, 
and deletion of records. 


INDEXES 


To provide faster access to the records in 
the data set, the operating system creates 
and maintains a system of indexes to the 
records in the data set. The lowest level 
of index is the track index. There is a 
track index for each cylinder in the data 
set; it occupies the first track (or 
tracks) of the cylinder, and lists the keys 
of the last records on each track in the 
cylinder. A search can then be directed to 
the first track that has a key that is 
higher than or equal to the key of the 
required record. 


//COLEEX EXEC PLILFCLG, PARM. PL1IL=' SIZE=999999* , PARM. LKED=" LIST" 


//PLIL.SYSIN DD * 
PRT: PROC OPTIONS (МАІМ); 


DCL TABLE FILE RECORD INPUT SEQUENTIAL, 
PRINTER FILE RECORD OUTPUT SEQUENTIAL ENV(V(102) CTLASA), 


LINE CHAR (94); 
ON ENDFILE(TABLE) GO TO FINISH; 
OPEN FILE(TABLE), FILE(PRINTER) ; 
READ FILE(TABLE) INTO(LINE) ; 
WRITE FILE(PRINTER) FROM(LINE) ; 
GO TO NEXT; 
FINISH: CLOSE FILE(TABLE) , FILE(PRINTER) ; 

END PRT; 


NEXT: 


/* 
//GO. TABLE DD DSNAME=SINES , DISP=OLD 
//GO. PRINTER DD SYSOUT-A 


Figure 11-8. 
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If the data set occupies more than one 
cylinder, the operating system develops a 
higher level index called a cylinder indey. 
Each entry in the cylinder index identifies 
the key of the last record in the cylinder. 
TO increase the speed of searching the 
cylinder index, you can request in a DD 
Statement that the operating system develop 
a master index for a specified number of 
cylinders; you can have up to three levels 
of master index. Figure 11-9 illustrates 
the index structure. The part of the data 
set that contains the cylinder and master 
indexes is termed the index area. 


When a INDEXED data set is created, all 
the records are written in what is called 
the prime data area. If more records are 
added later, the operating system does not 
rearrange the entire data set; it inserts 
each new record in the appropriate position 
and moves up the other records on the same 
track. Any records forced off the track by 
the insertion of a new record are placed in 
an overflow area. The overflow area can 
consist either of a number of tracks set 
aside in each cylinder for the overflow 
records from that cylinder (cylinder 
overflow area), or a separate area for all 


overflow records (independent overflow 


area). 


Figure 11-10 shows how the records in 
the overflow area are chained together and 


Cylinder Index 






Cylinder 1 


Track 
Index 


Prime 
Data 


Prime 
Data 


Overflow 


Figure 11-9. 


Cylinder 11 


Index Structure of INDEXED Data Set 


to the track index so as to maintain the 
logical sequence of the data set. Each 

entry in the track index consists of two 
parts: 


1. The normal entry, which points to the 
last record on the track. 


2. The overflow entry, which contains the 
key of the first record transferred to 
the overflow area and also points to 
the last record transferred from the 
track to the overflow area. 


If there are no overflow records from the 
track, both index entries point to the last 
record on the track. An additional field 
is added to each record that is placed in 
the overflow area. It points to the 
previous record transferred from the same 
track; the first record from each track is 
linked to the corresponding overflow entry 
in the track index. 


CREATING AN INDEXED DATA SET 


When you create an INDEXED data set, your 
program must write the records in the data 
set sequentially in the order of ascending 
key values; the associated file must be 
opened for SEQUENTIAL OUTPUT. 


Master Index 


Cylinder 12 
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Figure 11-10. 


| Once ап INDEXED data set has been 

|: created, it can be extended if the file is 

‚ reopened for SEQUENTIAL OUTPUT. However, 

it is your responsibility to ensure that 

. the key of the first record to be added to 

: the data set is higher than the highest key 
already contained in the data set. Failure 

' to ensure this will cause diagnostic 

| message ІНЕ031І to be printed and the 

| program will terminate abnormally with а 

i System completion code of 031. 


You can use a single DD statement to 


define the whole of the data set (index 
area, prime area, and overflow area), or 
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Adding Records to an INDEXED Data Set 


you can use two or three statements to 
define the areas independently. If you use 
two DD statements, you can define either 
the index area and the prime area together, 
or the prime area and the overflow area 
together. 


If you want the whole of the data set to 
be on a single volume, there is no 
advantage to be gained by using more than 
one DD statement except to define an 
independent overflow area (see ‘Overflow 
Area,‘ below). But, if you use separate DD 
statements to define the index and/or 
overflow areas on volumes separate from 








Overflow 


that which contains the prime area, you 
.will increase the speed of direct access to 
the records in the data set by reducing the 
number of access mechanism movements 
required. 


When you use two or three DD statements 
to define an INDEXED data set, the 
statements must appear in the order: index 
area; prime area; overflow area. Тһе first 
DD statement must have a name (ddname), but 
the name fields of a second or third DD 
Statement must be blank. The DD statements 
for the prime and overflow areas must 
specify the same type of unit (UNIT 
parameter). You must include all the DCB 
information for the data set in the first 
DD statement; DCB=DSORG=IS will suffice in 
the other statements. 


Esséntial Information 


In general, all the information given above 
for the creation of a CONSECUTIVE data set 
on a direct-access device applies equally 
to an INDEXED data set. The following 
paragraphs discuss only the constraints 
imposed by the use of INDEXED organization 
and the additional information you must 
supply or may want to give. Figure 11-11 
summarizes all the essential parameters 
required in a DD statement for the creation 
of an INDEXED data set, and Figure 11-12 
lists the DCB subparameters needed. 


Appendix B contains a description of all 
the parameters of the DD statement. 


You cannot place an INDEXED data set on 
a system output (SYSOUT) device. 


You must request space for the prime 
data area in the SPACE parameter. Your 
request must be in units of cylinders 
unless you place the data set in a specific 
position on the volume (by specifying a 
track number in the SPACE parameter). In 
the latter case, the number of tracks you 
specify must be equivalent to an integral 
number of cylinders, and the first track 
must be the first track of a cylinder other 
than the first cylinder in the volume. You 
can also use the SPACE parameter to specify 
the amount of space to be used for the 
cylinder and master indexes (unless you use 
a separate DD statement for this purpose). 
If you do not specify the space for the 
indexes, the operating system will use part 
of the independent overflow area; if there 
is no independent overflow area, it will 
use part of the prime data area. 


In the DCB parameter, you must always 
state the data set organization (DSORG=IS), 
and in the first (or only) DD statement you 
must also give the length of the keys 
(KEYLEN). 


г”------"--------------------------------------------------------------------------------ң 


| Parameters of DD Statement | 


р----- ---------------------------- т------------------------- т------------------------- 1 
| When required | What you must state | Parameters | 
| -----------------~----------------- %------------------------- %------------------------ 1 
| | Output device | UNIT= or VOLUME=REF= | 
| рҺ------------------------- %------------------------ 1 
| | Storage space required | SPACE= | 
| Always Ғ------------------------- Ғ------------------------ 1 
| | Data control block | | 
| | information: refer to | DCB= | 
| | Figure 11.12 | | 
== %------------------------- %------------------------ 1 
| | Name of data set and | | 
|More than one DD statement | area (index, prime, | DSNAME- | 
| | overflow) | | 
}~---------------------------------- {----------~-------------- ----- --------------- ---1 
[раба set to be used in another job | | | 
|step but not required after end | Disposition | DISP- | 
[of job | | | 
----------------------------------- %-------------------------і-------------------------і 
|Data set to be kept after end | Disposition | DISP- | 
lof job }------------------------- %------------------------- 1 
| | Name of data set | DSNAME= | 
}-------~--------~------------------ 4------------------------- 1------------------------- 1 
{Data set to Бе on particular | Volume serial number | VOLUME-SER- or | 
| volume | | VOLUME=REF= | 
ГТ ec lee Ыйын ЫШЫ EOE ae Se асасын ашыды ee SISSE Bach ing cacti rata ЕЕ 4 


Figure 11-11. 


Creating an INDEXED Data Set: Essential Parameters of DD Statement 
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Name of Data Set 


If you use only one DD statement to define 
your data set, you need not name the data 
set:unless you intend to access it in 
another job. But, if you include two or 
three DD statements, you must specify a 
data set name, even for a temporary data 
set. 


The DSNAME parameter in a DD statement 
that defines an INDEXED data set not only 
gives the data set a name, but it also 
identifies the area of the data set to 
which the DD statement refers: 


DSNAME-name (INDEX) 
DSNAME-name (PRIME) 


DSNAME=name (OVFLOW) 


If the data set is temporary, prefix its 
name with &&. If you use one DD statement 
to define the prime and index or prime and 
overflow areas, code DSNAME=name(PRIME); if 
you use only one DD statement, code 
DSNAME=name(PRIME), or simply DSNAME=name. 


Record Format and Keys 


An INDEXED data set can contain both fixed- 
and variable-length records, blocked or 
unblocked. You must always include the 
subparameter RECFM in your DD statement or 
specify the record format in your PL/I 
program (ENVIRONMENT attribute). 


The key associated with each record can 
be contiguous with or embedded within the 
data in the record; you can save storage 
space in the data set if you use blocked 
records with embedded keys. 


= т------------------------------------- -------------------- 1 
| | To specify | Subparameters | 
|---------------------------. Һ-------------------------------------- %-------------------- ! 
| |Record format+ | RECFM=F, FB, FBS, | 
| | |У2,ог VB? | 
| |-----~----------------~--------------- %-------------------- 1 
| |Block size? | BLKSIZE= | 
|These are always required р-------------------------------------- ---------- ————————— 1 
| |Data set organization | DSORG=IS | 
И nnn nnn enn ne nn en nn npn nnn nnn nnn 1 
| | Key Tengen | KEYLEN= | 
|~----------------~--------- 4 -----.--------------------------------- %-------------------- 1 
| [Cylinder overflow area and | | 
| [number of tracks per cylinder for |OPTCD-Y and CYLOFI- | 
{Include at least one of ари records | | 
|these if overflow is |  [----—--------—------2----—--———-———--—-—--—--- -------------—----——- 1 
| required | Independent overflow area | OPTCD=I | 
}--------------------------- %-------------------------------------- %-------------------- 1 
| |Record length+ | LRECL= | 
MEN н-------------------------------- %-------------------- 1 
| |Embedded key (relative key position) |ЕКР- | 
| |-------------------------------------- $---~---------------- 1 
[These are optional |Master index | OPTCD-M | 
Pte enn nnn nen nnn nn nanan nnn %-------------------- 1 
| {Automatic processing of dummy records |OPTCD-L | 
0 ee %-------------------- 1 
| {Number of data management bufferst | BUFNO- | 
г “5 %-------------------- 1 
| |Number of tracks in cylinder index | NTM- | 
| |for each master index entry | | 
Ғ--------------------------- ee ы ал ee a ie с асады -— — тыны 4 


|*Alternatively, сап be specified іп ENVIRONMENT attribute. 


|?For V or VB format records, 
| is equal to or greater than 4. 


| 
it is essential that RKP is specified with a value that | 
| 


Note: Full DCB information must appear іп the first, or only, DD statement. Subsequent 


statements require only DSORG=IS. 


Figure 11-12. 
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DCB Subparameters for INDEXED Data Set 


If the records are unblocked, the key of in the block is also recorded in front of 


each record is recorded in the data set in the block (Figure 11-13(c)). When blocked 
front of the record even if it is also records have embedded keys, the individual 
embedded within the record (Figure 11-13, keys are not recorded separately in front 
(a) and (b)). If blocked records do not of each record in the block; the key of the 
have embedded keys, the key of each record last record in the block is recorded in 

is recorded within the block in front of front of the block (Figure 11-13(4)). 


the record, and the key of the last record 


(a) Unblocked records, non-embedded keys 


г--"І--"-----1 г---т-------- а 


1 pam 1 
| Кеу| Data | ІКеу| Data | |Key| Data | 
1 


L m sen meL, —— GE ee URNA мә ee L — —— — ӨЙ CE «ню «инь SY —À — — aD Li сине ыы omi m ms | 


(b) Unblocked records, embedded keys 


== Data------ 1 гт Data------ 1 "каты ры Data------ 1 

[ ELEM гр pm oS ee 

|Key| [Key | | |Key| | Key | | | Key | [кеу | | 

Гос Ce eee КЫЫ КИЕК | an an 1... а Ба... 1 
A A 


L-same key-J 


(c) Blocked records, non-embedded keys 


Ce qoum cse mque quum cca pop. po 
 Кеу | Кеу | ра+а | Key] Data | Key | Data | | Кеу | Кеу | 
ЕВИНИ ЕЕ ЕРЕН т ИЕНА aie em epee enon Жаза A Sp J аа ааа 

A A 

| | 

каушн E ваше Кеў--====-==-=== 4 


foo Паға-----4 Етте” Data----- азр Data------ 1 
жаятын (сағатты pep p————pL—pe————[-———T4———4—9-——3 qup 
|Key| |Key | | | Key | | [Кеу| | | Key | | 
ПЕЕ. ПАН ЛЕТІН EEE НЕИН ТИЕРИ ЖЕННИ ТАЛЛ ИШНИ ЧЫНЫНДЫ" Қы 25 ЧЕНИН 
A A 
| | 
a a тілі ala вш Sane Кеу----------------- 3 


үтте Data------ 1 
mq perpe—p pee 
|Key|B1|R1]| | Key | | 
шанлы c ТЕКЕНИН ТАШЫ Semen | 

A A 
| | 
L----same key---J 


(£) Blocked variable length records, RKP>4 


p*9e—9- Data----- ЕН ттт Паса----- Yd. q-9-- Data----- 1 
pepe qpo-qo 9c a eee T ey en eee UT EUST 
[Кеу[в1]к1| | Key | 1811 [кеу | [511 кеу | | 
LLL... SEO 4. $b LL LL ee eb Lend 

A A 
| | 
к арк жайкады а uie quisi раа same кеу=чењанезнтееесеке=неен J 
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(д) Unblocked variable length records, RKP=4 


гграса, 


---т- --т-- 


-т 
|Key|B1|R1|Key| | 


RA GENIS TERI 80е 
^ ^ 
| | 


L-same key! 


(h) Blocked variable length records, RKP=4 


r^ D at ay г-расач (7 Data4 
n БИ ПРИ: панн арза p стер чынынын кынев ар эзер шы жю шр шш 9-1 
| Кеу |Вв1 |81 | Кеу | {R1| Кеу | IRI | Key] | 
bee eee Ph ЕНЕНЕ КЕННЕН ЕК | 
A A 
| | 
lee same Кеу------------- J 


Figure 11-13. 


If you use blocked records with 
non-embedded keys, the record size that you 
specify must include the length of the key, 
and the block size must be a multiple of 
this combined length. Otherwise, record 
size and block size refer only to the data 
in the record. (See Figure 11-145.) 


If you use records with embedded keys, 
you must include the DCB subparameter RKP 
to indicate the position of the key within 
the record. For fixed-length records the 
value specified in the RKP subparameter is 
one less than the byte number of the first 
character of the key; that is, if RKP-1, 
the key starts in the second byte of the 
record. The value assumed if you omit this 
subparameter is RKP-0, which specifies that 
the key is not embedded in the record but 
is separate from it. 


For variable-length records, the vaiue 
specified in the RKP subparameter must be 
the relative position of the key within the 
record plus four. The extra four bytes 
takes into account the 4-byte control field 
used with variable-length records. For 
this reason you must never specify RKP less 
than four. When deleting records you must 
always specify RKP equal to or greater than 
five, since the first byte of the data is 
used to indicate deletion. 


Note: For unblocked records, the key, even 
if embedded, is always recorded in a 
position preceding the actual data. 





Consequently, the RKP subparameter need not 
be specified for fixed length unblocked 
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yo cmm em ee ee ныса 
| | RKP | LRECL| BLKSIZE 
----------- %------- +------ %------------ 
| [Not zero| R | к * B 
| Blocked р--------4------ %------------- 
| records |Zero or | ВЕ + Kj B * (R+tK) 
| lomitted | | 
}-----------4-------- ------ і------------- 
| {Not zero| R | R 
| Unblocked р-------- 4------ 4------------- 
| records  |Zero or | R | R 
| jomitted | | 
----------- %--------і------1------------- 
| V-Blocked | >4 | 2R+4 | 21*(R+4) +4 
| records | | | 
----------- %--------4------1------------- 
| V-Unblocked| >4 | 2R+4 | 2R+8 
| records | | | 
----------- ------ ----- і------------- 
| V-Blocked | =4 | 2R+K+4 | 21% (R4#K+4) +4 
{ records | | | 
----------- і--------і------1------------- 
| V-Unblocked | =ц |ZR*K*4| 2R+K+8 
| records | | | 
----------- И IR MUN ИРЕ ЕЕ asa ead 
R = Size of data in record 
K = Length of keys (as specified in 

. KEYLEN subparameter) 
B - Blocking factor 


Example: For blocked records, 
non-embedded keys, 100 bytes of 
data per record, 10 records per 
block, key length - 20: 
LRECL-120,BLKSIZE-1200,RECFM-FB 

Figure 11-14. Record Format Information 

for an INDEXED Data Set 


е == € == — M e — à a ee oe 


records as the default RKP value is O0. 
Under these circumstances the key is only 


recorded once in the block. For variable 
length records the minimum RKP value is 4 
and the RKP must always be specified. 


Overflow Area 


If you intend to add records to the data 
set on a future occasion, you must request 
either a cylinder overflow area or an 
independent overflow area, or both. 


For a cylinder overflow area, include 
the DCB subparameter OPTCD=Y and use the 
subparameter CYLOFL to specify the number 
of tracks in each cylinder to be reserved 
for overflow records. A cylinder overflow 
area has the advantage of a short search 
time for overflow records, but the amount 
of space available for overflow records is 
limited, and much of the space may be 
unused if the overflow records are not 
evenly distributed throughout the data set. 


For an independent overflow area, use 
the DCB subparameter OPTCD=I to indicate 
that overflow records are to be placed in 
an area reserved for overflow records from 
all cylinders, and include a separate DD 
statement to define the overflow area. The 
use of an independent overflow area has the 
advantage:.of reducing the amount of unused 
space for overflow records, but entails an 
increased search time for overflow records. 


It is good practice to request cylinder 
overflow areas large enough to contain a 
reasonable number of additional records and 
an independent overflow area to be used as 
the cylinder overflow areas are filled. 


If the prime data area is not filled 
during creation, you cannot use the unused 
portion for overflow records, nor for any 
records subsequently added during direct 
access (although you can fill the unfilled 
portion of the last track used). You can 
reserve space for later use within the 
prime data area by writing 'dummy' records 
during creation: see 'Dummy Records,' 
below. 


Master Index 


If you want the operating system to create 
a master index for you, include the DCB 
subparameter OPTCD-M, and indicate in the 
NTM subparameter the number of tracks in 
the cylinder index you wish to be referred 
to by each entry in the master index. The 
operating system will automatically create 
up to three levels of master index, the 
first two levels addressing tracks in the 
next. lower level of master index. 


Dummy Records 


You cannot change the specification of an 
INDEXED data set after you have created it. 
Therefore, you must foresee your future 
needs where the size and location of the 
index, prime, and overflow areas are 
concerned, and you must decide whether you 
want the operating system to identify and 
Skip dummy (deleted) records. 


If you code OPTCD-L, the operating 
System will flag any record that is named 
in a DELETE statement by placing the bit 
string (8)'1'B in the first byte. 
Subsequently, during SEQUENTIAL processing 
of the data set, such records will be 
ignored; if they are forced off a track 
when the data set is being updated, they 
will not be placed in the overflow area. 
Do not specify OPTCD=L when you are using 
blocked records with non-embedded keys; if 
you do, the string (8)'1'B will overwrite 
the key of the 'deleted' record. 


You can include a dummy record in an 
INDEXED data set by setting the first byte 
of data to (8)'1'B and writing the record 
in the usual way. 


ACCESSING AN INDEXED DATA SET 


You can open an existing INDEXED data set 
for sequential or direct access, and for 
input or update in each case. Sequential 
input allows you to read the records in 
ascending key sequence, and in sequential 
update you can read and rewrite each record 
in turn; during sequential access, if 
OPTCD-L was specified when the data set was 
created, dummy records are ignored. Using 
direct input, you can read records using 
the READ statement, and in direct update 
you can read or delete existing records or 
add new ones. 


Note that only one DIRECT UPDATE file 
should be open at any one time to add 
records to an INDEXED data set. Further, 
if two files are open simultaneously, one 
for sequential and one for direct 
processing of the same INDEXED data set, 
some records might become inaccessible to 
the SEQUENTIAL file due to changes to track 
indexes made for the DIRECT file when it 
adds records to the data set. The records 
that may be inaccessible are those added to 
the INDEXED data set in the following ways: 


1. Records added to the end of the data 
set. 


2. Records written directly into the 
overflow area of the data set. 
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| ~----------------------------------7----------------- = ------7-- ----------------------- 1 
| When required | What you must state | Parameters | 
аас nn fn nnn nnn nnn nnn nnn nnn nn nnn 1 
| | Name of data set | DSNAME= | 
[Always -------------------------.  ------------------------ 4 
| | Disposition of data set | DISP= | 
oU к-——-——————————- %------------------------- 1 
| | Data Set Organization | DCB=DSORG=IS | 
}---~-------------------------------}------------------------- һ------------------------- 1 
| | Input device | UNIT- or VOLUME-REF- 1 
[ТЕ data set not cataloged a ee ae ae me ae ae a a a aee e an ae a aee ae ae a a a oee mee ee e aee e sae e a me e e me ae e e e e e a e e 2 1 
| | Volume serial number | VOLUME=SER= | 
————————————— —— нды ы о gs XPRESS ыы Жы ты chee UC TRE J 


Figure 11-15. 


3. Records written on the overflow area 
when forced out of the prime data area 
by records being added to the prime 
data area. 


TO access an existing INDEXED data set, 
you must identify it to the operating 
System in one, two or three DD statements; 
the DD statements must correspond with 
those used when the data set was created. 
The following paragraphs indicate the 
essential information you must include in 
each DD statement, and Figure 11-15 
summarizes this information. Appendix B 
describes the parameters referred to, and 
. tells you how to code them. 


If the data set is cataloged, you need 
supply only the following information in 
each DD statement: 


1. The name of the data set (DSNAME 
parameter). The operating system will 
locate the information that describes 
the data set in the system catalog 
and, if necessary, will request the 
operator to mount the volume that 
contains it. 


2. Confirmation that the data set already 
exists (DISP parameter). 


3. confirmation that the data set 
organization is INDEXED (DSORG 
subparameter of the DCB parameter). 


If the data set is not cataloged, you 
must, in addition, specify the device that 
will process the data set and give the 
serial number of the volume that contains 
it (UNIT and VOLUME parameters). 


Note: If you add a new record to a data set 
whose overflow areas are already full, the 
new record will not be added to the data 
set and the file will remain unchanged; the 
KEY condition will be raised. To reduce 
the likelihood of this occurrence, ensure 
that your overflow areas are sufficiently 
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large, and reorganize the data set at 
regular intervals (see below). 


REORGANIZING AN INDEXED DATA SET 


It is necessary to reorganize an INDEXED 
data set periodically because the addition 
of records to the data set results in an 
increasing number of records in the 
overflow area. Therefore, even if the 
overflow area does not eventually become 
full, the average time required for the 
direct retrieval of a record will increase. 
The frequency of reorganization depends on 
how often the data set is updated, on how 
much storage is available in the data set, 
and on your timing requirements. 


Reorganizing the data set also 
eliminates records that are marked as 
'deleted,' but are still present within the 
data set. 


There are two ways to reorganize an 
INDEXED data set: 


1. Read the data set into an area of main 
storage or onto a temporary 
CONSECUTIVE data set, and then 
recreate it in the original area of 
auxiliary storage. 


2. Read the data set sequentially and 
write it into a new area of auxiliary 
storage; you can then release the 
original auxiliary storage. 


EXAMPLES OF INDEXED DATA SETS 


Figure 11-16 illustrates the creation of a 
simple INDEXED data set. The data set 
contains a telephone directory, using the 
subscribers' names as keys to the telephone 
numbers. : 


//4002РСЕХ JOB 


//CREATE EXEC PLiLFCLG,PARM.LKED-'LIST' | 
//PLAL.SYSIN DD * 
TELNOS: PROC OPTIONS(MAIN); 
‘DCL DIREC FILE RECORD SEQUENTIAL KEYED ENV(INDEXED), 
CARD CHAR(80), 
NAME CHAR(20) DEF CARD, 
NUMBER CHAR(3) DEF CARD POS(21), 
IOFIELD CHAR(3); 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(DIREC) OUTPUT; 
NEXTIN: GET FILE(SYSIN) EDIT(CARD)(A(80)); 
IOFIELD-NUMBER; | 
WRITE FILE(DIREC) FROM(IOFIELD) KEYFROM(NAME) ; 


GO TO 
FINISH: CLOSE 


NEXTIN; | 
FILE(DIREC) ; 


END TELNOS; 


/* 


//GO.DIREC DD UNIT=2311, SPACE=(CYL,1) , DCB= (RECFM=F, BLKSI ZE=3,, DSORG=IS, 


11 KEYLEN=20, OPTCD=LIY ,CYLOFL=2) , DSNAME=TELNO( INDEX) , 
"2 DISP- (NEW, KEEP) , VOLUME=SER=D1 86 

1 DD UNIT=2311, SPACE= (CYL, 4) , DCB=DSORG=IS, DSNAME=TELNO (PRIME), 
// DISP- (NEW,KEEP) , VOLUME=SER=D1 86 

/” DD UNIT=2311, SPACE= (CYL, 4) , DCB=DSORG=IS, 

// DSNAME=TELNO(OVFLOW) , DISP= (NEW, KEEP) , VOLUME=SER=D186 ` 
//GO.SYSIN DD * 

ACTION,G. 162 

BAKER,R. 152 

BRAMLEY, O.H. 248 

CHEESEMAN, L. 141 

CORY,G. 336 

ELLIOTT, D. 875 

FIGGINS,S. 413 

HARVEY, C. D.W. 205 

HASTINGS, G.M. 391 

KENDALL, J.G. 294 

LANCASTER ,W.R. 624 

MILES, R. 233 

NEWMAN ,M.W. 450 

PITT,W.H. 515 

ROLF,D.E. 114 

SHEERS,C.D. 241 

SUTCLIFFE,M. 472 

TAYLOR,G.C. 407 

WILTON,L.W. 404 

WINSTONE, E.M. 307 

/% 


Figure 11-16. 


Тһе program 


Creating an INDEXED Data Set 


in Figure 11-17 updates this 


data set and prints out its new contents. 


The input data 
the operations 


includes codes to indicate 
required: 


: Add a new record 


C: Change 
D: Delete 


an existing record 
an existing record 


REGIONAL Data Sets 


A data set with REGIONAL organization can 
exist only on a direct-access device. A 


REGIONAL data set is divided into regions 
that are numbered consecutively from zero. 
The following paragraphs briefly describe 
the three types of REGIONAL organization. 


In a REGIONAL(1) data set, a region is a 
record. Each record in the data set is 
identified by its region number, an 
unsigned decimal integer not exceeding 
16777215. Region numbers start from 0 at 
the beginning of the data set. There are 
no recorded keys. 
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//JOHLPGEX JOB 
//COLEEX EXEC PLILFCLG, PARM. PLIL=' SIZE=999999' PARM. LKED=" LIST’ 
//PLIL.SYSIN рр * 
DIRUPDT: PROC OPTIONS (МАІМ); 
DCL DIREC FILE RECORD KEYED ENV(INDEXED), 
NUMBER CHAR(3), 
NAME CHAR(20), 
CODE CHAR(1); 
ON ENDFILE(SYSIN) GO TO PRINT; 
ON KEY(DIREC) BEGIN; : 
IF ONCODE=51 THEN PUT FILE(SYSPRINT) SKIP EDIT 
("ЧОТ FOUND: ', МАМЕ) (A(15),A); 
IF ONCODE=52 THEN PUT FILE(SYSPRINT) SKIP EDIT 
("DUPLICATE: ', NAME) (A(15),A); 
END; 
OPEN FILE(DIREC) DIRECT UPDATE; 
NEXT: GET FILE(SYSIN) EDIT(NAME,NUMBER, CODE) (A(20) ,A(32,X(56) ,A(1)); 
IF CODE-'A' THEN WRITE FILE(DIREC) FROM(NUMBER) KEYFROM(NAME) ; 
ELSE IF  CODE-'C' THEN REWRITE FILE(DIREC) FROM (NUMBER) 


KEY (NAME) ; 


ELSE IF CODE-'D' THEN DELETE FILE(DIREC) KEY(NAME); 
ELSE PUT FILE(SYSPRINT) SKIP EDIT('INVALID CODE:', 
NAME) (A(15),A); 
GO TO NEXT; 
PRINT: CLOSE FILE(DIREC); 
PUT FILE(SYSPRINT) PAGE; 
OPEN FILE(DIREC) SEQUENTIAL INPUT; 
ON ENDFILE(DIREC) GO TO FINISH; 
NEXTIN: READ FILE(DIREC) INTO (NUMBER) KEYTO (МАМЕ); 
PUT FILE(SYSPRINT) SKIP EDIT(NAME,NUMBER) (A); 
GO TO NEXTIN; 
FINISH: CLOSE FILE(DIREC); 
| END DIRUPDT; 
рж 


//GO.DIREC DD DSNAME=TELNO (INDEX) ,DISP= (OLD, KEEP) , UNIT=2311, 
/” VOLUME=SER=D186 , DCB=DSORG=IS 

// DD DSNAME-TELNO (PRIME) , DISP= (OLD, KEEP) , UNIT=2311, 
/” VOLUME-SER-D186 , DCB=DSORG=IS 

// DD DSNAME=TELNO(OVFLOW) , DISP=(OLD, KEEP) , UNIT=2311, 
// VOLUME-SER-D186.DCB-DSORG-IS 

//GO.SYSIN DD * 

NEWMAN ,M.W. 516450 

GOODFELLOW,D.T. 889 

MILES, R. 233 

HARVEY, C. D.W. 209 

BARTLETT, S.G. 183 

CORY, G. 336 

READ, K.M. 001 

PITT,W.H. 515 

ROLF, D.F. 114 

ELLIOTT, D. 291875 

HASTINGS, G.M. 391 

BRAMLEY, O.H. 439248 

/* 


e Figure 11-17. Updating an INDEXED Data Set 
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REGIONAL(2) organization is similar to 
REGIONAL(1), but differs in that a key is 
recorded with each record. The record key 
is a string of not more than 255 
characters. A record is written in the 
first vacant space after the beginning of 
the track that contains the region number 
specified in the WRITE statement; for 
retrieval, the search for a record begins 
on the track that contains the region 
number specified in the READ statement, and 
may continue through the data set until the 
record has been found. | 


A REGIONAL(3) data set is similar in 
organization and in operation to a 
REGIONAL(2) data set, with the difference 
that each region corresponds to one track 
of the direct-access device and is not a 
record position. Therefore, depending on 
the record size, a region can contain one 
or more records. 


The major advantage of REGIONAL 
organization over other types of data set 
organization is that it allows you to 
control the relative placement of records; 
by judicious programming, you can optimize 
record access in terms of device 
capabilities and the requirements of 
particular applications. REGIONAL (1) 
organization is most suited to applications 
where there will be no duplicate region 
numbers, and where most of the regions will 
be filled (obviating wasted space in the 
data set).  REGIONAL(2) and REGIONAL(3) are 
more appropriate where records are 
identified by numbers that are thinly 
distributed over a wide range. You can 
include in your program an algorithm that 
derives the region number from the number 
that identifies a record in such a manner 
as to optimize the use of space within the 
data set; duplicate region numbers will 
occur, but their only effect might be to 
lengthen the search time for records with 
duplicate region numbers. 


REGIONAL(1) and REGIONAL(2) data sets 
can contain only F-format unblocked 
records, but a REGIONAL(3) data set can 
have unblocked records of all three 
formats, F, V, and U. The examples at the 
end of this section illustrate typical 
applications of all three types of REGIONAL 
organization. 


CREATING A REGIONAL DATA SET 


You can use either sequential or 
direct-access to create a REGIONAL data 
set. 


In sequential creation, you must present 
records in order of ascending region 
numbers; for REGIONAL(1) and REGIONAL(2) 
the region number for each record must 
exceed that of the preceding record since 
each region can contain only one record. 

In all cases, dummy records (identified by 
(8)'1'B in the first byte) are placed 
automatically in regions whose numbers are 
skipped. 


For direct creation, one of the PL/I 
library subroutines formats the whole of 
the data set when you open the 
corresponding file. For REGIONAL(1) and 
(2), and for REGIONAL(3) with F-format 
records, formatting involves filling the 
data set with dummy records; for 
REGIONAL(3) with U-format or V-format 
records, a record, called the capacity 


record, is written at the start of each 


track to indicate an empty track. During 
creation, you can present records in any 
order. 


Essential Information 


In general, all the information given above 
for the creation of a CONSECUTIVE data set 
on a direct-access device applies equally 
to a REGIONAL data set. The following 
paragraphs discuss only the constraints 
imposed by the use of REGIONAL organization 
and the additional information you must 
supply or may want to give. Figure 11-18 
summarizes all the essential parameters 
required in a DD statement for the creation 
Of a REGIONAL data set, and Figure 11-19 
lists the DCB subparameters you will need 
to use. Appendix B contains a description 
of all the parameters of the DD statement. 


You cannot place a REGIONAL data set on 
a system output (SYSOUT) device. 


Chapter 11: Record-Oriented Transmission 141 


(ттт етер оеш е аараан канааа шышы сш печ E D M арша жааш Ба анын E за аааз аа ааа асаа ааа nOn ран 1 
| Parameters of DD Statement | 
р----------------------------------- т------------------------- ------------------------1 
| When required | What you must state | Parameters | 
me mm a rn err nt an ct cr hr a re te re a ee eases 
| | Output device | UNIT= or VOLUME=REF= | 
| |-+------------------------}------------------------- 1 
| | Storage space required | SPACE= [7 
[Always | | | | 1 ^  p--------------—---------- 4------------------------- 1 
| | Data control block | | 
| | information: refer to | DCB= | 
| | Figure 11-19 | | 
}----------------------------------- 4---—-—----- ------------- і%------------------------ 1 
[Data set to be used in another job | | | 
Jstep but not required in another | Disposition | DISP= | 
| job | | | 
----------------------------------- %-------------------------4-------------------------1 
|Data set to be kept after end | Disposition | DISP- | 
|оҒ job }|------------------------- 1------------------------- 1 
| | Name of data set | DSNAME= | 
}~-~-------------------------------- %------------------------- %------------------------- 1 
[Data set to be on particular | Volume serial number | VOLUME=SER= or | 
| volume | | VOLUME=REF= | 
Бан сас ыы сылы салысы ша ыз тен іссдасгс самасын Т із еда ды с сы жанаша салы тыйды. 1 


Figure 11-18. 


In the DCB parameter, you must always 
state the data set organization (DSORG=DA). 
For REGIONAL(2) and REGIONAL(3), you must 
also state the length of the recorded key 


(KEYLEN): refer to IBM System/360 Operating 


System: PL/I (F) Language Reference Manual 
for a description of how the recorded key 


is derived from the source key supplied in 
the KEYFROM option. 


Creating a REGIONAL Data Set: Essential Parameters of DD Statement 


For REGIONAL(2) and REGIONAL(3), if you 
want to restrict the search for space to 
add a new record, or the search for an 
existing record, to a limited number of 
tracks beyond the track that contains the 
specified region, use the LIMCT 
subparameter of the DCB parameter. 
omit this parameter, the search will 
continue to the end of the data set, and 
then from the beginning back to th 
Starting point. i 


If you 


a mnm eee an ae eee re ee ae M e dom айынан ышын 1 
| DCB Subparameters | 
}-------------------------—- т--------------------------------------|-------------------- 1 
| | To specify | Subparameters | 
== %-------------------------------------1-------------------- ) 
| | | RECFM=F or | 
| {Record format+ | RECFM=V REGIONAL(3) | 
| | | or only | 
| | | RECFM=U | 
|These аге always required р--------------------------------------р-------------------- 1 
| {Block sizet | BLKSI ZE= | 
| --------------------------------------%--------------------і 
| [Data set organization | DSORG=DA | 
Do 0 0 0 ---------------------------------і-------------------- 1 
| |Кеу length (REGIONAL(2) and (3) only) | KEYLEN= | 
-Р---------------------------|--------------------------------------і-------------------- | 
| [Limited search for a record or space | | 
| {to add a record (REGIONAL(2) and (3) |LIMCT= | 
|These are optional Jonly) | | 
MEM 0-------------------------------- %-------------------- 1 
| [Number of data management buffers? | BUFNO- | 
p----—--—-------------------- rc Kn uer Rv ар ааа oe ake eee NCC EMT ie 1 
|*Alternatively, can be specified in ENVIRONMENT attribute. | 
cC REN LEER pcc KDE кен Eco DRUNK dp MM JE RET UN LER S NOR S 1 


Figure 11-19. 
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DCB Subparameters for REGIONAL Data Set 


ACCESSING A REGIONAL DATA SET 


You can open an existing REGIONAL data set 
for sequential or direct access, and for 
input ок update in each case. Using 
sequential input with a REGIONAL(1) data 
set you can read all the records in 
ascending region-number sequence, and in 
sequential update you can read and rewrite 
each record in turn. Sequential access of 
a REGIONAL(2) or REGIONAL(3) data set will 
give you the records in the order in which 
they appear in the data set, which is not 
necessarily region-number order. Using 
direct input, you can read any record by 
supplying its region number and, for 
REGIONAL(2) and REGIONAL(3), its recorded 
key; in direct update, you can read or 
delete existing records or add new ones. 
"The operating system ignores dummy records 
in a.REGIONAL(2) or REGIONAL(3) data set; 
but a program that processes a REGIONAL(1) 
data set must be prepared to recognize 
dummy records. 


TO access a REGIONAL data set, you must 


identify it to the operating system in a DD 


Statement. The following paragraphs 
indicate the minimum information you must 
include in the DD statement; they are 
summarized in Figure 11-20. Appendix B 
describes the parameters referred to and 
explains how to code them. 


If the data set is cataloged, you need 
supply only the following information in 
your DD statement: 


1. The name of the data set (DSNAME 
parameter). The operating system will 
locate the information that describes 
the data set in the system catalog 
and, if necessary, will request the 
operator to mount the volume that 
contains it. 


2. Confirmation that the data set already 
exists (DISP parameter). 


If the data set is not cataloged, you 
must, in addition, specify the device that 
will read the data set and give the serial 
number of the volume that contains the data 
set (UNIT and VOLUME parameters). 


| Parameters of DD Statement | 


nn a et et ee 1 
| When required | What you must state | Parameters | 
Б-----------------------------------4-------------------------4------------------------- 1 
| | Name of data set | DSNAME- | 
| Always Ғ-------------------------4------------------------- 1 
| | Disposition of data | DISP= | 
| | set | | 
Б-----------------------------------4-------------------------4------------------------- 1 
[. | Input device | UNIT= or VOLUME=REF= | 
|If data set not cataloged | р------------------------- I--—----------—---—---——------ 1 
| | Volume serial number | VOLUME-SER- | 
Бына NR шыш Rr M UA UU ERR EN да Ас К METERS NORMEN NOCET pd: К DUM CF 1 


Figure 11-20. 


Accessing a REGIONAL Data Set: 


Essential Parameters of DD Statement 
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EXAMPLES OF REGIONAL DATA SETS 


REGIONAL(1) Data Sets 





Figures 11-21 and 11-22 illustrate the 
creation and updating of a REGIONAL(1) data 
set. 


Figure 11-21 uses the same data as 
Figure 11-16, but interprets it ina 
different ways the data set is effectively 
a list of telephone numbers with the names 
of the subscribers to whom they are 
allocated. The telephone numbers 
‘correspond with the region numbers in the 
data set, the data in each occupied region 
being a subscriber's name. The SPACE 
parameter of the DD statement requests 
space for 1000 twenty-byte records (i.e., 
for 1000 regions); since space is never 
allocated in units of less than one track 
and one 2311 track can accommodate 45 
twenty-byte records, there will in fact be 
1035 regions. Note that there are no 
recorded keys in a REGIONAL(1) data set. 


The data read by the program in Figure 
11-22 is identical with that used in Figure 
11-17, and the codes are interpreted in the 
same way. Like Figure 11-17, this program 
updates the data set and then lists its 
contents. Note that before each new or 
updated record is written the existing 
record in the region is tested to ensure 
that it is a dummy; this is necessary 
because a WRITE statement can overwrite an 
existing record in a REGIONAL(1) data set 
even if it is not a dummy. Similarly, 
during the sequential reading and printing 
of the contents of the data set, each 
record is tested and dummy records are not 
printed. 


REGIONAL(2) Data Sets 


Figures 11-23, 11-24, and 11-25 illustrate 
the use of REGIONAL(2) data sets. The 
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programs in these figures perform the same 
functions as those given for REGIONAL(3), 
with which they can usefully be compared. 


The figures depict a library processing 
scheme, in which loans of books are 
recorded and reminders are issued for 
overdue books. Two data sets, STOCK2 and 
LOANS2 are involved.  STOCK2 contains 
descriptions of the books in the library, 
and uses the ü-digit book reference numbers 
as recorded keys; a simple algorithm is 
used to derive the region numbers from the 
reference numbers. (It is assumed that 
there are about 1000 books, each with a 
number in the range 1000-9999.)  LOANS2 
contains records of books that are on loan; 
each record comprises two dates, the date 
of issue and the date of the last reminder. 
Each reader is identified by a 3-digit 
reference number, which is used as a region 
number in LOANS2; the reader and book 
numbers are concatenated to form the 
recorded keys. 


In Figure 11-23, the data sets STOCK2 
and LOANS2 are created. The file LOANS, 
which is used to create the data set; 
LOANS2, is opened for direct output merely 
to format the data set; the file is closed 
immediately without any records being 
written onto the data set. It is assumed 
that the number of books on loan will not 
exceed 100; therefore the SPACE parameter 
in the DD statement that defines LOANS2 
requests 100 blocks of 19 bytes (12 bytes 
of data and a 7-byte key: see Figure 
11-24). Direct creation is also used for 
the data set STOCK2 because, even if the 
input data is presented in ascending 
reference number order, identical region 
numbers might be derived from successive 
reference numbers. 


//4010РСЕХ JOB 


//COLEEX EXEC PLILFCLG, PARM. PLIL=' SIZE=999999', PARM. LKED='LIST' 


//PLIL.SYSIN DD ж 


CRR1: PROC OPTIONS (МАІМ); 
DCL NOS FILE RECORD OUTPUT DIRECT KEYED ENV(REGIONAL(1)), 
CARD CHAR(80), 
NAME CHAR(20) DEF CARD, 
NUMBER CHAR(3) DEF CARD POS(21), 
IOFIELD CHAR(20); 
ON ENDFILE (SYSIN) GO TO FINISH; 
OPEN FILE(NOS); 
NEXT: GET FILE(SYSIN) EDIT(CARD) (A(80)); 


IOFIELD-NAME; 


WRITE FILE(NOS) FROM(IOFIELD) KEYFROM(NUMBER) ; 


GO TO NEXT; 
FINISH: CLOSE FILE(NOS); 


END CRR1; 
/* 
//GO.NOS DD UNIT=2311, SPACE=(20,1000) , DCB= (RECFM-F,BLKSIZE-20, 
^/ DSORG=DA) , DISP= (NEW, KEEP , DELETE) , DSNAME=NOS, 
// VOLUME=SER=D186 
//GO.SYSIN DD * 
ACTION,G. | 162 
BAKER, В. 152 
BRAMLEY,O.H. 248 
CHEESMAN, L. 141 
CORY,G, 336 
ELLIOTT,D. 875 
FIGGINS,E.S. 413 
HARVEY,C.D.W. 205 
HASTINGS ,G.M. 391 
KENDALL, Ј.С. 294 
LANCASTER, W.R. 624 
MILES,R. 233 
NEWMAN ,M.W. 450 
PITY, WoH. 515 
ROLF,D.E. 114 
SHEERS,C.D. 241 
SUTCLIFFE ,M. 472 
TAYLOR ,G.C. 407 
WILTON, L.W. 404 
WINSTONE; E.M. 307 
/* 


Figure 11-21. 


Figure 11-24 illustrates the updating of 
the data set LOANS2. Each item of input 
data, read from a punched card, comprises a 
book number, a reader number, and a code to 
indicate whether it refers to a new issue 
(I), a returned book (R), or a renewal. (А). 
The position of the reader number on the 
card allows the 8-character region number 
to be derived directly by overlay defining. 
The DATE built-in function is used to 
obtain the current date. This date is 
written in both the issue-date and 
reminder-date portions of a new record or 
an updated record. 


"he program in Figure 11-25 uses а 
sequential update file (LOANS) to process 
the records in the data set LOANS2, and a 
direct input file (STOCK) to obtain the 
book description from the data set STOCK2 
for use in a reminder note. Each record 


Creating a REGIONAL(1) Data Set 


from LOANS2 is tested to see whether the 
last reminder was issued more than a month 
ago; if necessary, a reminder note is 
issued and the current date is written in 
the reminder-date field of the record. 


REGIONAL(3) Data Sets 


Figure 11-26, 11-27, and 11-28, which 
illustrate the use of REGIONAL(3) data 
sets, are similar to the REGIONAL(2) 
figures, above; only the important 
differences are discussed here. 


TO conserve space in the data set 
STOCK3, U-format records are used. In each 
record, the author's name and the title of 
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//4042РСЕХ JOB 


//COLEEX EXEC РЬ1ЪЕС1С,РАЕМ.РЇ111=*512Е=999999*®,РАВМ.ЬКЕО=*115Т“* 


//PLiL.SYSIN DD ж 
` ACR1: PROC OPTIONS(MAIN); 


DCL NOS FILE RECORD KEYED ENV(REGIONAL(1)), 


NAME CHAR(20), 
(NEWNO, OLDNO) CHAR(3), 
CODE CHAR(1), 
IOFIELD CHAR(20), 
BYTE1 CHAR(1) DEF IOFIELD; 
ON ENDFILE(SYSIN) GO TO PRINT; 
OPEN FILE(NOS) DIRECT UPDATE; 
NEXT: 
(A(20),2 A(3),X(53),A(1)); 
IF CODE-'A' THEN GO TO RITE; 
ELSE IF CODE-'C' THEN DO; 
DELETE FILE(NOS) KEY(OLDNO); 
GO TO RITE; 
END; 


GET FILE(SYSIN) EDIT(NAME,NEWNO,OLDNO,CODE) 


ELSE IF CODE-'D' THEN DELETE FILE(NOS) KEY(OLDNO); 
ELSE PUT FILE(SYSPRINT) SKIP EDIT('INVALID CODE:', 
NAME) (A(15),A); 


GO TO NEXT; 
RITE: 


READ FILE(NOS) KEY(NEWNO) INTO (IOFIELD); 


IF UNSPEC(BYTE1)-(8)'1'B THEN WRITE FILE(NOS) KEYFROM(NEWNO) 


FROM(NAME) ; 
ELSE PUT FILE(SYSPRINT) SKIP EDIT 


(*DUPLICATE: ' , NAME) (A(15),A); 


GO TO NEXT; 

CLOSE FILE(NOS) ; 

PUT FILE(SYSPRINT) PAGE; 

OPEN FILE(NOS) SEQUENTIAL INPUT; 
ON ENDFILE(NOS) GO TO FINISH; 


PRINT: 


NEXTIN: READ FILE(NOS) INTO(IOFIELD) KEYTO(NEWNO) ; 
IF UNSPEC(BYTE1)-(8)'1'B THEN GO TO NEXTIN; 
ELSE PUT FILE(SYSPRINT) SKIP EDIT (NEWNO,IOFIELD) (A(5),A); 


GO TO NEXTIN; 
FINISH: CLOSE FILE(NOS) ; 
END ACR1; 
/% 


//GO.NOS DD DSNAME=NOS, DISP=(OLD, KEEP) , UNIT=2311, VOLUME=SER=D186 


//GO.SYSIN DD * 


NEWMAN,M.W. 516450 
GOODFELLOW,D.T. 889 
MILES,R. 233 
HARVEY ,C.D.W. 209 
BARTLETT,S.G. 183 
CORY,G. 336 
READ,K.M. 001 
PITT,W.H. 515 
ROLF,D.F. 114 
ELLIOTT,D. 472875 
HASTINGS, G.M. 391 
BRAMLEY,O.H. 439248 
/ Ж 


Figure 11-22. 


the book are concatenated in a single 
character string, and the lengths of the 
two parts of the string are written as part 
of the record. CONTROLLED storage is used 
for the structure in which the records are 
built because varying-length strings are 
not permitted by the PL/I (F) compiler in 
structures that are referred to in 
record-oriented transmission statements. 
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Accessing a REGIONAL(1) Data Set 


The average record (including the recorded 
key) is assumed to be 60 bytes; therefore 
the average number of records per track 
(i.e., per region) is 25, and there will be 
40 regions. 


In Figure 11-26, the data set STOCK3 is 
created sequentially; duplicate region 


7//2011РСЕХ JOB 


//COLEEX EXEC PL1ILFCLG, PARM. PLiL-'SIZE-999999',PARM. LKED-'LIST' 


//PLIL.SYSIN DD ж 
CRR2: PROC OPTIONS (MAIN); 


DCL (LOANS,STOCK) FILE RECORD KEYED ENV(REGIONAL(2)), 


NUMBER CHAR (4), 
1 BOOK, 
2 AUTHOR CHAR(25), 
2 TITLE CHAR(50), 
2 QTY FIXED DEC(3), 
INTER FIXED DEC(5), 
REGION CHAR (8); 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(LOANS) DIRECT OUTPUT; 
CLOSE FILE(LOANS); 
OPEN FILE(STOCK) DIRECT OUTPUT; 
NEXT: 
INTER= (NUMBER-1000)79; 
REGION-INTER; 


GET FILE(SYSIN) LIST(NUMBER, BOOK) ; 


WRITE FILE(STOCK) FROM(BOOK) KEYFROM(NUMBER| | REGION) ; 


GO TO NEXT; 
CLOSE FILE(STOCK) ; 
END CRR2; 


FINISH: 


/ ж 


//GO. LOANS DD UNIT-2311,SPACE- (19,100) ,DCB=(RECFM=F, BLKSIZE=12, 
DSORG=DA, KEYLEN=7) , DISP= (NEW, KEEP, DELETE) , DSNAME=LOANS2, 


/” 


/” VOLUME-SER-D186 


//GO.STOCK DD UNIT-2311,SPACE- (81, (100, 20) ) , DCB=(RECFM=F , BLKSIZE=77, | 


// 
7” 
//GO.SYSIN DD ж 


VOLUME-SER-D186 


DSORG=DA, KEYLEN=4), DISP= (NEW, KEEP, DELETE) RES. 


‘THE HEROIC DEEDS OF GARGANTUA AND PANTAGRUEL' 1 


'1015' 'W.H.AINSWORTH' 'THE ADMIRABLE CRICHTON! 1 
"1214" 'L.CARROLL' ‘THE HUNTING OF THE SNARK‘ 1 
"3079" 'G.FLAUBERT' ‘MADAME BOVARY' 1 

73083" 'V.M.HUGO' 'LES MISERABLES' 2 

'3085' 'J.K.JEROME' ‘THREE MEN IN A BOATS 2 

"4295" 'W.LANGLAND' ‘THE BOOK CONCERNING PIERS THE PLOWMAN' 1 
'5998' 'W.SHAKESPEARE' 'MUCH ADO ABOUT NOTHING' 3 
"6591" 'F.RABELAIS' 

'8362' 'H.D.THOREAU' 'WALDEN, OR LIFE IN THE WOODS' 1 
'9765' 'H.G.WELLS' 'THE TIME MACHINE' 3 

/* 

Figure 11-23. Creating а REGIONAL(2) Data Set 


numbers are acceptable since each region 
can contain more than one record. 


In Figure 11-27, the region number for 
the data set LOANS3 is obtained simply by 
testing the reader number; there are only 
three regions, since a 2311 track can hold 
36 nineteen-byte records. 


м 


The only notable difference between 
Figure 11-28 and the corresponding 
REGIONAL(2) figure is in the additonal 
processing required for the analysis of the 
records read from the data set STOCK3. The 
records are read into a varying-length 
character string and a based structure is 
overlaid on the string so that the data in 
the record can be extracted. 


Chapter 11: Record-Oriented Transmission 147 


//3043PGE1 JOB 
//COLEEX EXEC PL1LFCLG,PARM.PL1L-'SIZE-99999',PARM.LKED-'LIST' 
//PLIL.SYSIN DD * 
DUR2: PROC OPTIONS (МАІМ); 
DCL 1 RECORD,2(ISSUE,REMINDER) CHAR(6), 
SYSIN FILE RECORD INPUT SEQUENTIAL, 
LOANS FILE RECORD UPDATE DIRECT KEYED ENV(REGIONAL(2)), 
CARD CHAR(80), 
BOOK CHAR(4) DEF CARD, 
READER CHAR(3) DEF CARD POS(10), 
CODE CHAR(1) DEF CARD РО5(20), 
REGION CHAR(8) DEF CARD POS(5); 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(SYSIN),FILE(LOANS); 
ISSUE,REMINDER-DATE; 
NEXT: READ FILE(SYSIN) INTO(CARD); 
IF CODE-'I' THEN WRITE FILE(LOANS) FROM(RECORD) 
KEYFROM (READER | | BOOK | | REGION) ; 
ELSE IF CODE-'R' THEN DELETE FILE(LOANS) 
KEY (READER | | BOOK | | REGION) ; 
ELSE IF CODE-'A' THEN REWRITE FILE(LOANS) FROM(RECORD) 
KEY (READER | | BOOK | | REGION); 
ELSE PUT FILE(SYSPRINT) SKIP LIST 
(‘INVALID CODE: ' , BOOK, READER); 
GO TO NEXT; 
FINISH: CLOSE FILE(SYSIN),FILE(LOANS); 
END DUR2; 
/* 
//GO.LOANS DD DSNAME=LOANS2,DISP=(OLD, KEEP) , UNIT=2311, VOLUME=SER=D18 6 
//GO.SYSIN DD * 


3517 095 X 
5999 003 A 
3083 091 R 
1214 049 I 
/ж 


Figure 11-24. REGIONAL(2) Data Sets: Direct Update 
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//208ЗРСЕЗ JOB 
//COLEEX EXEC PLILFCLG, PARM. PL1IL=' SIZE=999999!', PARM. LKED='LIST‘ 
//PLIL.SYSIN DD ж 
SUR2: PROC OPTIONS(MAIN); 
DCL LOANS FILE RECORD SEQUENTIAL UPDATE KEYED ENV(REGIONAL(2)), 
STOCK FILE RECORD DIRECT INPUT KEYED ENV(REGIONAL(2)), 
(TODAY, LASMTH) CHAR(6), 
YEAR PIC '99' DEF LASMTH, | 
MONTH PIC '99' DEF LASMTH POS(3), 
1 RECORD, 2( ISSUE, REMINDER) CHAR(6), : 
LOANKEY CHAR(7), 
READER CHAR(3) DEF LOANKEY, 
BKNO CHAR(4) DEF LOANKEY POSUN, 
INTER FIXED DEC (5), 
REGION CHAR(8), 
1 BOOK, 
2 AUTHOR CHAR(25), 
2 TITLE CHAR(50), 
2 QTY FIXED DEC(3); 
TODAY, LASMTH=DATE ; 
IF МОМТН-"01" THEN DO; 
MONTH-'12*'; 
YEAR-YEAR-1; 
END; 
ELSE MONTH-MONTH-1; 
OPEN FILE(LOANS),FILE(STOCK); 
ON ENDFILE(LOANS) GO TO FINISH; 
NEXT: READ FILE(LOANS) INTO(RECORD) KEYTO(LOANKEY) ; 
IF REMINDER<LASMTH THEN DO; 
REMINDER-TODAY; 
REWRITE FILE(LOANS) FROM(RECORD); 
INTER- (BKNO-1 000) 7/9; 
REGION-INTER; 
READ FILE(STOCK) INTO(BOOK) KEY (ВКМО | | REGION) ; 
PUT FILE(SYSPRINT) SKIP(4) EDIT (READER, AUTHOR, TITLE) 
(A, SKIP(2)); 
END; 
GO TO NEXT; 
FINISH: CLOSE FILE(LOANS) , FILE(STOCK) ; 
END SUR2; 
/* 
//GO.LOANS DD DSNAME=LOANS2, DISP= (OLD, KEEP) , UNIT=2311, VOLUME=SER=D186 
//GO.STOCK DD DSNAME=STOCK2, DISP= (OLD, KEEP) , UNIT=2311, VOLUME=SER=D186 


Figure 11-25.  REGIONAL(2) Data Sets: Sequential Update and Direct Input 
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//JOO6PGEX JOB 
//COLEEX EXEC PL1ILFCLG, PARM. PLIL=" SIZE=999999* PARM.LKED-'LIST' 
//PLIL.SYSIN DD ж 
CRR3: PROC ОРТІОМ5 (МАІМ); 
DCL (LOANS,STOCK) FILE RECORD KEYED ENV(REGIONAL(3)), 
1 CARD, 
2 NUMBER CHAR(4), 
2 AUTHOR CHAR(25) VAR, 
2 TITLE CHAR(50) VAR, 
2 ОТҮ1 FIXED DEC(3), 
(L1,L2,X) FIXED DEC(3), 
1 BOOK CTL, 
2 (13,14) FIXED DEC(3), 
2 QTY2 FIXED DEC(3), 
2 DESCN CHAR(X), 
INTER FIXED DEC(5), 
REGION CHAR(8); 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(LOANS) DIRECT OUTPUT; 
CLOSE FILE(LOANS); 
OPEN FILE(STOCK) SEQUENTIAL OUTPUT; 
NEXT: GET FILE(SYSIN) LIST(CARD); 
L1-LENGTH (AUTHOR) ; 
L2=LENGTH (TITLE); 
X=L1+L2; 
ALLOCATE BOOK; 
L3=L1; 
L4=L2; 
ОТҮ2-ОТУ1; 
DESCN=AUTHOR | | TITLE; 
INTER=(NUMBER-1000) /225; 
REGION-INTER; 
WRITE FILE(STOCK) FROM(BOOK) KEYFROM(NUMBER| | REGION) ; 
FREE BOOK; 
GO TO NEXT; 
FINISH: CLOSE FILE(STOCK); 


END CRR3; 
/ж 
//GO. LOANS DD UNIT=2311, SPACE=(19,100) , DCB=(RECFM=F, BLKSIZE=12, 
// DSORG=DA, KEYLEN=7) , DISP= (NEW, KEEP, DELETE) , DSNAME=LOANS3 , 
/” VOLUME=SER=D186 
//GO.STOCK DD UNIT=2311, SPACE= (60, (1000, 20)) , DCB- (RECFM=U, BLKSIZE-110, 
/” DSORG=DA, KEYLEN=4) , DISP= (NEW, KEEP, DELETE) , DSNAME=STOCK3, 
// VOLUME=SER=D1 86 


//GO.SYSIN DD * 

'1015' 'W.H.AINSWORTH' ‘THE ADMIRABLE CRICHTON! 1 

"1214" 'L.CARROLL' ‘THE HUNTING OF THE SNARK" 1 

'3079* 'G.FLAUBERT' ‘MADAME BOVARY' 1 

'3083' 'V.M.HUGO' 'LES MISERABLES' 2 

'3085' 'Jg.K.JEROME' ‘THREE MEN IN А BOAT' 2 

"42954 'W.LANGLAND' ‘THE BOOK CONCERNING PIERS THE PLOWMAN' 1 
"5998" 'W.SHAKESPEARE' ‘MUCH ADO ABOUT NOTHING' 3 

"6591" 'F.RABELAIS' "THE HEROIC DEEDS OF GARGANTUA AND PANTAGRUEL' 1 
'8362' 'H.D.THOREAU' 'WALDEN, OR LIFE IN THE WOODS' 1 

'9765' 'H.G.WELLS' 'THE TIME MACHINE' 3 

/% 


Figure 11-26. Creating а REGIONAL(3) Data Set 
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//404%РСЕ1 JOB 
//COLEEX EXEC PLiLFCLG,PARM.PLÍ1L-'SIZE-999999*',PARM.LKED-'LIST' 
//PLIL.SYSIN DD ж 


DUR3: 


NEXT: 


FINISH: 


/* 


//GO.LOANS DD DSNAME=LOANS3, DISP=(OLD, KEEP), UNIT=2311, VOLUME=SER=D18 6 


PROC OPTIONS (MAIN) ; 
DCL 1 RECORD, 2(ISSUE, REMINDER) CHAR(6), 
SYSIN FILE RECORD INPUT SEQUENTIAL, 
LOANS FILE RECORD UPDATE DIRECT KEYED ENV(REGIONAL(3)), 
CARD CHAR(80), 
BOOK CHAR(4) DEF CARD, 
READER CHAR(3) DEF CARD POS(10), 
CODE CHAR(1) DEF CARD POS(20), 
REGION CHAR(8); 
ON ENDFILE(SYSIN) GO TO FINISH; 
OPEN FILE(SYSIN),FILE(LOANS); 
ISSUE,REMINDER-DATE; 
READ FILE(SYSIN) INTO(CARD); 
IF READER<'034' THEN REGION-' 00000000"; 
ELSE IF READER<'067' THEN REGION-'00000001'; 
ELSE REGION-'00000002'; 
IF CODE-'I' THEN WRITE FILE(LOANS) FROM(RECORD) 
KEYFROM (READER | | BOOK | | REGION) ; 
ELSE IF CODE-'R' THEN DELETE FILE(LOANS) 
KEY (READER | | BOOK| | REGION) ; 
ELSE IF CODE-'A' THEN REWRITE FILE(LOANS) FROM(RECORD) 
KEY (READER | | BOOK| | REGION) ; 
ELSE PUT FILE(SYSPRINT) SKIP LIST 
("INVALID CODE:',BOOK,READER); 
GO TO NEXT; 
CLOSE FILE(SYSIN),FILE(LOANS); 
END DUR3;. 


//GO.SYXSIN DD * 


3517 
5999 
3083 
1214 
/% 


095 
003 
091 
059 


норм 


Figure 11-27. REGIONAL(3) Data Sets: Direct Update 
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/7TOU4“PGE3 JOB 
//СОҺЕЕХ EXEC PLILFCLG, PARM. PL1IL=' SIZE=999999* , PARM. LKED="LIST" 
'f//7PLIL.SYSIN DD * 
SUR3: PROC OPTIONS (МАІМ); 
DCL LOANS FILE RECORD SEQUENTIAL UPDATE KEYED ENV(REGIONAL(3)), 
STOCK FILE RECORDS DIRECT INPUT KEYED ENV(REGIONAL(3)), 
(TODAY, LASMTH) CHAR(6), 
YEAR PIC '99' DEF LASMTH, 
MONTH PIC '99' DEF LASMTH POS(3), 
1 RECORD,2(ISSUE,REMINDER) CHAR(6), 
LOANKEY CHAR(7), 
READER CHAR(3) DEF LOANKEY, 
BKNO CHAR(4) DEF LOANKEY POS(4), 
INTER FIXED DEC(5), 
REGION CHAR(8), 
INREC CHAR(81) VAR, 
1 BOOK BASED(P), 
2 (L1,L2) FIXED DEC(3), 
2 QTY FIXED DEC(3), 
2 DESCN CHAR(75), 
AUTHOR CHAR(25) VAR, 
TITLE CHAR(50) VAR; 
TODAY, LASMTH=DATE; 
IF MONTH-'01' THEN DO; 
MONTH-"'12'; 
YEAR-YEAR-1; 
END; 
ELSE МОМТН-МОМТН-1; 
OPEN FILE(LOANS),FILE(STOCK); 
ON ENDFILE(LOANS) GO TO FINISH; 
NEXT: READ FILE(LOANS) INTO(RECORD) KEYTO(LOANKEY) ; 
IF REMINDER<LASMTH THEN DO; 
REMINDER-TODAY; 
REWRITE FILE(LOANS) FROM(RECORD); 
INTER= (BKNO-1000)/225; 
REGION-INTER; 
READ FILE(STOCK) INTO(INREC) KEY(BKNO[||REGION); 
DCL STR BIT(648); 
STR=UNS PEC (INREC) ; 
PUT FILE(SYSPRINT) РАСЕ DATA(STR); 
P-ADDR(INREC); 
AUTHOR-SUBSTR (DESCN,1,L1) ; 
TITLE=SUBSTR(DESCN, L14+1,L2); 
PUT FILE(SYSPRINT) SKIP(4) EDIT (READER, AUTHOR, TITLE) 
(A, SKIP (2)); 
END; 
GO TO NEXT; 
FINISH: CLOSE FILE(LOANS) , FILE (STOCK); 
END SUR3; 
/* 
//GO.LOANS DD DSNAME=LOANS3, DISP=(OLD, KEEP), UNIT=2311, VOLUME=SER=D18 6 
//GO.STOCK DD DSNAME=STOCK3, DISP=(OLD, KEEP) , UNIT=2311, VOLUME=SER=D186 


Figure 11-28. REGIONAL(3) Data Sets: Sequential Update and Direct Input 
CTeleprocessing link between PL/I message processing 


programs (MPPs) using these features and 
the Queued Telecommunications Access Method 


: INTRODUCTION (QTAM) of the operating system. 

A QTAM message control program (MCP) 
The teleprocessing facilities of PL/I are handles messages originating from and 
provided by an extension of the basic destined for a number of remote terminals, 
record-oriented transmission facilities each of which is identified by a terminal 
with the addition of the TRANSIENT file name carried with the message. These 
attribute and of the PENDING condition. messages are transmitted to and from your 
The (F) compiler provides a communication PL/I message processing program via queues 
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in main storage. (These queues are 
supported by corresponding intermediate 
queues in auxiliary storage on a disk data 
set. Your PL/I program has access only to 
the main-storage queues by means of a 
single intermediate buffer for each file.) 


The exact message format (specified to 
the compiler by means of the ENVIRONMENT 
attribute) depends on the MCP, but each 
message will carry the terminal name with 
it. А message may be a complete unit, or 
may consist of a number of records so that 
it can be split up for processing. You 
must have this message format information 
to enable you to write the message 
processing program. Full information on 
how to write an MPP is given in IBM 
System/360 Operating System: PL/I (Е) 
Language Reference Manual. А full account 
Of QTAM procedure is given in: IBM 
System/360 Operating System: ОТАМ Message 
Processing Program Services and IBM 


System/360 Operating System: QTAM Message 
Control Program. 


MESSAGE PROCESSING PROGRAM (MPP) 


This program receives the terminal message 
as input and produces output according to 
the data in the message. You can code this 
program in PL/I. 


"74 JOB 
/” EXEC PLILFCL 
//PLIL.SYSIN DD ж 

MPPROC: PROC OPTIONS (MAIN) ; 


An MPP is not mandatory at a 
teleprocessing installation, as for 
example, an MCP is. If the messages you 
transmit do not require processing, because 
they are only switched between terminals, 
an MPP is not required. However, you can 
pass data to a problem program and you can 
receive the output with a minimum of delay, 
and most installations are likely to have a 
set of processing programs available for 
these purposes. These programs are stored 
as load modules, either in main storage or 
in a library in auxiliary storage. 


HOW TO RUN AN MPP 


Figure 11-29 shows an example of an MPP and 
the job control language required to run 
it. The EXEC statement invokes the 
cataloged procedure PLILFCL to compile and 
link-edit the PL/I message processing 
program. The load module produced is 
stored in the partitioned data set 
SYS1.MSGLIB under the member name MPPROC. 
The telecommunications library, 
SYS1.TELCMLIB, is concatenated with the 
PL/I library, SYS1.PL1LIB. 


In the PL/I message processing program, 
MPP is declared as a teleprocessing file 
that can process messages up to 100 bytes 


DCL MPP FILE RECORD KEYED TRANSIENT ENV(G(100)), 
OUTMSG FILE RECORD KEYED TRANSIENT ENV(G(500)), 


INDATA CHAR(100), 
OUTDATA CHAR(500), 
TKEY CHAR(6); 


OPEN FILE(MPP) INPUT,FILE(OUTMSG) OUTPUT; 


READ FILE(MPP) KEYTO(TKEY) INTO(INDATA); 


WRITE FILE(OUTMSG) KEYFROM(TKEY) FROM(OUTDATA) ; 


CLOSE FILE(MPP),FILE(OUTMSO); 
END MPPROC; 


 ENDTP: 


/* 


//LKED.SYSLIB DD DSNAME=SYS1.PLILIB,DISP=SHR 
// DD DSNAME=SYS1.TELCMLIB, DISP=SHR 


//LKED.SYSLMOD DD DSNAME-SYS1.MSGLIB(MPPROC),... 


Figure 11-29. 


PL/I Message Processing Program 
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long. Similarly OUTMSG is declared as a 
teleprocessing file that can receive 
messages up to 500 bytes long. 


The READ statement gets a record 
: (message or message segment) from the 
‘queue. The terminal identifier is inserted 
into the KEYTO character string. The 
record is placed in the INDATA variable for 
processing. The appropriate READ SET 
Statement could also have been used here. 


: The WRITE statement puts the data in 
;OUTDATA into the destination queue; the 
‘terminal identifier is taken from the 
character string in TKEY. An appropriate 
.LOCATE statement could also have been used. 


Once the load module has been stored in. 


‘auxiliary storage on a direct-access device 
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it can be restored for execution at any 
time. The job control statements to 
perform this might be: 


/” ТОВ 

//JOBLIB DD DSNAME=SYS1.MSGLIB , DISP=SHR 
/” ЕХЕС РСМ=МРРАОС 

//MPP DD DUMMY 

//OUTMSG DD DUMMY 

//SYSPRINT DD SYSOUT=A 


The JOBLIB DD statement is required to 
make SYS1.MSGLIB available for resolution 
of external references. The DD statements 
for MPPROC associate the PL/I files MPP and 
OUTMSG with their respective main-storage 
process queues. Аз no input/output 
operations are required these are DD DUMMY 
Statements. 


Introduction 


Within IBM System/360 Operating System, the 
terms ‘library’ and ‘partitioned data set' 
are used synonymously to signify a type of 
data set that can be used for the storage 
of other (sequential) data sets (usually 
programs in the form of source, object, or 
load modules). ‘Partitioned data set' is 
the more precise term, but its use is 
generally confined to contexts where the 
physical structure of the data set is more 
significant than its conceptual nature; 
otherwise, 'library' is the term in general 
use. 


There are three types of library: 


1. A system library is a partitioned data 
set that houses frequently used 
programs; system libraries form an 
integral part of the operating system. 
The most important system libraries 
for the PL/I programmer are the link 
library (named SYS1.LINKLIB), the 
cataloged-procedure library 
(SYS1.PROCLIB), and the PL/I 
subroutine library (SYS1.PL1LIB). 


2. А temporary library is a partitioned 
data set that exists only for the 
duration of a job. This type of 
library is particularly useful for 
containing the output from a linkage 
editor run until it is executed by a 
later job step. 


3. А private library is any permanent 
partitioned data set that is not part 
of the operating system. Private 
libraries are often used to house 
groups of programs not used frequently 
enough to warrant their inclusion in a 
system library. They are usually made 
available to a job by a special DD 
Statement with the ddname JOBLIB; they 
can also be accessed by being 
concatenated with a system library and 
retrieved by use of the system library 
ddname. 


Structure of a Partitioned Data Set 


A partitioned data set, which must be ona 
direct-access device and wholly contained 
on one volume, contains independent 
sequentially organized (CONSECUTIVE) data 
sets, each termed a member. Each member 
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has a unique name not more than eight 
characters long stored in a directory that 
is part of the data set. The directory 
permits direct access to any member; the 
members themselves are always processed 
sequentially. 


Individual members can be added to or 
deleted from a partitioned data set as 
required. When a member is deleted, the 
member name is removed from the directory, 
but the space occupied by the member cannot 
be reused. If there is not sufficient 
space available in the directory for an 
additional entry, or not enough space 
available within the data set for an 
additional member, no new members can be 
stored. 


DIRECTORY 


The directory of a partitioned data set is 
a series of records at the beginning of the 
data set; there is at least one record 
(directory entry) for each member of the 
data set. Each directory entry contains a 
member name, the relative address of the 
member within the data set, and a variable 
amount of user data. The entries are 
arranged in ascending alphameric order of 
member names (Figure 12-1). 


Although directory entries do not have a 
fixed length, they are blocked into 
fixed-length blocks of 256 bytes. Each 
block contains a 2-byte count field and as 
many complete entries as will fit into the 
remaining 254 bytes. The count field 
specifies the number of active bytes in the 
block. Figure 12-2 illustrates the format 
of a directory block. The directory is in 
effect a sequential data set that contains 
fixed-length unblocked records, and can be 
read as such. 


Figure 12-5 demonstrates a method of 
extracting information from directory 
entries. (The program lists the names of 
all the members of any library; the library 
must be named at execution time in a DD 
statement with the ddname LINK.) 


The member name, which may be an alias, 
occupies the first eight bytes of a 
directory entry, and the relative address 
of the member within the data set the next 
three bytes (Figure 12-3). The twelfth 
byte contains the following information: 
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Description 


If this bit is set to 1, the name in 
the member-name field is an alias. 


Binary value that indicates the number 
of pointers in the user data field. 
These pointers contain the relative 
addresses of locations within the 
member. You cannot use a PL/I program 
to write such pointers; they can be 
inserted only by means of the 
assembler language STOW macro 
instruction. 


3-7 Binary value that indicates the number 
of halfwords in the user data field 


(including pointers). 


A directory entry can contain up to 62 
bytes of user data (information inserted by 
the program that created the member). Ап 
entry that refers to a member (load module) 
written by the linkage editor includes user 
data in a standard format, which is 


described in IBM System/360 Operating 


System: System Control Blocks. If you use 
a PL/I program to create a member, the 


operating system creates the directory 
entry for you and you cannot write any user 
data. However, you can use assembler 
language macro instructions to create a 
member and write your own user data; the 






Entry for 
Member B | 


Entry for 
Member A 


Directory 
Records 


Entry for 
Member C 


Figure 12-1. A Partitioned Data Set 
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method is described in IBM System/360 


Operating System: Supervisor and Data 
Management Services. 
M 


Creating a Partitioned Data Set 


The simplest way to create a partitioned 
data set is to include in any job step of 
any job a DD statement that contains the 
following information: 


Parameter of 
DD Statement* 


Type of device that will UNIT- 
process the data set 

Serial number of the volume VOLUME-SER- 
that will contain the 

data set 

Name of the data set DSNAME- 
Amount of space required SPACE- 

for the data set 

Disposition of the data set DISP- 


ЗАррепдіх B describes all the parameters of 
the DD statement referred to in this 
chapter. 


Entry for 
Member K 


Deleted 
Member 


A vailable 
Area 


Space from 


Data , 





Number of | 
Bytes Used Member Member 
(Max 256) Entry A Entry B 
--у-- 

Bytes 2 


Figure 12-2. 


8 3 1 
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| Member |TTR{C] 
| name | | | 
le emi TEM Жы даса Льшық — Á— сы а 
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Pointer to start of 


member: 
Bit 
TT - track number relative 0 
to start of data set 
1,2 
R - relative block number 
on track 3-7 


62(max) 


Member 
Entry N 





A Partitioned Data Set Directory Block 


If set to 1, name is an alias 
. Number of pointers in user data field 


Binary value indicating number of halfwords 


of user data (including pointers) 


Figure 12-3. Contents of Directory Entry 


For example, the DD statement: 


//PDS DD UNIT=2311, VOLUME=SER=3412, 


^/ DSNAME=ALIB, 
// SPACE=(CYL, (50,,10)), 
^/ DISP= (, CATLG) 


requests the job scheduler to allocate 50 
cylinders of the 2311 disk pack with serial 
number 3412 for a new partitioned data set 
named ALIB, and to enter this name in the 
system catalog. The last term of the SPACE 
parameter requests that part of the space 
allocated to the data set be reserved for 
ten directory blocks; it is the presence of 
this term that indicates to the job 
scheduler that the request is for a 
partitioned data sett, 


If you want to insert the first member 
in the data set at the time you create it, 
you must include the DD statement in the 
job step that writes the member, and the 
DSNAME parameter must include the member 


4The SPACE parameter in a DD statement that 
defines an INDEXED data set can include a 
term in this position to indicate the size 
of the index, but the DD statement must 
also include the DCB subparameter DSORG=IS. 


name in parentheses. For example, 
DSNAME=ALIB(MEM1) names the member MEM1 in 
the data set ALIB. If the member is placed 
in the data set by the linkage editor, you 
can use the linkage-editor NAME statement 
or the compiler OBJNM option instead of 
including the member name in the DSNAME 
parameter. 


SPACE PARAMETER 


The SPACE parameter in a DD statement that 
defines a new partitioned data set must 
always be of the form SPACE=(units, 
(quantity, increment,directory )). Although 
you can omit the third term (increment), 
indicating its absence by a comma, the last 
term, which specifies the number of 
directory blocks to be allocated, must 
always be present. 


The amount of space required for a 
partitioned data set depends on the number 
and sizes of the members to be stored in it 
and on how often members will be added or 
replaced. (Space occupied by deleted 
members is not released.) The number of 
directory blocks required depends on the 
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number of members and the number of 
aliases. Although you can specify an 
incremental quantity in the SPACE parameter 
that will allow the operating system to 
obtain more space for the data set if 
necessary, both at the time of creation and 
when new members are added, the number of 
directory blocks is fixed at the time of 
creation and cannot be increased. 


If the data set is likely to be large or 
you expect to do a lot of updating, it 
might be best to allocate a full volume. 
Otherwise, make your estimate as accurate 
as possible to avoid wasting space or time 
recreating the data set. 


The number of entries that a 256-byte 
directory block can contain depends on the 
amount of user data included in the 
entries. The maximum length of an entry is 
7% bytes, but the entries produced by the 
linkage editor vary in length between 34 
bytes and 52 bytes, which is equivalent to 
between four and seven entries per block. 


Processing a Member 


When programming in PL/I, you will 
ordinarily use partitioned data sets only 
for storing source, object, or load 
modules, and the modules themselves will be 
created by the compiler or the linkage 
editor. You need only include an 
appropriately named DD statement to 
indicate the names of the partitioned data 
set and the new member. (Note that you 
should restrict the use of a particular 
library to the storage of one type of 
module, since all members of a partitioned 
data set must have identical 
characteristics.) 


//J057PGEX JOB 
//CO EXEC PLILFC, PARM. PLIL=' 51 2Е=999999* 


Figure 12-4 illustrates the use of the 
cataloged procedure PLILFC to compile а 
simple PL/I program and place the object 
module in a new library named EXLIB. The 
DD statement that defines the new library 
and names the object module overrides the 
DD statement SYSLIN in the cataloged 
procedure. (The PL/I program is a function 
procedure that, given two values in the 
form of the character string produced by 
the TIME built-in function, returns the 
difference in milliseconds.) 


Figure 12-5 illustrates the use of the 
cataloged procedure PL1ILFCL to compile and 
link-edit a PL/I program and place the load 
module in the existing library 'FLM'. (The 
PL/I program lists the names of the members 
of a library.) 


You can delete a member of a partitioned 
data set by means of the SCRATCH statement 
of the operating system utility program 
IEHPROGM, which is described in IBM 
System/360 Operating Sytem: Utilitites. 
The SCRATCH statement deletes only the 
directory entry that refers to the member; 
you cannot free the space occupied by the 
member unless you reorganize the entire 
data set. Do not attempt to delete a 
member by including the parameter 
DISP-(OLD,DELETE) in the DD statement that 
defines it; this would result in the 
deletion of the entire data set. 


TO reorganize a partitioned data set, 
you must copy the members into a temporary 
partitioned data set, delete and recreate 
the original data set, and copy the members 
back into it. The system utility programs 
include facilities for copying members of 
partitioned data sets. 


//PL1IL.SYSLIN DD UNIT-2311,VOLUME-SER-D186,DSNAME-EXLIB(ELAPSE), 
// SPACE= (CYL, (10,,2)) ,DISP=(NEW, KEEP) 


//PLIL.~SYSIN DD * 


ELAPSE: PROC (ТІМЕ1,ТІМЕ2); 
DCL (ТІМЕ1,ТІМЕ2) CHAR(9), 
H1 РІС '99' DEF TIME1, 
М1 РІС "99" DEF ТІМЕ1 POS(3), 
М51 РІС "99999" DEF ТІМЕ1 РО5(5), 
Н2 РІС "99" DEF TIME2, 
M2 РІС "99" DEF TIME2 POS(3), 
MS2 PIC '99999' DEF TIME2 POS(5), 
ETIME FIXED DEC(7); 
IF H2«H1 THEN H2=H2+24; 
ETIME-((H2*60*M2)*60000*MS2)- C(H1*60*M1) *60000*MS1) ; 
RETURN (ETIME); 
END ELAPSE; 
/* 


Figure 12-4. 
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//J062PGE2 JOB 
//COLE EXEC PLÍLFCL,PARM.PLiL-'SIZE-999999 
//PLiL.SYSIN DD ж 

MNAME: PROC OPTIONS (MAIN) ; 


, PARM. LKEDz'' 


DCL LINK FILE RECORD SEQUENTIAL INPUT, 


1 DIRBLK, 
2 COUNT BIT(16), 
2 ENTRIES(254) CHAR(1), 
1 ENTRY BASED(A), 
2 NAME CHAR(8), 
2 TTR CHAR(3), 
2 INDIC, 
3 ALIAS BIT(1), 
3 TTRS BIT(2), 
3 USERCT BIT(5), 
(LEN,PTR) FIXED BIN(31); 
ON ENDFILE(LINK) GO TO FINISH; 
OPEN FILE(LINK); 
NEXTBLK: READ FILE(LINK) INTO(DIRBLK) ; 
LEN-COUNT; 
PTR=1; 
NEXTENT: A-ADDR (ENTRIES (PTR)); 


PUT FILE(SYSPRINT) SKIP LIST (NAME); 


PTR=PTR+12+2*USERCT; 

IF PTR+2>LEN THEN GO ТО NEXTBLK; 
GO TO NEXTENT; 

CLOSE FILE (LINK) ; 

END MNAME; 


FINISH: 


/% 


//LKED.SYSLMOD DD UNIT=2311, VOLUME=SER=D18 6, DSNAME=FLM(DIRLIST), 


/” DISP-OLD 


Figure 12-5. 
PROCESSING WITH PL/I 


You can use a PL/I program to write a 
member into a partitioned data set, or to 
read or update a member. In each case, you 
must identify the member in an appropriate 
DD statement and process it as a 
CONSECUTIVE data set. 


Creating a Member 


The members of a partitioned data set must 
have identical characteristics. This is 
necessary because the volume table of 
contents (VTOC) will contain only one data 
set control block (DSCB) for the data set, 
and not one for each member. Although it 
is possible to place members with different 
characteristics into a partitioned data 
set, you may subsequently have difficulty 
in retrieving them. Note that, when you 
use a PL/I program to create a member, the 
operating system creates the directory 
entry; you cannot place information in the 
user data field. 


When you create a member in a new 
partitioned data set, the DD statement that 
defines the data set must include all the 


Placing a Load Module in an Existing Library 


parameters listed under the heading 
'Creating a Partitioned Data Set,' above 
(although you can omit the DISP parameter 
if the data set is temporary). You must 
also describe the characteristics of the 
member (record format, etc.) either in the 
DCB parameter or in your PL/I program; 
these characteristics will also apply to 
other members added to the data set. 


However, if the partitioned data set 
already exists, you will not need the SPACE 
parameter; the original space allocation 
applies to the data set and not to an 
individual member. Furthermore, you will 
not need to describe the characteristics of 
the member, since these are already 
recorded in the DSCB for the data set. 


If you want to add two or more methbers 
to a partitioned data set in one job step, 
you must include a DD statement for each 
member, and you must close one file that 
refers to the data set before you open 
another. 


Figure 12-6 illustrates the use of a 
PL/I program to create a CONSECUTIVE data 
set and place it in a new library. 
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//J059PGEX JOB 


//COLEEX EXEC PLiLFCLG,PARM.PLi1L-'SIZE-999999',PARM.LKED-'' 


//PLiL.SYSIN DD ж 
NMEM: PROC OPTIONS(MAIN); 


DCL IN FILE RECORD SEQUENTIAL INPUT, 


OUT FILE RECORD SEQUENTIAL OUTPUT, 


IOFIELD CHAR(80) BASED(A); 
OPEN FILE(IN),FILE(OUT); 
ON ENDFILE(IN) GO TO FINISH; 
READ FILE(IN) SET(A); 
WRITE FILE(OUT) FROM(IOFIELD); 
GO TO NEXT; 
FINISH: CLOSE FILE(IND,FILE(OUT); 


NEXT: 


END NMEM; 
/* 
//GO.OUT DD UNIT=2311, VOLUME=SER=D186, DSNAME=ALIB (NMEM) , 
А DISP-(,KEEP),SPACE- (CYL, (10,1,1)), 
// DCB- (RECFM-FB,BLKSIZE-3600,LRECL-80) 


//GO.IN DD * 
Insert here data to be placed in member 
/* 


Figure 12-6. 


//J060PGEX JOB 


Using a PL/I Program to Create a Member of a Partitioned Data Set 


//COLEEX EXEC PL1LFCLG, PARM. PL1L=" SIZE=999999* , PARM. LKED=" * 


//PLIL.SYSIN DD ж 
UPDTM: PROC OPTIONS (МАІМ); 


DCL (OLD,NEW) FILE RECORD SEQUENTIAL, 


DATA CHAR(80) ; 
ON ENDFILE(OLD) GO TO FINISH; 


OPEN FILE(OLD) INPUT,FILE(NEW) OUTPUT TITLE('OLD'); 


'" NEXT: READ FILE(OLD) INTO(DATA); 

IF DATA-' ' THEN GO TO NEXT; 

WRITE FILE(NEW) FROM(DATA); 

GO TO NEXT; 

FINISH: CLOSE FILE(OLD),FILE(NEW); 
END UPDTM; 


/* 


//GO.OLD DD UNIT=2311, VOLUME=SER=D186, DSNAME=ALIB (NMEM) , DISP=OLD 


Figure 12-7. 


Updating a Member 


To use a PL/I program to update one or more 


records within a member of a partitioned 
data set, you must rewrite the entire 
member in another part of the data set; 
this is rarely an economic proposition, 
since the space originally occupied by the 
member cannot be used again. You must use 
two files in your PL/I program, but both 
can be associated with the same DD 
statement. Figure 12-7 is a program that 
updates the member created in Figure 12-6; 
it copies all the records of the original 
member except those that contain only 
blanks. 
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Operating System Utility Programs 


The operating system includes several 
utility programs that are useful for 
processing partitioned data sets. IBM 
System/360 Operating System: Utilities 
describes all these utility programs and 
explains how to use them. The facilities 
offered by the utility programs include 
moving, copying, and merging the contents 
of partitioned data sets, updating members 
in place, and listing the contents of 
directories. 


System. Libraries 
LINK LIBRARY 


The link library (SYS1.LINKLIB) is a system 
library that houses frequently used 
programs. Any program that you name in the 
PGM parameter of an EXEC statement must be 
in the link library unless you specify a 
private library (see below). Тһе link 
library is always available to all job 
steps of all jobs. The control program 
provides the necessary data control block 
and establishes the logical relationship 
between your program and the library, 
making the members of the library available 
to your program. 


An assembler language program can use 
the macro instructions LINK, XCTL, ATTACH, 
and LOAD to request the control program to 
load a program from the link library (ora 
private library) into main storage and (for 
LINK, ATTACH, and XCTL only) pass control 
to it. Although there is no equivalent 
facility in PL/I (F), some of the PL/I 
library subroutines use these macro 
instructions to call other Library 
subroutines. 


PROCEDURE LIBRARY 


The procedure library (SYS1.PROCLIB) is a 
system Library that houses cataloged 
procedures. It is normally accessed only 
by the control program or by the utility 
program IEBUPDTE, which may be used for 
adding or changing cataloged procedures. 
Chapter 8 discusses cataloged procedures 
and the procedure library. 


PL/I SUBROUTINE LIBRARY 


The PL/I subroutine library (SYS1.PLILIB) 
is a system library that houses a set of 
load modules that, during execution of a 
PL/I program, supplement the machine 
instructions generated by the compiler. 
These modules can be divided into two 
groups: 


1. Modules that serve as an interface 
between compiled code and the 
facilities of the operating system. 
These modules are concerned primarily 
with input and output, storage 
management, and error and interrupt- 
handling. 


2. Modules that perform data processing 
operations during program execution. 
These modules handle, for example, 
input/output editing, data conversion, 
and many of the PL/I built-in 
functions. 


Certain modules are loaded dynamically 
during the execution of a program. These 
modules reside in the link library 
(SYS1.LINKLIB): they are transient modules 
and are loaded, when required, by the macro 
instructions LINK, LOAD and XCTL. The link 
library modules comprise: 


1. The print and message modules of the 
error and interrupt-handling 
subroutines. 


2. The modules for opening and closing 
files. 


3. The record-oriented transmission 
modules. 


Appendix E lists all the modules with 
their locations (PL/I library or link 


library), lengths in bytes, and brief 
descriptions. 


Private Libraries 


JOB LIBRARY 


If you want to execute programs that are 
not used frequently enough to justify their 


inclusion in the link library, you can 


identify the private library that contains 
them as a job library by naming it in a 
special form of DD statement with the name 
JOBLIB. You must place the JOBLIB 
Statement between your JOB statement and 
the first EXEC statement of your program. 
The control program will then respond to a 
request for the execution of a program by 
first searching the job library (unless the 
program already exists in main storage); if 
the program is not in the job library, the 
control program will then refer to the link 
library in the normal way. 


The JOBLIB statement must contain at, 
least two parameters, DSNAME and DISP. You 
must code the DISP parameter as 
DISP-(NEW,PASS), DISP-(OLD,PASS), or 
DISP-(SHR,PASS) to ensure that the job 
library remains available throughout the 
job; however, if you code DISP=OLD or 
DISP-SHR, the job scheduler assumes 
DISP-(OLD,PASS) or DISP-(SHR,PASS). If you 
code DISP-(NEW,PASS), you must also specify 
the amount of space required by including 
the SPACE parameter. If the private 
library is not cataloged, you must identify 
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the volume that contains the library, and 
the unit that will process it (UNIT and 
VOLUME parameters). 


You can concatenate two or more private 
libraries in a single job library by 
defining them in separate DD statements and 
leaving the name field of all but the first 
statement blank. The control program will 
search these libraries in the order of 
appearance of the DD statements that define 
them. 


Figure 12-8 illustrates the execution of 


the load module created in Figure 12-5 from 
the private library FLM; in this example, 


//3062PGE3 JOB 


the program lists the names of the members 
of the link library. 


STEP LIBRARY 


You can identify a private library as a 
step library in a similar manner to that 
described above for a job library. A 
STEPLIB DD statement applies to a job step 
only and overrides any JOBLIB DD statement 
for the duration of the job step. You can 
also specify a step library (but not a job 
library) in a cataloged procedure. 


//JOBLIB DD UNIT=2311, VOLUME=SER=D186, DSNAME=FLM, DISP=OLD 


// EXEC PGM=DIRLIST 
//LINK DD DSNAME=SYS1.LINKLIB, DISP=SHR 
//SYSPRINT DD SYSOUT-A 


Figure 12-8. Use of JOBLIB Statement 
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Introduction 


Multitasking is the term used in PL/I to 
describe the concurrent existence of 
several tasks within the execution job 
step. Multitasking should not be confused 
with multiprogramming, which is the control 
of independent jobs running concurrently. 
PL/I multitasking can be used only under an 
MVT system whilst multiprogramming can be 
run under MFT or MVT controlled systems. 


A multitasking program will usually 
contain one or more procedures within a 
main procedure, each of which can have a 
different priority, each identified by 
different task names and each capable of 
calling or being called by each other. 
example: 


For 


A: PROC OPTIONS (MAIN, TASK) ; 
CALL B TASK(T1); 


Bs PROC; 
CALL C TASK(T2); 


A multitasking program, using the 
multitasking facilities provided by PL/I, 
may enable you to make fuller and more 
efficient use of machine time by reducing 
the time during which the CPU is waiting or 
the input/output devices are not used. It 
is essential, however, to understand the 
concepts involved and to arrange your 
program-accordingly. This chapter sets out 
to aid your understanding of this feature; 
multitasking is also discussed in detail in 


ІВМ System/360 Operating System: PL/I (Е) 
Language Reference -Manual. 
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Multitasking Requirements 
SYSTEM/360 REQUIREMENTS 


For a full discussion of these 
requirements, see Appendix D, 
Requirements.' 


"System 


OPERATING SYSTEM REQUIREMENTS 


PL/I multitasking uses the MVT system. A 
PL/I program compiled with the TASK option 
and executed under the MFT or PCP systems 
will terminate abnormally. А11 the tasks 
exist within the same job step; the 
priorities for these tasks exist only 
within the job step and can be varied over 
a range determined by the job step 
priority. 


The minimum PL/I multitasking overhead 
in main storage and execution time, over 
and above that resulting from a single-task 
PL/I program, is: 

Main storage: about 3.5K bytes plus 2K 
bytes for each subtask 
attached. 


Execution time: about 70 milliseconds per 
task attached (model 40). 


PROGRAMMING REQUIREMENTS 


Compiler Level 


Multitasking requires a PL/I (F) compiler | 
and a PL/I subroutine library of version ! 
level or later. Programs based on earlier 
verions can only be executed in a 
multitasking environment if recompiled with 
the TASK option (see below); even then 
subprograms in these programs may need 
rearranging to execute successfully. 


Procedure Options 


All programs and external compilations that 
are to be executed in a multitasking 
environment must have been compiled with 
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the TASK option in the external PROCEDURE 
statement. For example: 


X: PROC OPTIONS (MAIN, TASK) ; 


A CALL statement with the EVENT, 
PRIORITY, or TASK options also requires a 
multitasking environment; you should, 
therefore, specify the TASK option for the 
external procedure. If you do not, it is 
assumed by default. 


If you use the TASK option, the PL/I 
library multitasking modules, instead of 
the single-task modules, will be 
link-edited into the load module. The load 
module thus contains multitasking modules 
only when multitasking is required. 


Combination with Other Languages 


When a routine in IBM System/360 assembler 
language is to be used in multitasking, the 
DSA obtained in it must be at least 108 
bytes long. (The minimum length for a DSA 
in a non-multitasking environment is 100 
bytes.) PL/I library routines used in 
multitasking must be those designed for 
multitasking, for example, IHEITH, IHETSA. 


Multitasking Management 


There are a number of topics that must be 
fully understood for successful 
multitasking management. These are: 


1. Transfer of control 

2. Use of priorities in PL/I 
3. Programming considerations 
4. Input/output handling 


5. Task termination 


TRANSFER OF CONTROL 


One of the major differences between 
multitasking and non-multitasking programs 
is that of control over the CPU and 
input/output devices. Ina 
non-multitasking environment the invoking 
procedure relinquishes control to the 
invoked procedure; in multitasking, an 
additional flow of control is established, 
so that procedures can be executed (in 
effect) concurrently. This means constant 
competition for control of the CPU, with 
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control passing to procedures in order of 
priority or position in the system queue. 

A task is always the execution of a PL/I 
procedure. A task is always associated 
with one particular procedure; on the other 
hand, a procedure can be associated with 
several tasks. Because control can pass 
from task to task, with several tasks 
active at the same time, a procedure can be 
executed by several tasks concurrently. 
Figure 13-1 shows the transfer of control 
within one job, and how the CPU and the 
input/output devices are used. 


Two points have been assumed to simplify 
the figure. One, that the various tasks 
within the program relinquish and request 
CPU and input/output devices at exactly the 
right moment; two, that no other job is 
trying to assume control at the same time. 
Obviously, in normal use, these two factors 
will play a part in the efficient execution 
of your program, and a discussion on the 
methods used to lessen their effect will be 
found under ‘Use of Priorities’ and 


"Input/Output Handling’ in this chapter. 


A brief description of the changes in 
control, at the points indicated at the 
left of the figure, follows: 


1. T2 obtains control of CPU due to its 
priority (3). Т1 and T3 go into a 
WAIT state. 


2. Т2 relinquishes control of CPU and 
accesses input/output devices. Т1 
obtains control of CPU over T3 because 
it has a higher position in the system 
queue than T3 (still in WAIT state). 


3. Т1 relinquishes CPU and, wishing to 
access input/output devices, goes into 
a wait state (T2 still controls 
input/output). ТЗ gains control of 
CPU. 


ц. Whilst in control of the CPU, ТЗ 
attaches T! and passes control to it, 


5. T2 relinquishes input/output which is 
accessed immediately by T1 (waiting on 
input/output) and regains control of 
the CPU, having higher priority than 
TU. T4 goes into a wait state on CPU. 


6. Т1 relinquishes input/output control 
by way of a program instruction (e.g., 
WAIT (Т3)) and T2 immediately accesses 
input/output, relinquishing control of 
CPU. T4 retains control of CPU. 


7. T4 completes, returns to T3 which 
relinquishes control of CPU. 


8. T3 releases input/output control to 
access CPU which has been relinquished 
by T2 on a program instructuon (e.g., 







TASK Т! TASK Т2 ТА$К Т3 
(РАТҮ 2) (РАТҮ 3) (РАТҮ 2) 
| WAIT CPU WAIT 
2 
CPU 1/0 
3 ATTACH T4 
WAIT CPU |(РАТҮ 1) 
à WAIT 
: 1/0 CPU 
b 
WAIT 1/0 
7 TIME CPU | I/O RETURN 
Ы 1/o WAIT CPU 
? CPU 1/0 END 
9 WAIT CPU 
1 
СРЏ ЕМО 
12 
ЕМО 


Figure 13-1. Transfer of Control within а Multitasking Program 


WAIT (T3)). 
again. 


Т1 accesses input/output The columns to the right of the chart 
show the use of the CPU and the 
input/output devices. You can see that, 
with careful planning, the CPU is in use 
continuously. In this simple case, only 
one input/output channel has been 
indicated, thereby creating some WAIT 
situations which would not occur if more 
than one channel was used. 


9. T1 obtains control of CPU when 
released by T3 (at end of task T3) and 
T2 once again accesses input/output. 


10. T2 demands control of CPU by virtue of 
its higher priority and T1 goes into a 
wait state. | 

You should note the correlation between 

CPU control and the use of input/output 

devices. If a task gains control of the 

CPU and immediately goes into an 

input/output operation, control of the CPU 


11. Т2 relinquishes control of CPU and 
ends; Т1 gains control of CPU. 


12. Т1 reaches end of task. 
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reverts to the task with the next highest 
priority, or to the task next in the system 
queue, including tasks in other jobs in 
different regions. It is therefore 
possible, by lack of planning, to gain 
control several times during the course of 
your program only to lose it immediately 
each time, and, finally, have to wait for 
another job to finish execution before you 
can continue. 


Control of the CPU is also relinquished 
if control is requested by a task which has 
a higher priority than that of the task 
already using the CPU. The task thus 
displaced must once again compete with 
other tasks on the basis of priority or 
queue status. 


The control of input/output devices, 
however, whilst conforming to the rules of 
priority and queue status for access, does 
not interrupt an operation to transfer 
control. If a task requests control of 
input/output devices whilst those devices 
are in use, the second request is initiated 
but control is not passed until the first 
operation has been completed. 


USE OF PRIORITIES IN PL/I 


Each task existing within a main procedure 
in the same execution job step can have a 
different priority. By evaluating the 
priority of a task, the system decides , 
which task shall obtain control of the CPU. 
Tasks with equal priorities are evaluated 
on their relative positions in the system 
queue. 


You can specify the priority associated 
with a particular job using the PRTY 
parameter of the JOB statement. The job 
step priority can have any value from 0 to 
14 inclusive, the higher the value the 
higher the priority. 


You can specify the job step priority of 
a job by using the PRTY parameter of the 
JOB statement, or the DPRTY parameter of 
the EXEC statement. 


This priority determines the initial 
priority of the major task in the PL/I 
program, using the formula: 


p=(16*(job priority)) + 10 


The absolute range of values provided by 
this formula is 10 through 234; the range 
for a particular program is from 10 through 
a value that depends on the job priority. 
This value is not only the initial priority 
of the major task, it is also the maximum 
priority that any other task in the job can 


166 


have. If an attempt is made to create a 
task priority greater than the maximum 
priority, the task will be executed at the 
maximum priority. 


The priority of any task can be reduced 
to zero; an attempt to create a priority of 
less than zero will result in the task 
concerned being excuted at zero priority. 
An attached task can have a priority 
greater or smallex than its attaching task, 
provided that this priority is within the 
limits given above. А priority can be 
changed within a program by any other task. 


The value of the priority for a task 
when the task is created is known as the 
despatching priority. The despatching 
priority of the attaching task can be equal 
to or less than the maximum priority but 
never greater than it, and can be changed 
during execution; this will affect the 
despatching priority of a subtask created 
after the change. The despatching priority 
of a subtask can also be changed during 
execution. 


A priority can be assigned to a task 
variable before the variable is associated 
with an active task. If the task is 
attached without the PRIORITY option, the 
priority has the value that was assigned to 
the task variable. 


These conventions must be interpreted 
carefully when the PRIORITY 
pseudo-variable, built-in function, or 
option is being used to manipulate the 
priority of a task. In particular, the 
effect of the maximum priority in 
restricting the manipulation should be 
noted. 


In the example shown in Figure 13-2, the 
priority is established by: 


//jobname JOB123,J.SMITH,MSGLEVEL-1,PRTY-2 


Hence maximum priority-42. It is assumed 


|: that none of the omitted statements can 


cause transfer of control or create a wait 
Situation. Control passes through the 
program to statement 12. Here task T1 is 
attached with a priority of 45; this is 
greater than the maximum priority, so T1 is 
given the maximum priority, 42. As this is 
higher than that of T(Z), the major task, 
control at once passes to T1, that is, to 
statement 26. 


At statement 31, task T2 is attached 
with a priority of 38. Control remains in 
T1; statement 32 is executed. The priority 
of T2 is now the highest priority (T(2)235, 
T1-32, T2=38), so control passes at once to 
Statement 41. After the execution of 
Statement 47, the tasks have the priorities 


Statement No. Statement Priority or Value 
1 Z: PROC OPTIONS (MAIN, TASK); T(2)-42 
6 PRIORITY--7; 

12 | CALL Ү TASK(T1) PRIORITY(10); T(Z)=35 
13 р T1=42 
16 PRIORITY-2; т(7)=37 
17 A=PRIORITY(T1); =-5 
18 PRIORITY (T1)=-9; T1-28 
25 END 7; T(Z)=37 
26 Y: PROC; T1-42 
31 CALL X TASK(T2) PRIORITY(-4); T1-42 
T2-38 
32 PRIORITY--10; T1-32 
33 B-PRIORITY(T2); NE 
2 NE 
2 NE 
" NE 
40 END Y; NE 
41 X: PROC; T2=38 
47 | PRIORITY=-8; T2=30 
| . NE 
К МЕ 
à NE 
55 | END X; NE 


Note: T(Z) is the priority of the major task, NE-not executed. 


Figure 13-2. 


T(2)-35, T1=32, Т2-30. 


to T(Z), at statement 13. 


In this example, the main procedure Z 
terminates normally, while the procedures Y 


and X terminate abnormally. This is 
because: 
1. Тһе value of the PRIORITY 


pseudo-variable specified in 
procedures Y and X is such that it 
causes control to be transferred out 
of these procedures, leaving several 
Statements in the procedure 
unexecuted. 


There is no statement that causes 
either procedure to be reentered 
before the main procedure is 
terminated. 


Control now returns 


Flow of Control through a Program 


Only the priorities of the current task 
and of an immediate subtask of the current 
task can be determined directly. The 
calculation of priorities in PL/I is 
relative, not absolute; absolute values, 
including that of the major task, are not 
easily available. 


PROGRAMMING CONSIDERATIONS 


A task may lose control under any of the 
following circumstances: 
1. Termination. 


2. Input/output operations. 
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3. A task is attached with a higher 
priority than the current task. 


4. Use of the PRIORITY pseudo-variable. 


5. A higher-priority task may come out of 
a wait state or may complete 
input/output. 


6. Use of the DELAY or WAIT statements. 


Event Option 


Only one task at a time can wait on a 
particular event. If a situation occurs 
where two or more tasks wait on the same 
event, a diagnostic message is provided. 
This kind of situation can easily occur; 
for example: 


CALL X TASK(A); 
CALL X TASK(B); 


If no event is explicitly declared in x, 
then, if X contains a WAIT statement, both 
tasks may be waiting for the same event. 


Variables 


The scope of variables must be watched 
carefully in a multitasking program. A 
variable that has not been explicitly 
declared may be altered unpredictably when 
control passes from one task to another. 
For example: 


COMPLETION(ASSIGNMENT)-'0'B; 
A71; 
CALL A TEST(A) TASK(ONE); 
WAIT (ASSIGNMENT); 
A-2; 
CALL A TEST(A) TASK(TWO) ; 

A TEST: PROC(PARM); 
DCL VARIABLE FIXED BINARY; 
VARIABLE-PARM; 
COMPLETION(ASSIGNMENT)-'1"'B; 
IF VARIABLE-1 THEN DO; 


The WAIT statement ensures that the 
program must wait for the task to assign a 
value to a variable known only to A TEST, 
and then set the even 'ASSIGNMENT' 
complete. If you did not use the WAIT 
Statement, TASK(ONE) PARM would be 
overwritten by TASK(TWO) PARM; in which 
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case, А possibly may have the value 2 
before the assignment to VARIABLE. If this 
was So, the statements following THEN DO 
would never be executed. 


ON-Units 


If there is an ERROR ON-unit in a task, and 
the condition to which the ON-unit applies 
is raised in a subtask of that task, a GO 
TO out of the ON-unit will also raise the 
ERROR condition, causing the ERROR ON-unit 
to be reentered repeatedly in a loop, 
because the GO TO label will not be known 
to the attached subtask. You can avoid 
this problem by using a separate ERROR 
ON-unit in the subtask with a GO TO label 
that is known to the subtask. For example: 


MAJOR: PROC OPTIONS (MAIN,TASK); 
ON ERROR GO TO FINISH; 
CALL A TASK; 

А: PROC; 


ON ERROR GO TO FINISH; 


E 
о 
IEEE 1x 


FINISH: END MAJOR; 


CHECK Condition 


If, in a multitasking program, the use of 
the CHECK condition is not carefully 
synchronized, the results obtained may be 
unpredictable. A program executed with the 
CHECK condition may produce different 
results to the same program not using 
CHECK, since the presence of CHECK in a 
program may cause the task in which it 
occurs to wait for input/output and hence 
to lose control. When this task eventually 
regains control, some of the variables may 
have new values 


SNAP Option in ON-Unit 


If an entry point has been called with the 
TASK option specifying a task name, the 
entry point in the SNAP print-out is 
followed by the task name in brackets. 


INPUT/OUTPUT HANDLING 


The handling of input/output in 
multitasking must be approached with some 
care. With the changes in control 
mentioned earlier and with several tasks 
active at the same time, the same data set 
may be accessed by different tasks; the 
same variable may be processed or the same 
ON-unit invoked. This could mean a record 
is overwritten, a variable may be changed 
inadvertently or, if a task terminates 
abnormally, either the record or the value 
of the variable may be lost. You may also 
lose control of the CPU at unexpected 
places in your program. To over come such 
difficulties, you should make use of the 
EVENT option, the WAIT statement, the DELAY 
Statement, the EXCLUSIVE attribute, the 
COMPLETION and STATUS built-in functions 
(also usable as pseudo-variables for 
testing), in addition to the PRIORITY 
pseudo-variable already mentioned. There 
follows a brief description of each, with 
an example of when to use it and a note on 
any precautions to be taken. 


EVENT Option 


An input/output event must be waited for in 
the task that initiated it, for example: 


CALL A TASK(T1); 


A: PROC; 
CALL B TASK(T2) EVENT (EV2); 


Procedure A will not complete until 
procedure B has completed. You should 
remember, however, that an enforced wait of 
this nature wastes CPU time. You must, 
therefore, whenever possible, ensure CPU 
overlap with another task if the task 
waiting on an EVENT has to perform much 
input/output. (This applies also to the 
WAIT statement.) 


Another instance of the difficulties met 
when using an input/output event occurs in 
the use of WRITE statements in REGIONAL (3) 
files. If a REGIONAL(3) file with U- or 
V-format records is opened for DIRECT 
UPDATE or OUTPUT, and records are being 
added to the file, then under certain 
conditions, the program may not execute 
properly. For example, if two or more 
tasks are simultaneously attempting to add 
records to the same track of the data set, 
and at least one of the WRITE statements 
concerned has the EVENT option, then if the 
WRITE statements are not correctly 
synchronized, the results are 
unpredictable. 


You can avoid this difficulty in several 
ways: 


1. Avoid using the EVENT option on such 
WRITE statements. 


2. Confine such WRITE statements to one 
task. 


3. Use non-input/output EVENT variables 
and WAIT statements to synchronize the 
WRITE statements in the various tasks. 


WAIT Statement 


This statement will cause a WAIT in the 
sequential processing of the task in which 
it appears. Ву using the WAIT statement 
you can ensure the completion of subtasks 
and the order of control of the CPU. For 
example: 


P1: PROC; 
CALL A EVENT (EV1); 
CALL B EVENT(EV2); 
WAIT(EV1,EV2,)(2); 


END P1; 


Using the WAIT statement as shown above 
also prevents the main procedure from 
completing whilst its subtasks are still 
active, a possiblity if A or B above had 
gone into an input/output operation 
immediately (assuming you omitted the WAIT 
Statement). Control would have passed from 
P1 to A, from А to B, and from В to P1, 
where your program may have entered the 
routine to end P1. P1 would then have 
completed, leaving A and B still active. 


The expression (2) in the WAIT 5tatement 
is optional and in this case means P1 must 
wait on both A and B. If the expression 
had been (1), then P1 will only wait on A 
or B to complete before proceeding. A WAIT 
Statement could have been placed between A 
and B in the above ensuring a step-by-step 
passage of control, with A not completing 
until B completed. 


Note that the WAIT statement must 
specify event names not task names. 


Use the WAIT statement with caution; it 
is relatively easy to cause errors in your 
program by its use. For example, having 
two tasks waiting on the same event, or by 
waiting on the wrong task. Refer to IBM 


System/360 Operating System: PL/I (F) 


Language Reference Manual for full details 
of the WAIT statement. 
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DELAY Statement 


This statement allows a task to wait for a 
specified period without reference to an 
event variable. It causes suspension of 
execution by 'n' milliseconds, with 'n' 
expressed within the statement. The 
obvious precautionary note here is that you 
must know how long you wish to delay 
executuon. 


EXCLUSIVE Attribute 


This attribute, which you may specify only 
for DIRECT UPDATE files, prevents one task 
from interfering with an operation by 
another task, (see note below for further 
information) especially from one task 
overwriting a record on a data set used by 
another. (The EXCLUSIVE attribute only 
applies within one job. It is possible for 
two jobs (not tasks within one job) to 
access the same record at the same time 
through the use of two files, even though 
those files may be EXCLUSIVE.) i 


COMPLETION Built-in Function 


This built-in function returns the current 
completion value of the event variable 
named in the argument. This value is 'O'B 
if the event is incomplete, or '1'B if the 
event is complete. 


STATUS Built-In Function 


This built-in function returns the current 
completion value of the event variable 
named in the argument. This value is 
non-zero if the event variable has been set 
abnormal, or zero if it is normal. The 
non-zero value is set to 1 as a result of 
the completion of the task or input/output 
operation with which the EVENT variable has 
been associated by the EVENT option. If 
the non zero value is user-defined, it can 
be set to any value the user selects. 


The following example, using a part of 


the example in the WAIT statement section, 
shows the use of these built-in functions. 
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P1: PROC; 


CALL A TASK(T1) EVENT(EV1); 
CALL B TASK(T2) EVENT(EV2); 
WAIT (EV1L,EV2) (2); 


A: PROC; 
END A; 
Bs PROC; 
END B; 


IF COMPLETION (EV1) =0 

THEN PUT LIST('TASK T1 NOT COMPLETE'); 
IF STATUS(EV2),-0 

THEN PUT LIST('TASK T2 ABNORMAL') 


END P1; 


Note: You should acquaint yourself 
thoroughly with all aspects of all the 
input/output handling aids listed above 
before using them. Full details of their 
use can be found in IBM System/360 


Operating System: PL/I (F) Language 
Reference Manual. 


Synchronization 


Input/output synchronization means avoiding 
operations on a given data set by two or 
more tasks at the same time. If 
synchronization is inadequate, then either 
a system completion code of 001 is returned 
or the results are unpredictable. 


If a task is terminated abnormally while 
an input/output operation on a file is in 
progress in an attached task, and later the 
same file is accessed in another task, the 
results may be unpredictable. 


System Completion Code 001: This code is 
returned if unrecoverable input/output 


error is caused by unsynchronized access to 
a data set from more than one task, or from 
more than one file. 


System Completion Code 301: This code is 
returned under one of two circumstances: 


1. Synchronization error in PL/I program. 
This occurs if an attaching task 
attempts an input/output operation on 
a file on which an attached task is 


already performing an input/output 
operation. Use of EVENT and WAIT сап” 
eliminate this problem. 


2. Attaching task is terminated 
abnormally while an attached task is 
still active. This occurs when an 
attached task is performing an 
input/output operation by means of 
QSAM and the attaching task is 
terminated abnormally (due to, for 
example, a source program error). The 
attaching task issues a WAIT to the 
ECB (event control block) associated 
with the file, in order to allow the 
input/output operation to complete 
before the file is closed. But the 
attached task has already issued a 
WAIT for the same ECB; as only one 
WAIT can be issued for an ECB, the 
operating system terminates the 
program abnormally and a completion 
code is returned. 


Variables 


You should ensure that two references to 
the same variable cannot be made at the 
same time. Again, this problem can be 
overcome by judicious use of WAIT 
Statements. Subject to this qualification, 
and the normal rules of scope, the 
following rules apply: 


1. You may refer to static variables in 
any task in which they are known. 


2. You may refer to an automatic variable 
in any block in which it is known, to 
which it is passed as an argument, or 
in which it is referred to using a 
valid locator variable. 


3. You may refer to a controlled variable 
in any task.in which it is known. 
Allocation and the freeing of 
allocated storage are strictly bound 
by task boundaries. When a task is 
terminated, all allocations made 
within that task are freed. 


4. Based variables again are closely 
bound by the task in which they are 
allocated. The allocations may not be 
known in the task réferencing them. 


Strings 


You may obtain unpredictable results when 
two tasks are performing simultaneous 
operations on the same bit string or 
character string.  Unpredictable results 


may also occur when an operation involving 
an unaligned bit string is taking place in 
one task at the same tine as an operation 
involving data, which is not necessarily 
bit data and whose storage is contiguous 
with that of the bit string, is taking 
place in another task. The occurrence of 
this problem is likely to be extremely 
infrequent. However, if it does occur, the 
WAIT statement and COMPLETION 
pseudo-variable should be used when 
multitasking to avoid such results. The 
following examples indicate cases which may 
produce unpredictable results because the 
attaching task and subtask are executing 
simultaneously. 


Example 1: 


MAIN: PROC OPTIONS (MAIN, TASK); 
DCL С CHAR(3) VAR INIT('1'); 
CALL A EVENT(E); 
C2C||*2'; 
WAIT (E); 
A: PROC; 
C=C] | '3'; 
END; 
PUT DATA(C) 
END MAIN; 


In this example the execution of the PUT 
DATA(C) statement will give unpredictable 
results: the value of C may be '12' or '13' 
or '123' or'132'. | 


Example 2: 


MAIN: PROC OPTIONS (MAIN, TASK); 
DCL 1 A, 
2 В CHAR(1) INIT('X'), 
2 С BIT(3) UNALIGNED ІМІТ(*111'), 
2 D FIXED DEC(2,0) ІМІТ(0); 
CALL SUB EVENT(E); 
C="101"B; 
WAIT (E); 
PROC; 
Bz'Y'; 
D=6; 
END; 
PUT DATA(A); 
END MAIN; 


SUB: 


In this example the execution of the PUT 

DATA(A) statement will give unpredictable 
results because the values of B,C, and D 

may be incorrect. 


SEQUENTIAL Files 


Use of a SEQUENTIAL file other than 
SYSPRINT in more than one task can present 
difficulties. For example, a task may be 
interrupted in the middle of a PUT 
Statement. If, in the task that gets 
control, another PUT statement is executed 
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оп the same file, the result, at best, will 
be disordered fields in the output buffer 
and, at worst, will be changes to the 
internal control blocks so that the 
original task may not continue to execute 
properly and will probably terminate 
abnormally. Again, in the updating of a 
SEQUENTIAL RECORD file, a REWRITE will 
replace the last record read (or waited 
for) irrespective of which task read it. 
Suitable use of event variables and WAIT 
statements will avoid these situations, but 
the best solution is to keep all references 
to a SEQUENTIAL file to within a single 
task. 


Only one file should sequentially create 
a data set on a direct-access device or a 
tape volume. If two or more files are 
writing on the same sequential data set on 
a direct-access device, each file will 
write on the data set independently of the 
others, and records written by one file 
will be overwritten by records from another 
file. Similarly, if two or more files 
attempt to write on a sequential data set 
on the same tape volume, the program will 
terminate abnormally. To avoid this, you 
should open a file in a common ancestor 
task of those using the file name. 


In sequential-access operations, a 
particular data set should be referred to 
by only one file at a time in a program. 
Thus, in the MVT system, the records will 
be written separately, and will not be 
mixed or overwritten. If two or more files 
opened for sequential access refer to two 
data sets related by, for example, having 
the same magnetic-tape device or the same 
data set name, then the records will be 
overwritten. 


Since error messages are written on the 
SYSPRINT file, it should be opened in the 
major task. Otherwise SYSPRINT will be 
opened in each task, and the error messages 
may be overwritten or lost. 


The use of SYSPRINT for large STREAM 
files in multitasking is not recommended. 
The implementation uses system facilities 
to synchronize operations (PUT statements 
and error messages) on the file; the effect 
of this is to make PUT statements on the 
SYSPRINT file longer to execute than PUT 
statenents on other PRINT files. 


It is possible to fill the SYSPRINT 
file, with subsequent loss of data, due to 
continuous and severe use by one task. 
Similarly, if the SYSIN file is accessed by 
two tasks at the same time, data will be 
lost or disordered. 
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TASK TERMINATION 


Normal Termination 


If a task terminates normally with active 
subtasks, then: 


1. An indefinite wait situation might be 
created. For example, a task K (with 
subtasks I and M) might itself be a 
subtask of a task A. If I and M 
contain events that are waited for in 
A then, if K is terminated normally 
while I and M are still active, the 
result is an indefinite wait in A. 


2. А warning message (IHE5771I) will be 
put out on SYSPRINT for each immediate 
active subtask of the task which is 
terminated normally. 


You must be aware that this situation 
(normal task termination with active 
subtasks) can happen unexpectedly. For 
instance, a task that was not expected to 
lose control may do so by some implicit 
input/output, as in the following example: 


A: PROC; 


Х-5/Ү; 


END B; 
END А; 


When ZERODIVIDE occurs in B (by 
execution of the statement X-5/Y;), a 
considerable amount of input/output may be 
necessary to load dynamically the 
error-handling module to deal with the 
interrupt. This can allow A to gain 
control of the CPU; if A is terminated 
normally before B can regain control, B is 
terminated abnormally. 


If a subtask is terminated when it has 
active subtasks, the completion value of 
these subtasks will be unchanged i.e., 0, 
and their status values will be set 
abnormally. 


Abnormal Termination 


A m T a T rh 


In addition to the information on abnormal 
termination provided in 'Input/Ooutput 
Handling' in this chapter, the following is 
relevant to multitasking: 


1. If a STOP statement is executed in a 
subtask, the FINISH condition is 
raised in the subtask, not in the 
major task. 


2. If the EXIT statement is executed in a 
subtask, the subtask is terminated, 
and the status of the event variable 
in the subtask is set abnormal (if it 
is not already so). 


3. If the ERROR condition is raised in a 
major task, and there is no ERROR 
ON-unit or normal return from an ERROR 
ON-unit, then the FINISH condition is 
raised and the program is terminated. 


4. If the ERROR condition is raised in a 
subtask, and there is no ERROR ON-unit 
or normal return fron an ERROR 
ON-unit, an error message is printed, 
but the FINISH condition is not 
raised. The subtask is terminated and 
the status of its event variable is 
set to abnormal. 


if the operating system detects an 
error, such as 'No main storage available,' 
in a subtask, then the subtask is 
terminated, the status of its event 
variable is set abnormal, and a message 
describing the error is printed on SYSPRINT 
(if it is open, otherwise on the console). 
If the subtask has subtasks of its own, the 
Status of these subtasks will be unchanged. 
The ERROR condition is not raised (because 
the task is already terminated before the 
PL/I library receives control), but, if a 
SYSABEND or SYSUDUMP card exists, a dump 
will be produced. 


If a subtask is expected to terminate 
abnormally, either with a STOP statement or 
a CALL IHEDUMP statement, any task or event 
variables associated with the CALL 
statement that attaches the subtask must be 
either declared STATIC or EXTERNAL in the 
invoking task or must be declared in the 
main procedure. If this restriction is not 
complied with, the main procedure may 
terminate abnormally with a system 
completion code of 201 when the subtask is 
detached. 


Multiprocessing 


Multiprocessing permits two or more jobs to 
be executed simultaneously. On a machine 
with a single CPU, the highest priority 
task which is not in the wait state or not 
performing any input/output operations is 
executed by the CPU. No other tasks can be 
executed at the same time. Ona 
multiprocessing machine (i.e., a machine 
with more than one CPU), the CPUs can 
execute tasks simultaneously. 


The following example is assumed to be 
executed on a two-CPU machine with no other 
jobs executing at the same time, i.e., both 
CPUs are available for execution. In the 
example, the major task attaches task Т1, 
which has a higher priority than the major 
task, at the first CALL statement. After 
the CALL statement has been executed, the 
major task executes simultaneously with T1 
even though one major task has a lower 
priority. At the second CALL statement, 
task T2 is attached, again with a higher 
priority than the major task. Іп this 
case, after the CALL statement has been 
executed, T1 and T2, being the two highest 
priority tasks, execute simultaneously and 
the major task does not proceed unless T1 
or T2 perform some input/output operations 
or goes into the wait state. Assuming this 
does not happen, when Т1 completes, a CPU 
is available for continuing the execution 
of the major task. The major task then 
executes simultaneously with T2 until the 
WAIT statement when (assuming that T2 has 
not completed by this time) it waits for 
the completion of T2 and terminates itself. 
If the major task did not wait for T2 to 
complete, then T2 would be itself 
terminated abnormally when the major task 
terminated. 


Example: 
Z: PROC OPTIONS (MAIN, TASK) ; 


PRIORITY=5; 


CALL X TASK(T1) EVENT(E1) PRIORITY(2); 


CALL Y TASK(T2) EVENT (E2) PRIORITY(2); 
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Ү: PROC; 


WALT (E2) ; 
END 7; 


SYNCHRONIZATION 


Synchronization of input/output is most 
important, since the likelihood of 
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simultaneous operations on a given data set 
by two or more tasks is increased in 
multiprocessing. (See ‘Input/Output 
Handling! in this chapter.) 


Also, it is possible that an attaching 
task may complete execution before its 
subtask. Attaching a subtask with a higher 
priority than the attaching task does not 
ensure that the subtask conpletes first, 
since the attaching task may execute at the 
same time as the subtask although it has a 
lower priority. Hence, it is always 
advisable to wait for the termination of a 
subtask before terminating the attaching 
task. 


Chapter 14: Other Facilities of the Operating System 


Introduction 


There are a number of IBM System/360 
Operating System optional programs, 
supplied by IBM, that may be available at 
your installation. The optional facilities 
described in this chapter are those that 
can be called from a PL/I source program 
using interface routines provided by the 
PL/I library. They are: 


Library Module Facility Provided 


IHEDUM Dump of main storage 
IHECKP, IHERES Checkpoint/restart 
IHESRT Sort 


You can invoke these library modules in 
your PL/I source program in exactly the 
same way as you can invoke one of your own 
subroutines, i.e., by a CALL statement 
specifying the relevant entry point and 
supplying any necessary arguments. 


In addition to the optional facilities 
discussed in this chapter, many others are 
available that are not called from the PL/I 
program and are beyond the scope of this 
manual. The operating system utility 
programs are a set of programs suppplied by 
IBM, that perform a variety of housekeeping 
and support functions, such as listing the 
directory of a partitioned data set, 
copying and comparing data sets, and 
dumping and restoring the data contents of 
a direct-access volume. The utilities are 
invoked by EXEC statements, and are fully 
described in the publication IBM System/360 


Operating System: Utilities. 


The remainder of this chapter is devoted 
to a discussion of each of the facilities 
available by PL/I CALL, namely main storage 
dump, checkpoint/restart and sort. 


Dump of Main Storage 


The diagnostic ability of the PL/I (F) 
compiler is such that the majority of 
source program errors can be identified 
from the diagnostic messages generated at 
compile time or at execution time. 
Generally, therefore, there is little need 
for you to obtain a dump of main storage at 


execution time, as it will not add much to 


the-information already provided by the 
diagnostic messages. The most useful 
information it will contain, as far as you 


are concerned, are the system and user 
completion codes, as they supply 
information about the job environment. 


However, you should know how to obtain a 
dump, not only because the completion codes 
are useful diagnostic aids but because if 
your program terminates with a serious 
error that you cannot correct yourself, IBM 
programming support personnel may require a 
dump to help discover whether the error 
lies in the source program or in the 
compiler. 


Three types of dump are obtainable; 
their characteristics are: 


SYSABEND Dump: This contains the data in 
main storage and information about the data 
areas in use. The contents are: 


1. Edited control information about 
system blocks. This information 
includes the completion codes. 


2. Trace tables through supervisor calis 
(optional). 


3. Contents of fixed-nucleus area. 

4. Contents of dynamic area. 
SYSUDUMP Dump: The contents are the same as 
a SYSABEND dump except that the trace 


tables and the contents of the 
fixed-nucleus area are omitted. 


PLIDUMP: The contents of a PLIDUMP are: 


1. Detailed information about the files 
and data areas used in each task. 


2. Contents of the dynamic area. 


The SYSABEND and the SYSUDUMP are 
produced when a job step terminates 
abnormally and the DD statements SYSABEND 
DD and SYSUDUMP DD respectively are present 
for the step. You can obtain a PL1DUMP 
dump by coding: 


CALL IHEDUMx [(argument)1l; 


in your source program, where 'x' is a 
suffix denoting the part of main storage to 
be written on a specified data set; the 
suffix also indicates whether or not 
processing is to continue after the dump. 
The four suffixes and their meanings are: 
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Suffix Meaning 
с Dump the contents of that part 


of the main storage associated 
with the current task, then 
continue processing. 


J Dump the contents of that part 
of main storage associated with 
all active tasks, then continue 
processing. 


Р Dump the contents of that part 
of main storage associated with 
all active tasks, then terminate 
the major task. 


T Dump the contents of that part 
of main storage associated with 
the current task then terminate 
this task. 


The argument is optional and, if used, 
must be declared as ENTRY(FIXED BIN(31,0)). 
The argument is an expresssion that is 
evaluated at execution time; the result is 
a fixed binary integer that appears in the 
heading of the dump. This integer must be 
in the range 0 through 127. A number 
outside this range is replaced by 127. 


For a PLIDUMP dump, a PLIDUMP DD 
statement must be supplied with the job 
step. 


Dump Data Sets 


if you want the dump to be written on a 
temporary or permanent data set for 
printing out later, code: 


//SYSABEND DD parameters 


where 'parameters' are the appropriate 
parameters for a temporary or permanent 
data set with CONSECUTIVE organization. 
This applies equally to PL1DUMP and 
SYSUDUMP DD statements. 


Indicative Dumps 


If you do not include a dump DD 
Statement in your job input, then, if your 
program terminates abnormally, the result 
is: 


Control Program Dump 
PCP or MFT Indicative 
MVT None 
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An indicative dump provides а limited 
amount of control information, including 
the completion codes, but does not include 
the contents of either the fixed-nucleus or 
the dynamic areas. 


The IBM-supplied cataloged procedures 
PLILFCG, PLILFCLG, PLiLFG, and PLILFLG do 
not include dump DD statements for any job 
step. If you want to specify one, you must 
qualify the ddname with the step name, that 
is, code //GO.SYSABEND, etc. 


Checkpoint/Restart Interface 


This section briefly describes 
checkpoint/restart for the PL/I user, 
particularly the syntax and meaning of the 
associated PL/I CALL statements. If you 
intend to use this facility you should 


refer to IBM System/360 Operating System: 


Advanced Checkpoint/Restart Planning Guide, 
in which the facility is fully described. 


The purpose of the checkpoint/restart 
facility is to allow you to save machine 
time in the event of a job-step failure. 
You can restart execution at the beginning 
of the job step or at a previously selected 
point within the step; in the latter case, 
the essential data for the restart is 
stored on a specified data set ready for 
use should a restart be necessary. The 
restart can be either automatic, in which 
case the job will continue after the 
failure (restarting at the designated 
point), or it can be deferred until the job 
is resubmitted; the resubmitted job will 
start at the designated point instead of 
from the beginning. The advantage of using 
this facility is that the machine time used 
for steps prior to the one that fails need 
not be written off as wasted; further, if 
the progress of the step can be checked at 
various logical points, execution can be 
restarted at the last checkpoint before the 
failure, thus minimizing machine-time 
wastage. 


Job-step failure may occur for a number 
of reasons. There could be a program 
interrupt or the program output could be 
erroneous. А program interrupt might be 
the result of, for example, a machine 
interrupt, a program error, an operator 
error or an error caused by a concurrently 
executing program.  Erroneous output could 
be the result of a program error or an 
error in the input data to the program. 
Whatever the cause, the effect is either: 


1. The job step terminates abnormally, 
with or without system failure, or 


2. The job step terminated normally, but 
the output is partly or wholly 
useless. 


То recover from this, you can use 
checkpoint/restart to start the job step 
again or to start execution at a selected 
point within the job step. To perform the 
latter, you must have included, at one or 
more points in your PL/I program, code that 
will cause job information to be recorded 
on a specified data set. The job 
information consists of the contents of the 
area of main storage used by your program 
and of certain system control data. The 
point in your program at which this 
information is recorded is a checkpoint; 
the data set on which it is written is a 
checkpoint data set. 


The checkpoint taken can be either a 
single checkpoint or it can be one of a 


number of multiple checkpoints. The 
difference is: 


Single checkpoints: The information 
written at a checkpoint overwrites the 
information written at any previous 
checkpoint. Only the latest checkpoint 
information is currently available. 


Multiple checkpoints: The information 
written at a checkpoint is placed on 
the data set after the information 
written at previous checkpoints. The 
information taken at all the 
checkpoints is currently available. 


thus, with a single checkpoint, restart 
within the job step can be made only from 
the last checkpoint taken. With multiple 
checkpoints, restart within the job step 
can be made from any checkpoint. 


The JOB, EXEC, and DD statements of JCL 
and the CALL statement of the PL/I (but not 
necessarily all of these items) may be used 
to specify the checkpoint/restart facility, 
depending on your requirements. The use of 
these statements for checkpoint/restart is 
described later in this section. 


TYPES OF RESTART 


A restart can occur automatically as soon 
as the job step has terminated, or it can 
be deferred and then attempted in a later 
job. Restart can be at the beginning of a 
step or at a checkpoint within the step. 
As a result, four types of restart are 
available: 


Automatic step restart 
Automatic checkpoint restart 
Deferred step restart 
Deferred checkpoint restart 


Automatic Restarts 


The current job is not terminated; 
immediately the step is terminated it is 
restarted in one of the following ways: 


Automatic step restart: At the 
beginning of the step 


Automatic checkpoint restart: At the 
last checkpoint taken 


Automatic restarts can be initiated by 
the checkpoint/restart facility only when 
the step has been terminated abnormally 
with a completion code specified at system 
generation as eligible for automatic 
restart (this includes system FF3 abnormal 
termination after system failure).Automatic 
Step and checkpoint restarts can be 
requested for the same step; the step 
restart remains in force until the 
checkpoint restart is invoked. An 
automatic restart requires action by the 
operator before it can occur; therefore, if 
you want an automatic restart you must 
inform the operator when submitting the 
job. Under the МЕТ or MVT control 
programs, the operator can defer an 
automatic restart if such a restart is not 
immediately convenient. 


Note: Automatic checkpoint restarts are 


always taken from the last checkpoint 
written, regardless of whether single or 
multiple checkpoints are taken. 


Deferred Restarts 


The current job is terminated: it may be 
resubmitted later and restarted at the 
failing step in one of two ways: 


Deferred step restart: At the beginning 
| of the step 


Deferred checkpoint restart: At a 
specified checkpoint (single 
or multiple checkpoints can be 
taken) 


Deferred restarts can occur irrespective of 
whether the step has been terminated 
normally or abnormally. The action taken 
by the operator is that normally required 
for initiation of step execution. 
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CHECKPOINT/RESTART REQUIREMENTS AND 
DIAGNOSTIC AIDS 


Checkpoint/restart can be used with any of 
the control programs PCP, МЕТ, or МУТ. It 
requires some or all of the following items 
to be coded in the job stream: 


Job control language: 


JOB statement: RD parameter 


RESTART parameter 
EXEC statement: RD parameter (if not in 
JOB statement) 
DD statement: For checkpoint restarts, 
a checkpoint data set 
is required. 


PL/I 
CALL IHECKPX 


where 'x' is a suffix denoting an entry 
point. The PL/I library module IHECKP 
invokes the standard operating system CHKPT 
macro, which takes the checkpoint. 


CALL IHERESx 


where 'x' is a suffix denoting an entry 
point. The subroutines in this PL/I 
library module can invoke restart, or 
suppress checkpoint restart. 


The use of these features and the syntax 
required for each of them, are described in 
this section. | 


The checkpoint/restart facility also 
includes various diagnostic aids. These 
are: 


1. СНКРТ return codes. When the CHKPT 
macro has been executed, a return code 
to indicate the result of the 
execution is provided and is returned 
by the IHECKP module to a user-defined 
field declared as a variable in the 
PL/I source prógram. 


2. Completion codes. When a job step is 
abnormally terminated, system or user 
completion codes may appear on the 
operator's console. 


3. Diagnostic messages. When a 
checkpoint is taken or a restart is 


requested, diagnostic messages 
specifying required operator or 
programmer actions may appear on the 
operator's console. These messages 
usually include a code that indicates 
the kind of action required. 


178 


The format of these messages and 
codes, and the interpretation of the values 
that appear in the various codes, are fully 


described in IBM System/360 Operating 
System: Advanced Checkpoint/Restart 
Planning.Guide. 


JOB CONTROL LANGUAGE DETAILS 


The RD Parameter 


The RD (Restart Definition) parameter is 
used to request an automatic step restart 
and (optionally) to suppress execution of 
the CALL IHECKPx statement. When coded in 
EXEC statement, it applies to the 
corresponding job step. When coded in the 
JOB statement, it applies to all job steps 
in that job and overrides an RD parameter 
coded in any EXEC statement in that job. 
The parameter syntax is: 
RDÍ.procstepl-íR|NC|NR|RNC? 
where: 
R(restart) Requests automatic 
Step restart. 
NC(no checkpoint) Suppresses the 
execution of the 
CALL IHECKPx 
Statement and the 
implicit automatic 
checkpoint restart. 
NR(no restart) Checkpoints may be 
written but 
automatic restart is 
prohibited. 


RNC(restart but 
no checkpoint) 


Requests automatic 
restart but 
suppresses the 
execution of the 
CALL IHECKPx 
Statement. 


Notes: 


1. If RD-value is coded in an EXEC 
Statement for a cataloged procedure, 
it applies to all the steps within the 
procedure, and overrides any existing 
RD parameter in the procedure. If 
RD.procstep-value is coded, it applies 
only to the specified procedure step; 
this format can be used for each step 
in the procedure, in procedure-step 
order. 


2. The CALL IHECKPx statement causes a 
request for automatic checkpoint 
restart and overrides an RD=R 
parameter. 


3. RD=NC is provided to prevent (for a 
particular job) checkpoints being 
taken when a program that includes a 
CALL IHECKPx statement is being 
executed. If there is no CALL IHECKPx 
statement, RD=NC has no effect. 


4.  RD-NR is provided to prevent automatic 
checkpoint restart, in anticipation of 
a deferred checkpoint restart. If 
there is no CALL IHECKPx statement, 
RD=NR has no effect. 


5. RD=RNC is provided to prevent (fora 
particular job) checkpoints being 
taken when a program that includes a 
CALL IHECKPx statement is being 
executed. If there is no CALL IHECKPx 
statement, RD=RNC is treated as if it 
were RD=R. 


6. If no RD parameter is specified, 
automatic step restart is prohibited, 
but automatic checkpoint restart is 
allowed if the program includes a CALL 
IHECKPx statement. 


The RESTART Parameter 


The RESTART parameter is coded in the JOB 
Statement of a job that is to be submitted 
for deferred step or checkpoint restart. 
For step restart, it specifies the step at 
which execution will be restarted. For 
checkpoint restart, it specifies the 
checkpoint at which execution is to begin, 
and the step in which this checkpoint 
exists. The parameter syntax is: 


RESTART- ( (stepname. 
stepname.procstepname 
* 


ааа 


where: 


Is the name of the step 
at which execution is to 
begin. 


stepname 


Is the qualified name of 
the restart step when 
this step is a step of a 
cataloged procedure. 


stepname. 
procstepname 


* Indicates that restart 
is to begin at the first 
step. This could be the 
first step of a 
cataloged procedure. 

checkid Is a character string 

identifying the 
checkpoint at which 
execution is to begin. 

It consists of up to 


sixteen characters from 
the character set 
available. Special 
characters must be 
enclosed in single 
quotes; single quotes in 
the string must be 
represented as double 
quotes. The checkid is 
omitted for step 
restarts. 


The DD Statement for.a Checkpoint Data Set 


This is always required for a checkpoint 
restart. It must be included in the job 
Stream when the checkpoint data set is 
created, and also when a checkpoint restart 
is to be executed. The checkpoint data set 
must be either a sequential or a 
partitioned data set; see Chapters 3 and 12 
respectively for information on the 
creation of these types of data sets. 


Creation of Checkpoint Data Set: The DD 
Statement for this data set is included 


with the other DD statements for the job 
step. The essential parameters are: 


1. DSNAME: Any name can be used. А 
dsname need not be specified for 
automatic checkpoint restart, as the 
data set used here need only be a 
temporary one. А dsname is always 
required for a deferred checkpoint 
restart. If you want to create a 
partitioned data set, the dsname 
should be specified, but the member 
name should be omitted. 


2. UNIT: A magnetic-tape device or any 
direct-access storage device can be 
Specified. 


3. VOLUME: Nonspecific volume requests 
can be used for automatic checkpoint 
restart; for deferred checkpoint 
restart, the preferred reference is 
VOLUME-SER-volnumber. If the 
checkpoint data is to be written on a 
multivolume data set, the serial 
number of the volume on which the data 
for a particular checkpoint is written 
is put out on the operator's console. 
You must obtain this number, as it 
must appear in the VOLUME parameter 
when execution is restarted at the 
required checkpoint. 


4. SPACE: For direct-access devices, the 
Space allocation must be that for a 
sequential or a partitioned data set. 
You may request secondary space (by 
the increment subparameter), but it 
will not be used. If 'end-of-volume' 
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(no more primary space) is encountered 
while writing a checkpoint on a 
direct-access volume, two actions are 
possible: 


a. If you requested secondary 
allocation, the allocation is 
performed, and the checkpoint 
routine issues a return code of 8. 
This is returned to the PI/I 
program by IHECKP. The allocated 
Space is not used. 


b. If you did not request secondary 
allocation, the system executes an 
ABEND macro instruction applying 
to the step. The ABEND causes a 
System completion code D37 to be 
issued. This means that the step 
cannot be restarted. Thus, even 
though secondary space will not be 
used, you should specify secondary 
allocation to avoid abnormal 
termination. The amount of space 
required could be as much as one 
and a half times your partition or 
region size. It can be calculated 
from formulas given in IBM 


System/360 Operating System: 
Storage Estimates. 


5. LABEL: If the checkpoint data set is 
on tape, the tape can have standard or 
nonstandard labels, or no labels. 


6. DISP: The first subparameter should be 
NEW for single checkpoints, and must 
be MOD for multiple checkpoints 
(otherwise the checkpoint entries will 
always be overwritten). For automatic 
checkpoint restart, the second 
subparameter should be DELETE; for 
deferred checkpoint restart, it should 
be KEEP or CATLG. 


7. DCB: If the checkpoint data set is to 
be written on a 7-track tape, you must 
code TRTCH-C. 


The CALL IHECKPx statement causes the 
checkpoint data set to be opened and closed 
at the appropriate times. You must not 
include OPEN and CLOSE statements for this 
data set in your program. If you do, any 
ittempt at restarting from a checkpoint 
jill fail, and a system message wili be 
jiven indicating that the checkpoint could 
not be found. The facility for opening а 
^heckpoint data set іп a problem program 
oefore taking checkpoints, as described in 
iBM System/360 Operating System: Advanced 
Zheckpoint/Restart Planning Guide, is not 
available to PL/I (F) programs. Also, you 
need not declare the checkpoint data set as 
a file in your PL/I program. 


For automatic checkpoints, you can 
specify a ddname for the checkpoint data 
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set by means of the CALL IHECKPx statement. 
If you do not want to specify a ddname, the - 
default ddname SYSCHK is applied. 


Restarting at a Checkpoint: For automatic 
checkpoints, the checkpoint data set is 


both created and used for restart in the 
same job step. Therefore the parameters of 
the DD statement remain unchanged. 


For deferred restarting at a checkpoint 
you must code the RESTART parameter 
RESTART=(stepname,checkid), on the JOB 
statement of the restart deck. This 
identifies both the step to be restarted 
and the checkpoint entry to be used to 
perform the restart. In addition, you must 
place a SYSCHK DD statement immediately 
before the first EXEC statement, and after 
any JOBLIB DD statements, in the restart 
deck. The SYSCHK DD statement must specify 
the checkpoint data set from which the 
checkpoint is to be read, and is additional 
to any DD statements in the deck that 
define data sets into which checkpoints 
have been, or will be written. The DD 
parameters specified must be the same as 
those used when the data set was created, 
except: 


1. VOLUME: If the checkpoint data set is 
written on a multivolume data set, the 
volume on which the required 
checkpoint is written must be 
specified as the first volume to be 
requested. 


2. DISP: The first subparameter must be 
OLD or SHR; the second either must be 
KEEP or may be omitted. 


For more information on specifying the 
SYSCHK DD statement, and JCL requirements 
and restrictions for deferred checkpoint 


restart, refer to IBM System/360 Operating 
System: Advanced Checkpoint/Restart 
Planning Guide. í 


PL/I CALL STATEMENT DETAILS 


The two library modules concerned with 
checkpoint/restart interface are IHECKP and 
IHERES. IHECKP establishes checkpoints for 
use when checkpoint restart is required. 

It is not used for step restart, since this 
facility does not require checkpoints and 
is specified entirely within the JCL for 
the job.  IHERES can be used to cancel 
automatic checkpoint restart or to request 
a restart. Details of when and how these 
modules should be used are given below. 
Note that the effect of invocation of these 
modules could be nullified for a given job 
by means of JCL parameters (see 'Job 
Control Language Details' earlier in this 
section). 


IHECKP (Checkpoint Module) 


You can call this module from the PL/I 
source program in either of the following 
Ways: 


1 


1. CALL IHECKPS (ddname, checkid, org, 
code); . 


2. CALL IHECKPT; 
\ 


The difference between these two statements 
is that the first allows you to make a more 
comprehensive specification in your source 
program; the second is supported in the 
fifth version of the compiler mainly for 
compatibility with the previous version, 
which used an interim checkpoint/restart 
facility. 


IHECKPS Entry Point 


Execution of the statement: 


CALL IHECKPS(...); 


requests checkpoint/restart and causes the 
program information necessary for a restart 
to be recorded on a checkpoint data set. 
The module expects the arguments in the 
order ddname, checkid, org, and code. 

Thus, if you want to omit 'code', you can 
leave it out; but if you want to include 
'checkid', 'ddname' must appear even if you 
would be satisfied with the default ddname. 
However, the first three arguments are all 
character strings, and defaults will be 
applied for any that evaluate to a null 
string. Details of the syntax, meaning, 
and default for the arguments are as 
follows: 


ddname: This argument is any 
character-string expression (including 
variables and constants) that, when 
evaluated, yields a valid ddname, i.e., an 
alphanumeric character string not longer 
than eight characters, whose first 
character is alphabetic. (If the string is 
longer than eight characters, it will be 
truncated on the right.) This ddname is 
the name of a checkpoint data set; if the 
argument appears (and is not a null 
string), a DD statement with this name must 
appear in the job stream or the checkpoint 
will not be taken. If the argument is 
omitted, or is a null string, the default 
(SYSCHK) will be applied, in which case a 
SYSCHK DD statement must appear in the job 
stream. 


checkid: This argument is any expression 
that yields a character string consisting 
of printable characters. Restrictions 
depend on the type of data set (sequential 
or partitioned) used to hold the checkpoin’ 
information. If the data set is 
partitioned, the ckeckid must be 
alphanumeric and its first character must 
be alphabetic; the length of the string 
should not exceed eight characters. For a 
sequential data set, the length should not 
exceed sixteen characters. In either case, 
if the string is too long it will be 
truncated on the right. 


The argument identifies the checkpoint 
so that, when multiple checkpoints are 
used, a deferred restart can be requested 
to commence at a particular checkpoint 
instead of the last one taken (see 'The 
RESTART Parameter' earlier in this 
section). If this argument is omitted, or 
is a null string, a system-generated 
checkid will be used. То restart at a 
particular checkpoint, you will then have 
to refer to the console listing to find its 
identification. 


org: This argument is any expression that 
yields a character-string value of length 
two, containing either 'PS' or 'PO'. It i: 
used to define the organization of the 
checkpoint data set, 'PS' meaning 
sequential, and 'PO' meaning partitioned. 
If the argument is omitted, a default of 
sequential will be applied. 


code: This argument is fixed-point binary 
integer variable of precision greater than 
15. If the argument is specified, the 
checkpoint module will return a value 
indicating the result of the checkpoint 
request. The PL/I programmer can obtain 
the value by reference to the variable. 
The codes are those issued by the CKPT 
macro and are shown in Figure 14-1. 


The facility provides a means of 
recognizing whether the program is being 
executed initially or as the result of a 
restart. You can test the variable at any 
point in the program and you may be able tc 
by-pass the error that caused the step 
failure, by transferring control according 
to the value of the variable. 


Note: It is advisable to declare IHECKPS ас 
follows: 


DECLARE IHECKPS ENTRY (CHAR(8)VAR, 
CHAR(16)VAR, CHAR(2), FIXED BIN(31)); 


to ensure that correct arguments are 
passed. 
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СЕРЕ т ранае енше ын оа дыны 1 
| Code | Meaning | 
р------ %---------------------------------- 1 
| 0 | Successful completion | 
| | | 
| 4 | Restart occurred | 
| | | 
| 8 | Unsuccessful completion (program | 
| | error) | 
| | | 
| 12 | Unsuccessful completion (input/ | 
| | output error) | 
| | | 
| 16 | Successful completion, but ENOs | 
| | are outstanding and will not be | 
| | restored on restart | 
lasts a a РОНС EESE 1 


Figure 14-1. Return Codes from Checkpoint 


Module IHECKP 


IHECKPT Entry Point 


Execution of the statement: 
CALL IHECKPT; 


requests checkpoint/restart and causes the 
program information necessary for restart 
to be recorded on the checkpoint data set. 
There must be a SYSCHK DD statement for 
this data set in the job stream. This 
entry point is included in the fifth 
version of the compiler for compatibility 
with the previous version; it is not as 
comprehensive as IHECKPS, and has the 
following restrictions: 


1. тһе checkpoint data set must always be 
specified by the ddname SYSCHK. 


2. You cannot identify the checkpoint in 
your program. To restart at a 
particular checkpoint, you would have 
to refer to the console listing to 
find its identification. 


3. You cannot specify the checkpoint data 
set organization in your PL/I program. 


4. Your program is unable to determine 
whether the current execution is the 
initial one or is the result of a 
restart (unless you pass the 
information to the main procedure, 
using the PARM field of the EXEC 
statement on deferred restart). 


IHERES (Restart Module) 


This module has two entry points, IHEREST 
(request for a restart) and IHERESN 
(cancelation of automatic checkpoint 
restart). Details of these entry points 
follow: 
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IHEREST Entry Point 


Execution of the statement: 
CALL IHEREST; 


requests an immediate automatic restart of 
the job step. Its purpose is to 
accommodate those circumstances in which 
automatic restart does not occur even 
though an error has occurred that requires 
a restart. This happens in the case of 
program interrupts such as protection 
violation, when ABEND may not occur. (In 
any case, program check ABENDS are not 
eligible for automatic restarts.)  IHEREST, 
in fact, forces an automatic restart by 
issuing an ABEND macro. This causes the 
program to terminate with a user completion 
code of 4092, which in turn causes a 
restart. This entry point can be used in, 
for example, an ERROR ON-unit for program 
interrupt errors (detected by an ONCODE 
value within the range 8091-8199). 


Notes: 


1. In order for IHEREST to cause a 
restart, your system programmer must 
have specified a user completion code 
of 4092 to be eligible for automatic 
restart when your operating system was 
generated. If this was not done, and 
your program calls IHEREST, it will be 
terminated with a 4092 completion code 
and no restart will take place. 


2. Even if 4092 is an eligible completion 
code for automatic restart, calling 
IHEREST can still cause your program 
to be terminated with a 5092 ABEND and 
no restart, in the following cases: 


a. The RD parameter was not specified 
on your JOB or EXEC statement, and 
no checkpoints were taken. 


b. RD=NR or RD=NC was specified on 
your JOB or EXEC statement. 


c. RD=R or RD- RNC was specified on 
your JOB or EXEC statement, or 
checkpoints were taken and the 
operator replied 'NO' when the 
operating system issued a message 
asking whether your job should be 
restarted. 


IHERESN Entry Point 

Execution of the statement: 

CALL IHERESN; 
cancels a request for automatic checkpoint 
restart. If the RD parameter of the job 


Statement is used to request an automatic 
step restart, that request will again be in 


effect. The CALL IHERESN statement is 
equivalent to the CANCEL option of the CKPT 
macro, and is generally used to prevent 
repeated attempts to restart from a 
checkpoint (the CALL statement being 
executed or bypassed, depending on the 
return code held in ‘code’ argument to 
IHECKPS). Automatic restart can be 
reestablished by using a call to the 
checkpoint module. If a call to IHERESN 
occurs when automatic restart is already 
canceled, the call is ignored. 


RESTRICTION ON USE OF CHECKPOINT/RESTART 


The checkpoint facility operates in an 
operating system MVT environment but must 
be issued in the originating task with all 
other sub-tasks inactive.  Specifying the 
TASK option using the PL/I (F) compiler, 
means that a checkpoint can only be issued 
in the control task which is not accessible 
to you. There is therefore the restriction 
that a checkpoint cannot be taken at all in 
a tasking program. A checkpoint may be 
issued in either the main or sub-procedures 
without the TASK option whether running 
under PCP, MFT or MVT. 


there is also a further restriction that 
a checkpoint may not be issued between a 
DISPLAY(X) REPLY(Y) EVENT(Z) statement and 
the accompanying WAIT(Z) statement. 


EFFECT OF CHECKPOINT/RESTART ON DATA SETS 


The checkpoint routine preserves all the 
relevant information about all the data 
sets used by the step calling the, 
checkpoint module. The treatment of 
various types of data set during restart is 


discussed fully IBM System/360 Operating 


System: Advanced Checkpoint/Restart 
Planning Guide; the following notes cover 


the most important points. 


User Data Sets 


1. Data sets that were open when the 


checkpoint was taken are repositioned, 


with the exception of data sets on 
unit-record devices such as card 
readers and printers. 


2. Data set contents are not saved and 
restored. 


3. If a file is opened with the UPDATE 
attribute and records are replaced 
after the checkpoint is taken but 
before restart, the contents at 
restart will not be the same as they 
were when the checkpoint was taken. 


4. If multiple checkpoints are used, and 
restart occurs at a checkpoint other 
than the last one taken, data sets 
with MOD disposition or partitioned 
organization may be repositioned to a 
point other than that expected. 


5. If a data set occupies multiple 
direct-access volumes and the 
checkpoint is taken before the end of 
one volume but restart occurs after 
the switch to the next volume, then 
the data set on the second volume must 
be deleted before restart; otherwise, 
when the time comes to switch to the 
second volume after restart, the 
system will not be able to do so, 
since a data set with a duplicate name 
will still exist on the second volume. 


SYSIN/SYSOUT Data Sets 


The data sets are handled differently from 
other data sets, depending on whether or 
not a multiprogramming system is being 
used. For further information, see IBM 


System/360 Operating System: Advanced 
Checkpoint/Restart Planning Guide. 


Resident Access Methods and 
Checkpoint/Restart 


The checkpoint/restart facility processes 
the checkpoint data set using BSAM or BPAM. 
The access method modules required to 
process the checkpoint data set must be 
resident in main storage. If they are not, 
and you attempt either an automatic or a 
deferred restart from a checkpoint, the 
restart program may fail with a program 
check attempting to read the checkpoint 
data set, and your job will be terminated. 
Full details on the modules required to be 
resident, and the procedure to make them 
resident, are described in, IBM System/360 
Operating System: Advanced 
Checkpoint/Restart Planning Guide, and 
System Programmer's Guide, respectively. 
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Sort Interface 


The PL/I(F) Compiler provides an interface 
between a PL/I program and the IBM 
System/360 Operating System Sort/Merge 
program. You invoke it by calling the PL/I 
library module IHESRT at the appropriate 
entry point; this in turn calls the 
Sort/Merge program by means of a LINK 
macro. When the sort is complete, control 
is returned from the sort program to the 
PL/I program through the IHESRT module; 
execution of the PL/I program is resumed at 
the point following the CALL IHESRT 
statement. If the sort program uses data 
sets directly for its input or output, all 
opening and closing of files is handled 
independently of PL/I. 


Information defining how the data is to 
be sorted and the format of the records in 
which this data exists is passed as 
arguments to the IHESRT module. 


The entry point to the IHESRT module 
that should be selected depends upon the 
source of the records to be sorted and 
their disposition afterwards. Four entry 
points are available: 

IHESRTA Records in a data set are 
retrieved, sorted, and placed 
in another data set. 

IHESRTB Records constructed or updated 
in a PL/I procedure are sorted 
and placed in a data set. 


Records in a data set are 
retrieved, sorted, and passed 
to a PL/I procedure. 


IHESRTC 


IHESRTD Records constructed or updated 
in a PL/I procedure are sorted 
and passed to a PL/I 


procedure. 


Retrieval of records from a data set, 
passing them to the sort program, and 
placing the sorted records in a data set 
are all performed by the PL/I program. 


Entry points IHESRTB, IHESRTC, and 
IHESRTD involve the use of the sort program 
user exits E15 and E35 to invoke a PL/I 
procedure that either supplies records for 
sorting or receives sorted records. It 
should be remembered that a PL/I procedure 
invoked from a user exit is invoked for 
each record passed to or received from the 
sort program. Each invocation involves a 
substantial time overhead necessary to 
establish a PL/I environment, such as 
restoring the PL/I error-handling 
facilities and allocating storage for 
automatic variables. However, a decision 
to use the PL/I sorting facilities should 


184 


System: Sort/Merge. 


include consideration of such overheads in 
comparison with those that accrue from the 
use of SORTIN and SORTOUT data sets, their 
creation and retrieval time overhead, and 
the additional external storage 
requirements they create. 


The records passed to the sort program 
are sorted until the required sequence is 
obtained. The sort is performed on the 
contents of selected fields within the 
record; up to sixty-four of these fields 
can be designated. This is adequate to 
ensure that even long, complicated records 
containing a small range of data types and 
values can be correctly and successfully 
sorted. 


The sequence in which the records are 
placed is the IBM System/360 collating 
sequence. 


Full details of the Sort/Merge program 
are given in IBM System/360 Operating 
Brief information on 
some aspects, for example, record format, 
Storage requirements, and data set 
description, is provided here as a guide to 
the environment required, but this is not 
intended to supplant use of the Sort/Merge 
manual. 


PL/I SORT ENVIRONMENT 


Record Format 


Blocked and unblocked fixed- and 
variable-length records can be passed to 
the sort program. Record size can vary 
over a wide range: 


Minimum: 18 bytes 


Maximum: about 32,000 bytes. The size 
for a particular application 
depends on the amount of main 
storage available and on the 
type of auxiliary storage 
used. 


If the sort program reads or writes its 
records directly, its performance is 
improved if the input or output records are 
blocked. However, a PL/I procedure can 
process only one record at a time through a 
sort program user exit. 


Storage Requirements 


The minimum storage requirements for the 

sort program are: 
Main storage: 16,000 bytes (PCP,MFT) 

26,000 bytes (MVT) 


Auxiliary storage: Three magnetic-tape 
units, or one 
direct-access storage 
device. 


These minimum requirements are for the 
sort program when used without 
direct-access devices. Additional storage 
is required,if sorting involves physical 
record lengths greater than 5400 bytes, a 
large number of intermediate data sets, and 
the use of direct-access devices. The 
publication IBM System/360 Operating 
System: Storage  stimates, Form GC28-6551, 
is intended to assist in estimating main 
Storage requirements. 


Тһе sort program will work with the 
above minimum storage requirements, but may 
not provide the most efficient performance 
for a particular application. In general, 
the efficiency of the sort program improves 
as the main storage space it can use 
increases. The sort program will, if 
sufficient storage is available, select the 
most efficient sorting technique for a 
given application. The minimum storage 
requirements for the selection of the most 
efficient technique are: 

Main storage: 24,000 bytes (PCP,MFT) 
26,000 bytes (MVT) 


Auxiliary storage: See Figure 15-2. 


The devices used must not be mixed; 
either all tape units or all direct-access 
devices of the same type must be used. : 
Tape units can be 7- or 9-track, ora 
mixture of both. 


When direct-access devices are used, 
then sort performance is improved if: 


1. Each data set is kept on a separate 
device. 


2. The number of data sets used is a 
minimum. 


3. А11 data sets are the same length. 


Data Sets 


Some or all of the following DD statements, 
in addition to the DD statements for the 
PL/I program, are required for a job step 
that uses both PL/I and the sort program. 
These DD statements are given in Figure 
14.3. | 


The parameters for all but two of these 
data sets depend on the particular 
application requiring the sort. The two 
exceptions are: 


//SORTLIB DD DSNAME-SYS1.SORTLIB,DISP-OLD 
Z/ SYSOUT DD SYSOUT-A 


In an MVT environment, DISP-SHR should be 
specified in the SORTLIB DD statement. 


PL/I sort checkpoints, if required, can 
be written on a data set identified by the 
DD statement //SORTCKPT DD ... etc. A 
deferred restart of a PL/I sort should use 
the DD statement //SYSCHR DD ... etc., to 
identify the checkpoint data set to the 
restart program. Further information on 
the use of checkpoint/restart is given in 
the section 'Checkpoint/Restart' in this 
chapter. 


prey uU US ттт еен е нн шыр янар ушынын аан л 
| lAuxiliary-Storage Device | 
| ---------- т----------------------- ---і 
| | Number of| Number of Data Sets | 
| |Magnetic р-------- т--------т-------- 1 
| | Tapes | 2301 | 2311 | 2314 | 
|------~---------------}---------}-------- f-------- +-—————- { 
| Minimum storage for | | | | | 
{ most efficient | 4 | 3 | 3 | 3 | 
| performance | | i | | | 
p--—--——--------------- %--------- -------- ------- -------- 1 
| Maximum storage | | | | | 
| permitted | 32 | 6 | 6 | 17 | 
m —— ———— D—————S — c —— P —— €: J 


Figure 14-2. 


Auxiliary Storage required for Sort. 
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paeem mem ытын eS анаа enum me ism uiu 1 
| ddname | Use of DD statement | 
р---------- %------------------------------ 1 
| SORTIN | Input to the sort program, 

| | not required if IHESRTB or 

| | IHESRTD is used. 

| | 

| SORTOUT | Output from the sort program, 
| | not required if IHESRTC or 

| | IHESRTD is used. 

| | 

| SORTWKO1 | Data sets for sort program 

| SORTWKO2 | work space: at least three 

| SORTWK03 | (six for a 2314) are 

| е | required. 31 is the maximum 
| ы | that the sort program can 

| . | use. 

| SORTWKnn | 

E | 

| SORTLIB | Program library used by the 

| | sort program, always 

| | required. 

| | 

| SYSOUT | Data set used by the sort 

| | program for its diagnostic 

| | messages, always required. 

| | 

| SORTCKPT | Optional data set for 

| | checkpoints taken during 

| | sorting. 

бышышы Бел шы шышы айы Шш ЫШЫ шы ы 


Figure 14.3. DD Statements for Sort/Merge 


If both the following occur: 


// SYSOUT DD  SYSOUT-A 
//SYSPRINT DD SYSOUT=A 


and the SYSOUT device is a magnetic-tape 
unit, you must take care that the two data 
sets do not use the same output device. 
This can be avoided by specifying a 
different device class for each data set. 


DD statements for the sort program files 
SORTIN and SORTOUT are required only when 
the sort program obtains records for 
sorting directly from a data set, or when 
it writes the sorted records directly onto 
a data set. If they are required, there 
must not be any PL/I files with the same 
names or titles. The sort files are opened 
or closed by the sort program. SORTCKPT, 
SYSUDUMP, and PLIDUMP are optional, as is 
the number of SORTWKxx statements. 


If you use a cataloged procedure for the 
job or job step in which sort is invoked, 
the appropriate DD statements for the sort 
program must be added to the appropriate 
procedure step. 


if the sort program is in a private 
library, and not SYS1.LINKLIB, either a 
//JOBLIB DD statement or a //STEPLIB DD 
Statement will be required for that private 
library. 
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USER CONTROL OF SORT DDNAMES 


For multiple invocations of the sort 
program within a single job step, the 
Standard ddnames SORTIN, SORTOUT, SORTWK 
and SORTCKPT can be changed by replacing 
the first four characters of the ddnames. 
This is achieved by adding an extra 
argument to the end of the argument list in 
the CALL statement. The argument is a 
character string of any length. 


If the string is null, the standard 
ddnames remain unchanged. If the string is 
more than four characters long, only the 
first four characters are used. If the 
string is from one to four characters long, 
the first one to four characters in the 
standard ddnames are replaced. 


The first character in the string must 
be alphabetic; otherwise, either a 
file-opening error may occur in the sort 
program or an error will occur during 
Scheduling of the job step if an invalid 
ddname is found. 


The PL/I (F) compiler does not permit а 
variable number of arguments to the same 
entry name in separate CALL statements. 
Therefore, a compilation which invokes 
multiple sorting operations must contain 
the CALL statements with the argument to 
specify the ddnames set to null ('') when 
using standard ddnames, and set to the 
required character string for the modified 
ddname. 


Example: 


TEST: PROC OPTIONS (MAIN) ; 


/*USING STANDARD DDNAME*/ 
DCL STRING CHAR(2) INIT('PA'); 
CALL IHESRTA(ARG1, ARG2,ARG3, 
ARGH, 8%; 


/*IN USING MODIFIED DDNAMES*/ 
CALL IHESRTA(ARG1,ARG2,ARG3, ARGH, 
STRING); 


END TEST; 


In this example, the first invocation of 
IHESRTA requires the standard DD 
statements: 


// SORTIN DD ... 
//SORTOUT DD ... 
//SORTWKOl DD ... 
//SORTWK02 DD ... 


in the second invocation of IHESRTA, the 
following modified DD statements are 
required: 


//PARTIN DD ... 
//PARTOUT DD ... 
//PARTWKOl DD ... 
//PARTWKO2 DD ... 


DEFINING THE SORTING APPLICATION 


The information defining the data to be 
sorted and the records in which it exists 
is described in two sort program 
Statements, the SORT statement and the 
RECORD statement. 


The SORT Statement 


The SORT statement describes the control 
fields within a record on which the sort is 
to be made. А SORT statement must be 
passed to the sort program as an argument 
of the CALL statement. Up to sixty-four 
control fields are permitted. The format 
of the SORT statement is: 


SORT FIELDS-(b,l,f,s[L[,b,1l,f,sl...) 
[,SIZE-m]lÍ,SKIPREC-21][,CKPT] 


or alternatively 


SORT FIELDS=(b,1,s(,b,1,s]...) FORMAT-X 
[,SIZE-ml[,SKIPREC-xl[,CKPT] 


where: 


b = first byte of the field to be sorted. 
Binary data can start on any bit within 
a byte and is specified, for example: 


7.2 Bit 2 in byte 7 
10.3 Bit 3 in byte 10 


All other data starts on a byte 
boundary, which is specified as an 
integer. 


1 = length (in bytes) of the control field. 
Since binary data can start and end on 
any bit, its length is specified in the 


byte-bit notation given above. For 
example: 


2.1 the length of the binary data 
field is 17 bits 


All other lengths are specified as 
integers. 


f = data type. The code for the various 
data types is: 


BI Binary 

CH Character 

FI Fixed-point 

FL Floating-point 
PD Packed decimal 
ZD zoned decimal 


If all the control fields have the same 
data type, Ё can be omitted from the 
specification of individual control 
fields and FORMAT=x (where x is the 
data type) inserted after the right 
parenthesis and before the SIZE option, 
if used. 


These sort data-type codes correspond 
to the following PL/I data types: 


Sort PL/I 
BI BINARY 
BIT 
CH CHARACTER 
FI FIXED BINARY 
FL FLOAT BINARY 
FLOAT DECIMAL 
PD FIXED DECIMAL 
ZD PICTURE 


s = the order in which the contents of the 
field are to be sorted. Тһе codes are: 


A ascending order 
D descending order 


SIZE = m is the number of records to be 
sorted. If this number is not known 
precisely, an estimated total can be 
specified thus: 


SIZE-Em 


If a precise number of records is given, 
and more than this number is contained in 
the input to the sort, the sort will be 
terminated. If an estimated number is 
given or if the SIZE option is not 
specified and the intermediate storage is 
sufficient to contain all the records to be 
sorted, the sort will be completed; 
otherwise, the sort will be terminated. 
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SKIPREC = z is the number of records to be 
skipped before the sort begins. This 
allows a sort to begin at any point in 
a data set, omitting any records for 
which a sort is not required. 


CKPT specifies that a checkpoint should be 
taken at several points in the sort 
program. 


The specification of these sort control 
fields is subject to the following 
restrictions and conventions: 


1. The total lengths specified for all 
the control fields in а SORT statement 
must not be greater than 256 bytes. 

If binary data specifies part of a 
byte, the whole of that byte must be 
included in the length count. For 
example, a binary field starting at 
11.3 and ending at 27.2 is 17 bytes 
long. 


2. А11 the control fields specified by 
the SORT statement must be in the 
first 4092 bytes of the record. 

3. The maximum length of a decimal 


control field is 16 bytes; all other 
fields can be up to 256 bytes long. 


The RECORD Statement 


The RECORD statement describes the format 
and length of the records to be sorted. 
The format is: 

RECORD TYPE-r, LENGTH=(1,,12,1s3,ly,1;) 


where: 


It 


к record format. The code is: 
F fixed-length 
V variable-length 


1, = length of each record in the input 
data set, as follows: 


F-format: 
V-format: 


record length 
maximum record length 


The length must be the same as the 
LRECL value in the DCB parameter for 
the SORTIN data set; if it is not, the 
LRECL value is taken. 


1„ = length of each record to be handled by 
the sort program, as follows: 


F-format: 
V-format: 


record length 
maximum record length 
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If this value is not given in the 
RECOR" statement, it is assumed to be 
equal to 1,. 


14 = length of each record in the output 
data set, as follows: 


F-format: 
V-format: 


record length 
maximum record length 


If this value is not given in the 
RECORD statement, it is assumed to be 
equal to 12. Тһе value must be the 
same as the LRECL value in the DCB 
parameter in the SORTOUT data set; if 
it is not, the LRECL value is taken. 


1„ = minimum length of V-format records in 
the input data set. If this value is 
not given, it is assumed to be the 
greater of: 


1. The minimum necessary to contain 
the control fields specified in 
the SORT statement, or 


2. The minimum physical-record 
length required by the operating 
system. 


1, = the most frequently occurring record 
length in a data set containing 
V-format records. It is called the 
modal length. If this value is not 
given, it is assumed to be the average 
of the minimum and maximum lengths of 
the records in the input data set. 


The specifications of these RECORD 
fields is subject to the following 
restrictions and conventions: 


1. Тһе lengths specified for V-format 
records must include the ü-byte count 
field at the beginning of each record. 


2. When a direct-access device is used 
for auxiliary storage, the record 
length must not exceed one track. 


3. The record format must be the same as 
that specified in the RECFM 
subparameter in the DCB parameter for 
the SORTIN and SORTOUT data sets. ТЕ 
it is not, the SORTIN RECFM 
specification is used. 


ц. Values in the LENGTH parameter that 
are equal to those assumed by the 
program can be dropped from the 
operand. Values dropped from the 
right-hand end of the operands are 
simply omitted; values dropped at the 
beginning or middle of the operand 
must be indicated by commas: 


LENGTH-(1,,13) 
LENGTH-(1,,,,1,) 


ENTRY POINT IHESRTA 


Entry point IHESRTA is used for sorting 


records from one data set to another. 


format of the 


The 
CALL statement is: 


CALL IHESRTA (argument, argumentas 


where: 


argument, = 


argument, = 


argument, = 


argument, = 


argument,;,argument ,); 


a character-string expression 
representing the SORT 
statement. 


a character-string expression 
representing the RECORD 
statement. 


an arithmetic expression that 
on evaluation gives a 
fixed-point binary integer of 
precision (31,0) specifying 
the amount of main storage 
available to the sort 
program. 


a fixed-point binary integer 
variable of precision greater 
than 15, that will contain 
the value of the return code 
returned by the sort program: 
0 sort successful, 16 sort. 
unsuccessful. 


IHESRTA must be declared as an entry 


name with the 


appropriate parameters. 


The value of the character-string 
expression for the SORT and RECORD 


statement has 


the form: 


"bstatementb' 
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The blanks at the beginning and the end of 
the expression are always required. An 
embedded blank must occur between SORT and 
FIELDS, and between RECORD and TYPE; no 
other embedded blanks are permitted. 


When character-string constants are used 
that are too long for one record of the 
PL/I source program, they are continued in 
the following record. You must take care 
that embedded blanks are not inadvertently 
inserted at the beginning and end of such 
records; the value of the SORMGIN parameter 
must be taken into consideration. 


A PL/I program that uses IHESRTA 
requires both the SORTIN and SORTOUT DD 
statement, as well as any others that are 
necessary. 


An example of such a program is given in 
Figure 14-4. This program sorts 80-byte 
records into an ascending sequence 
according to the alphanumeric data 
contained in two control fields. The major 
control field is in bytes 75 to 80; the 
minor control field is in bytes 16 to 21. 
The input records are obtained from the 
input stream. The sorted records are 
written onto a new temporary data set from 
which they are retrieved and printed by the 
PL/I program in job steps STEP3 and STEP4. 
Included in the output for this job are 
sort program diagnostic messages. These 
messages include the number of records that 
are in the input data set, and the number 
of records transmitted to the output data 
set. These numbers should be identical. 
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//R20A JOB 
//STEP1 EXEC PLILFCL 
//PLAL.SYSIN DD * 
/* PL/I PROGRAMMING EXAMPLE USING IHESRTA */ 


SORTA: PROC OPTIONS(MAIN); 
/* ESTABLISH ENTRY POINTS TO THE SORT PROGRAM */ 


DCL IHESRTA ENTRY(CHAR(35),CHAR(27),FIXED BIN(31,0), 
FIXED BIN(31,00), 
RETURN CODE FIXED BIN(31,0); 


/% INVOKE THE SORT PROGRAM */ 


CALL IHESRTA (' SORT FIELDS-(75,6,CH,A,16,6,CH,A) ', 
' RECORD TYPE-F,LENGTH-(80) *, 
25000, /*MAIN STORAGE FOR SORT PROGRAM */ 
RETURN CODE); 


иж TEST RETURN CODE */ 


IF RETURN CODE = 16 THEN PUT SKIP EDIT ('SORT FAILED") (А); 
ELSE IF RETURN_CODE = 0 THEN PUT SKIP EDIT ("SORT COMPLETE‘ ) 
(A); | 
ELSE PUT SKIP EDIT (‘INVALID SORT RETURN CODE.  CODE-', 
RETURN_CODE) (A); 
END SORTA; 
/* 
//STEP2 EXEC PGM=*.STEP1.LKED.SYSLMOD 
//SYSOUT DD SYSOUT-A 
//SYSPRINT DD SYSOUT-A 
//SORTLIB DD DISP-SHR,DSN-SYS1.SORTLIB 
//SORTWK01 DD UNIT=2314 ,SPACE= (TRK, (60,20),,CONTIG) 
//SORTWK02 DD UNIT=2314, SPACE=(TRK, (60,20),,CONTIG) 
//SORTWKO3 DD UNIT=2314,SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWKO4 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWK05 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWKO6 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTOUT DD DSNAME-6&TEM,DISP-(NEW,PASS), 
// SPACE- (TRK, (1,1)) , UNIT=2314, DCB=(RECFM=F, LRECL=80, BLKSIZE=8 0) 
//SORTIN DD * 
AAAAAA 
222272 
ayyy 
CCCCCC 
XXXXXX 
CCCCCC 
CCCCCC 
сссссс 
CCCCCC 
333333 
VVVVVV 
ЕКЕЕБЕ 
333333 
/ж 
//STEP3 EXEC PLILFCL 
//PLAL.DUMP DD DSNAME=&&GOSET(GO) , DISP= (OLD, DELETE) 
//РІ11,.5Ү5ІМ DD * 
/* PL/I ROUTINE TO PRINT OUTPUT FROM SORT PROGRAM EXAMPLES */ 
P: PROC OPTIONS(MAIN); 
DCL SORTOUT FILE INPUT RECORD, 
CHARS CHAR(80) VAR; 
ON ENDFILE(SORTOUT) GOTO ENDP; 
L: READ FILE(SORTOUT) INTO (CHARS); 
PUT SKIP EDIT (CHARS) (A); 
GOTO L; 
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АААААА 
222222 
шынын 
2227277 
999999 
888888 
АААААА 
222222 
222222 
272222 
AAAAAA 
AAAAAA 
222222 


ENDP: END Р; 
/* 
//STEP4 EXEC PGM=*.STEP3 .LKED.SYSLMOD 
//SYSPRINT DD SYSOUT-A 


//SORTOUT DD DSNAME=6&&TEM, DISP=(OLD, DELETE) , UNIT=2314 


Figure 14-4, PL/I Program Invoking IHESRTA 


ENTRY POINT IHESRTB 


Entry point IHESRTB is used for sorting 
records constructed or updated in a PL/I 
procedure and placing the sorted records in 
a data set. The format of the CALL 
statement is: 


CALL IHESRTB(argument,,argumenta,argument;, 
argument ,,argument,); 


where: 
arguments,-, = as for IHESRTA 


argument, = entry name of the PL/I 
procedure supplying the 
records to the sort 
program. 


The PL/I records are passed to an entry 
point in the sort program called a user 
exit E15. (A user exit is a point in the 
executable code of the sort program at 
which control can be received from or 
passed to a user program.) 


A PL/I procedure invoked from user exit 
E15 uses a RETURN statement to pass to the 
sort program a character-string 
representation of the record to be sorted. 
If the record is not in character-string 
form, it must be defined on a character 
String and then passed. This may lead to 
difficulties in the PL/I program. The 
language rules specify that the attributes 
of the defined and the base items must 
match exactly except for their lengths, and 
that string overlay defining on an 
aggregate parameter is not permitted. 
implementation of the PL/I (F) compiler 
permits the use of differing attributes and 
of this type of overlay defining, and 
produces error(E) diagnostics when these 
situations occur. Successful link-editing 
and execution are possible, provided the 
condition codes in the appropriate EXEC 
statements allow the step concerned to be 
executed. 


The 


Return Codes from PL/I to Sort 


In addition to the return code supplied by 
the sort program to the PL/I program, the 
PL/I program must pass a return code to the 
sort program to indicate whether there are 
any more records to be passed for sorting. 
This return code is set by one of the 
following statements: 


CALL IHESARC (n); 
CALL IHETSAC(n); 


(single-task programs) 
(multitasking programs) 


where n has the values: 


8 No more records will be passed 
12 Sort the next record to be passed 


If the CALL IHETSAC(n) statement is to 
be used, the TASK option must be specified 
in the main PROCEDURE statement. 


IHESARC or IHETSAC must be declared as 
an entry of precision (31,0), for example: 


DCL IHESARC ENTRY(FIXED BINARY(31,0)); 


Example 


An example of a PL/I program that uses 
IHESRTB is given in Figure 10-5. This 
program sorts records similar to those in 
the example in Figure 14-4. The PL/I 
procedure E15A is invoked from the sort 
program user exit E15. This procedure 
returns a character string that is inserted 
by the sort program into the sort. The 
Sorted records are transmitted by the sort 
program to a temporary data set defined by 
the DD statement SORTOUT, from which they 
are retrieved and printed by the PL/I 
program in job steps STEP3 and STEPH. 
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//R20B JOB 
//STEPl EXEC PLILFCL 
//PLIL.SYSIN DD * 
иж PL/I PROGRAMMING EXAMPLE USING IHESRTB */ 


SORTB: PROC OPTIONS (MAIN); 
/* DECLARE SORT PROGRAM ENTRY AND EXIT POINTS */ 
DCL IHESRTB ENTRY (CHAR (35) ,CHAR(27) ,FIXED(31,0), 
FIXED BIN(31,0),ENTRY), 
IHESARC ENTRY(FIXED BIN(31,0)), 
E15A ENTRY RETURNS (CHAR(80)), 
RETURN CODE FIXED BIN(31,0); 
/* INVOKE THE SORT PROGRAM */ 
CALL IHESRTB (' SORT FIELDS=(75,6,CH,A,16,6,CH,A) ', 
' RECORD TYPE-F,LENGTH-(80) ', 
25000, /* MAIN STORAGE FOR SORT PROGRAM */ 
RETURN CODE,E15A); 
/* TEST RETURN CODE */ 


IF RETURN CODE = 16 THEN PUT SKIP EDIT (‘SORT FAILED") (A); 


ELSE IF RETURN CODE = 0 THEN PUT SKIP EDIT ('SORT COMPLETE") (А); 


ELSE PUT SKIP EDIT ('INVALID SORT RETURN CODE. CODE=", 
RETURN CODE) (A); 


E15A: /* THIS PROCEDURE OBTAINS RECORDS FROM THE INPUT STREAM */ 


/* AND CHECKS FOR NUMERIC OR ALPHABETIC CODES BEFORE 


/* PASSING ONLY THOSE WITH ALPHABETIC CODES TO THE SORT 


/* PROGRAM. RECORDS WITH NUMERIC CODES ARE LISTED. 


PROC RETURNS (CHAR (80)); 
DCL SYSIN FILE RECORD INPUT; 
ON ENDFILE(SYSIN) BEGIN; 


PUT SKIP(3) EDIT ("END OF SORT PROGRAM INPUT‘) (А); 
CALL IHESARC(8); /* SIGNAL END OF SORT INPUT */ 


GOTO ENDE15; 
END; 
DCL INFIELD CHAR(80), FIELD1 CHAR(6) DEF INFIELD 
POS (75); 
NEXT: READ FILE (SYSIN) INTO (INFIELD); 
IF FIELD1 > 'ZZ22222*' THEN DO; 
PUT SKIP EDIT (INFIELD) (A); 
GOTO NEXT; 
END; 
CALL THESARC(12); /* INPUT TO SORT CONTINUES */ 
RETURN (INFIELD); 
ENDE15: END E15A; 


END SORTB; 

/% 

//STEP2 EXEC PGM-*.STEP1.LKED.SYSLMOD 

//SYSOUT DD SYSOUT-A 

//SORTOUT DD DSNAME-&6&TEM, DISP- (NEW, PASS), 

// SPACE- (TRK, (1,1)) ,UNIT=2314, DCB=(RECFM=F, LRECL=80, BLKSIZE-80) 
//SYSPRINT DD SYSOUT-A 

//SORTLIB DD DISP-SHR,DSN-SYS1.SORTLIB 

//SORTWK01 DD UNIT-2314,SPACE- (TRK, (60,20) ,, CONTIG) 
//SORTWK02 DD UNIT-2315,SPACE- (TRK, (60,20) ,, CONTIG) 
//SORTWK03 DD UNIT-23140,SPACE- (TRK, (60,20) ,, CONTIG) 
//SORTWK0U DD UNIT=2314, ЅРАСЕ= (TRK, (60,20) ,, CONTIG) 
//SORTWK05 DD UNIT=2314,SPACE=(TRK, (60,20),,CONTIG) 
//SORTWK06 DD UNIT-2314,SPACE- (TRK, (60,20) ,, CONTIG) 
//SYSIN DD * 
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*/ 
*/ 
*/ 


АААААА АААААА 


222222 222222 
цацццц цццццц 
cccccc 222222 
XXXXXX 999999 
CCCCCC 22222Р 
сссссс 888888 
сссссс АААААА 
сссссс 222222 
сссссс 22222А 
333333 222222 
VVVVVV AAAAAA 
EEEEEE AAAAAA 
333333 222227 


/% 
//STEP3 EXEC PLILFCL 
//PL1L.DUMB DD DSNAME=§ &GOSET (GO) , DISP= (OLD, DELETE) 
//PLAL.SYSIN DD * 
/* PL/I ROUTINE TO PRINT OUTPUT FROM SORT PROGRAM EXAMPLES */ 
P: PROC OPTIONS (MAIN); 
DCL SORTOUT FILE INPUT RECORD, 
CHARS CHAR(80) VAR; 
ON ENDFILE(SORTOUT) GOTO ENDP; 
L: READ FILE(SORTOUT) INTO (CHARS) ; 
PUT SKIP EDIT (CHARS) (A); 
GOTO L; 
ENDP: END P; 
/% 
//STEPU EXEC PGM-*.STEP3.LKED.SYSLMOD 
//SXSPRINT DD SYSOUT-A 
//SORTOUT DD DSNAME=&&TEM, DISP= (OLD, DELETE) , UNIT=2314 


Figure 14-5. PL/I Program Invoking IHESRTB 

ENTRY POINT IHESRTC difficulties can be expected here as for 
IHESRTB. 

Entry point IHESRTC is used for sorting 


records from a data set and then passing 
them one-by-one to a PL/I procedure. The 


format of the CALL statement is: Return Codes from PL/I to Sort 
CALL IHESRTC (argument, ,argument,,argument;, 
argument,,argument „); A return code may be passed by the PL/I 
procedure to the sort program, using the 
where: CALL IHESARC(n) or CALL IHETSAC(n) 


statement. The return code values are: 


arguments .4-, as for IHESRTA 


4 the record passed has been accepted, 


argument, = entry name of the PL/I pass the next record 
procedure to which the 
sorted records are to be 8 stop passing records, even if there 
passed. are still more to come. 


When IHESRTC is used, each record that 


appears in the sorted output is passed to IHESARC and IHETSAC must be declared as an 
user exit E35. The PL/I procedure entry of precision (31,0). 
associated with this user exit is invoked 
for each record that it receives as a If no return code is passed the sort 
parameter. program continues to pass records until all 
have been passed. 

the records passed by the sort program An example of a PL/I program that uses 
must be in a character-string form. If IHESRTC is given in Figure 14-6. This 
this form is not the one required by the program sorts records similar to those in 
PL/I program, then the PL/I record must be the previous examples. The PL/I procedure 


defined on a character string. The same E35A is invoked from the sort program user 
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//R20C JOB 
//STEP1 EXEC PLILFCL 
//PLIL.SYSIN DD ж 


/»* 


/* 


PL/I PROGRAMMING EXAMPLE USING IHESRTC */ 


SORTC: PROC OPTIONS (MAIN); 


/% 


DECLARE SORT PROGRAM ENTRY AND EXIT POINTS */ 


DCL IHESRTC ENTRY (CHAR(35),CHAR(27),FIXED BIN(31,0), 
FIXED BIN(31,0),ENTRY), 
IHESARC ENTRY(FIXED BIN(31,0)), 
E35A ENTRY, 
RETURN_CODE FIXED BIN(31, 0); 


INVOKE THE SORT PROGRAM */ 


CALL IHESRTC (' SORT FIELDS-(75,6,CH,A,16,6,CH,A) ', 
“ RECORD TYPE-F,LENGTH-(80) ', 
25000, /* MAIN STORAGE FOR SORT PROGRAM */ 
RETURN CODE, E35A); 


/* TEST RETURN CODE */ 


IF RETURN CODE - 16 THEN PUT SKIP EDIT ('SORT FAILED')(A); 
ELSE IF RETURN CODE = 0 THEN PUT SKIP EDIT ("SORT COMPLETE')( A); 
ESLE PUT SKIP EDIT ('INVALID SORT RETURN CODE. CODE-', 
RETURN CODE) (A); 


E35A: /* THIS PROCEDURE OBTAINS SORTED RECORDS FROM THE */ 
7* SORT PROGRAM AND LISTS THEM. DUPLICATE RECORDS  */ 
7* ARE IGNORED. 


PROC (INREC); 
/* PRINT HEADING FOR SORTED OUTPUT ON SYSPRINT */ 


DCL I STATIC INIT(0); 

IF I = 0 THEN DO; 
PUT SKIP EDIT ('OUTPUT FROM E35 SUBROUTINE') (A); 
І-1: 
END; 


/* PROCESS SORTED RECORDS */ 
DCL INREC CHAR(80), 
PREVREC CHAR(80) STATIC INIT(' '); 
IF INREC-PREVREC THEN GOTO NEXT; /* IGNORE THIS RECORD */ 
ELSE DO; 
PREVREC-INREC; /* STORE CURRENT RECORD */ 
PUT SKIP EDIT (INREC) (A); 


END; 
NEXT: CALL IHESARC(4); /* REQUEST NEXT RECORD FROM SORT */ 
END E35A; 
END SORTC; 


//STEP2 EXEC PGM-*.STEP1.LKED.SYSLMOD 

//SYSOUT DD SYSOUT-A 

//SYSPRINT DD SYSOUT-A 

//SORTLIB DD DISP-SHR,DSN-SYS1.SORTLIB 

//SORTWKOL1 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWK02 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWK03 DD UNIT=2314, SPACE=(TRK, (60, 20) ,, CONTIG) 
//SORTWKO4 DD UNIT=2314, ЅРАСЕ= (ТЕК, (60,20) ,, CONTIG) 
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//SORTWKO5 DD ОМІТ=2314,5РАСЕ= (ТАҚ, (60,20) ,, CONTIG) 
//SORTWKO6 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 


//SORTIN DD * 
АААААА 
222222 
анын 
сссссс 
XXXXXX 
сссссс 
сссссс 
сссссс 
сссссс 
сссссс 
333333 
VVVVVV 
EEEEEE 
333333 

/ж 


Figure 14-6. 


exit E35. This procedure receives a 

character-string representing a sorted 
record from the sort program. 
the sort program is in the input stream. 


ENTRY POINT IHESRTD 


Entry point IHESRTD is used for sorting 
records constructed or updated by a PL/I 
function and then passing them one-by-one 
to another procedure. The format of the 
CALL statement is: 


CALL IHESRTD(argument,,argumenta;,argument;, 
argument,,argument,,argument,); 


where: 


arguments4-, = as for IHESRTA 


" 


PL/I Program Invoking IHESRTC 


The input to 


AAAAAA 
222277 
цццццц 
222272 
999999 
222222 
AAAAAA 
AAAAAA 
22222р 
222222 
222222 


argument, = entry name of the PL/I 
procedure supplying the 
records to the sort program 

argument 6 = entry name of the PL/I 


procedure to which the 
sorted records are to be 
passed 


An example of a PL/I program that uses 
IHESRTD is given in Figure 14-7. This 
program sorts records similar to those in 
the previous examples. The PL/I procedure 
E15A is invoked from the sort program user 
exit E15. This procedure return a 
character string that is inserted by the 
sort program into the sort. At the end of 
the sort, the sorted records are associated 
with a character string parameter in the 
PL/I procedure E35A, which is invoked from 
the sort user exit E35 for each record 
emerging from the sort. 
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//7R20D JOB 
//STEP1 EXEC PLILFCL 
//PL1IL.SYSIN DD * i 
/* PL/I PROGRAMMING EXAMPLE USING IHESRTD */ 


SORTD: PROC OPTIONS (MAIN); 
/* DECLARE SORT PROGRAM ENTRY AND EXIT POINTS */ 


DCL IHESRTD ENTRY(CHAR(35),CHAR(27),FIXED BIN(31, 0), 
FIXED BIN(31,0), ENTRY, ENTRY), 
IHESARC ENTRY (FIXED BIN(31,0)), 
E15 ENTRY RETURNS (CHAR(80)), 
E35 ENTRY, 
RETURN_CODE FIXED BIN(31,0); 


/% INVOKE THE SORT PROGRAM */ 


CALL IHESRTD (' SORT FIELD=(75,6,CH,A,16,6,CH,A) ", 
' RECORD TYPE-F,LENGTH-(80) ', 
25000, /* MAIN STORAGE FOR SORT PROGRAM */ 
RETURN CODE, E15A,E35A); 


/* TEST RETURN CODE */ 
IF RETURN CODE - 16 THEN PUT SKIP EDIT ('SORT FAILED')(A); 
ELSE IF RETURN CODE = 0 THEN PUT SKIP EDIT ('SORT COMPLETE") (А); 
ELSE PUT SKIP EDIT (‘INVALID SORT RETURN CODE. CODE-', 
RETURN_CODE) (А); 


E15A: /* THIS PROCEDURE OBTAINS RECORDS FROM THE INPUT STREAM */ 


/* AND CHECKS FOR NUMERIC OR ALPHABETIC CODES BEFORE */ 
/* PASSING ONLY THOSE WITH ALPHABETIC CODES TO THE SORT */ 
/* PROGRAM. RECORDS WITH NUMERIC CODES ARE LISTED. */ 


PROC RETURNS(CHAR(80)); 
DCL SYSIN FILE RECORD INPUT; 
ON ENDFILE(SYSIN) BEGIN; 
PUT SKIP(3) EDIT ('END OF SORT PROGRAM INPUT.', 
'SORTED OUTPUT SHOULD FOLLOW') (A); 
CALL IHESARC(8); /* SIGNAL END OF SORT INPUT */ 
GOTO ENDE15; 
END; 
DCL INFIELD CHAR(80), FIELD1 CHAR(6) DEF INFIELD 
POS (75); 
NEXT: READ FILE (SYSIN) INTO (INFIELD); 
IF FIELD1 > "2722277" THEN DO; 
PUT SKIP EDIT (INFIELD) (A); 
GOTO NEXT; 
END; 
CALL IHESARC(12); /* INPUT TO SORT CONTINUES */ 
RETURN (INFIELD); 
ENDE15: END E15A; 
E35A: /* THIS PROCEDURE OBTAINS SORTED RECORDS FROM THE  */ 
/* SORT PROGRAM AND LISTS THEM.  DUPLICATE RECORDS */ 
/* ARE IGNORED. */ 


PROC (INREC); 
/* PRINT HEADING FOR SORTED OUTPUT ON SYSPRINT */ 
DCL I STATIC INIT(0); 
IF I = 0 THEN DO; 
PUT SKIP EDIT ('OUTPUT FROM E35 SUBROUTINE')(2); 
I=1; 
END; 


/* PROCESS SORTED RECORDS */ 
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DCL INREC CHAR(80), 
PREVREC CHAR(80) STATIC INIT(" '); 
IF INREC-PREVREC THEN GOTO NEXT; /* IGNORE THIS RECORD */ 


ELSE DO; 


PREVREC-INREC; /* STORE CURRENT RECORD */ 


PUT SKIP EDIT (INREC) (A); 


END; 
NEXT: 
RETURN; 
END E35A; 
END SORTD; 
/% 
//STEP2 EXEC PGM-*.STEP1.LKED.SYSLMOD 
//SYSOUT DD SYSOUT-A 
//SYSPRINT DD SYSOUT-A 
//SORTLIB DD DISP-SHR,DSN-SYS1.SORTLIB 


CALL IHESARC(4); /* REQUEST NEXT RECORD FROM SORT */ 


//SORTWK01 DD UNIT-2314,SPACE- (TRK, (60,20) ,, CONTIG) 
//SORTWKO2 DD UNIT=2314, SPACE= (TRK, (60,20) ,, CONTIG) 
//SORTWK03 DD UNIT=2314, SPACE= (ТЕК, (60,20) ,, CONTIG) 
//SORTWKO4 DD UNIT-2314,SPACE- (TRK, (60,20) ,, CONTIG) 
//SORTWK05 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWK06 DD UNIT=2314, ЅРАСЕ= (ТЕК, (60,20) ,, CONTIG) 


//SXSIN DD * 
222227 
277777 
цацццц 
сссссс 
ХХХХХХ 
сссссс 
сссссс 
сссссс 
сссссс 
333333 
VVVVVV 
EEEEEE 
333333 

/* 


Figure 14-7. PL/I Program Invoking IHESRTD 


SORTING VARIABLE-LENGTH RECORDS 


When you wish to use the PL/I sorting 
facilities to sort variable-length records, 
you should note the following points: 


1. Тһе portion of a variable-length 
record that contains the control field 
or fields on which the sort is to be 
performed must be present and of the 
same length for every record to be 
sorted. A sort cannot be performed on 
control fields whose length or 
position within a record is liable to 
alter. Thus the control fields would 
be expected within the minimum length 
given for the records in the RECORD 
control statement. 


2. The length of each record is recorded 
in the first four bytes of the record. 
Provision for this length field should 
be made when you specify the sort 
control fields in the SORT control 
statement. 
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3. Varying-length strings passed from а 
PL/I user exit E15 procedure will have 
the length field added to the record 
automatically; the length will be the 
current length of the character string 
plus four bytes for the field itself. 
The same applies if fixed-length 
strings of different lengths are 
returned from the E15 procedure. 


4. The four-byte length field is removed 
from variable-length records passed to 
a PL/I user exit E35 routine. 


An example of a PL/I program that uses 
IHESRTA to sort variable-length records is 
given in Figure 14-8. This example 
includes a PL/I program to create a data 
set of variable-length records from data 
items obtained from the input stream. The 
sort is performed on alphanumeric data in 
the first six bytes following the length 
field in each record. A third PL/I program 
retrieves the sorted variable-length 
records from a temporary data set and lists 
them. Note that the maximum record length 
includes four bytes for the length field, 
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and corresponds to the maximum length given 
in the LRECL subparameter. 


USE OF PL/I SORT IN A MULTITASKING 
ENVIRONMENT 


When the sort program is invoked from 
different PL/I tasks, so that two or more 
sorting operations are to be performed 
asynchronously by separate subtasks, the 
following should be noted if the sort 
program diagnostic messages are to be 
printed on the line printer: 
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If the DD statement for the SYSOUT data 
set contains SYSOUT=A in the operand field, 
some sort program messages may be 
overwritten in the data management buffers 
and therefore not printed. Further, the 
program in some cases will terminate 
abnormally or go into a wait state. These 
problems are caused by the inability to 
modify the ddname for the SYSOUT data set 
in the additional tasks that use the sort 
program; they give rise to synchronization 
conflicts within data management. 


This problem does not apply if, when the 
system is generated, the sort program 
messages are specified to be printed on the 
console. 


//R20V JOB 
//STEP1 EXEC PLiLFCLG 
//PlÁL.SYSIN DD ж 
VAR2: PROC OPTIONS (MAIN); 
ON ENDFILE(SYSIN) GOTO END; 
DCL OUT FILE RECORD OUTPUT, 
OUTREC CHAR (80) VAR; 
NEXT: GET LIST (OUTREO); 
PUT SKIP EDIT (OUTREC) (А); 
WRITE FILE (OUT) FROM (OUTREC); 
GOTO NEXT; 
END: END VAR2; 
/* 
//GO.OUT DD DSNAME=&&TEMP, DISP=(NEW, PASS) , SPACE=(TRK, (1,1)), 
// DCB=(, RECFM=V, LRECL=84) , UNIT=2314 
//GO.DUMB DD DSNAME=&&GOSET(GO) ,DISP= (OLD, DELETE) 
//GO.SYSIN DD * 
'003329HOOKER S.W. RIVERDALE, SATCHWELL LANE, BACONSFIELD' 
'002886BOOKER R.R. ROTORUA, MILKEDGE LANE, TOBLEY' 
'003077ROKKER & SON, LITTLETON NURSERIES, SHOLTSPAR' 
*059334HOOK Е.Н. 109 ELMTREE ROAD, GANNET PARK, NORTHAMPTON' 
'73872HOME TAVERN, WESTLEIGH' 
'000931FOREST, IVER, BUCKS' 
/* 
//STEP2 EXEC PLILFCL 
//PL1L.SYSIN DD ж 
VARY1: PROC OPTIONS (МАІМ) ; 
DCL IHESRTA ENTRY (CHAR (24),CHAR(35), 
FIXED BIN(31,0),FIXED BIN(31,0)), 
RETURN CODE FIXED BIN(31,0); 
CALL IHESRTA(' SORT FIELDS=(5,6,CH,A) ' 
' RECORD TYPE=V,LENGTH=(84,,,20,40) ', 
25000, /* MAIN STORAGE FOR THE SORT PROGRAM */ 
RETURN CODE); 
IF RETURN CODE-0 THEN PUT SKIP EDIT 
("SORT COMPLETE!) (A); 
ELSE IF RETURN CODE-16 THEN PUT SKIP EDIT 
("SORT FAILED") (A); 
ELSE PUT SKIP EDIT 
("INVALID SORT RETURN CODE") (A); 
END VARY1; 
/ # 
//STEP3 EXEC PGM=*.STEP2.LKED.SYSLMOD 
//SYSOUT DD SYSOUT=A 
//SYSPRINT DD SYSOUT-A 
//SORTLIB DD DISP-SHR,DSN-SYS1.SORTLIB 
//SORTWKO1 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTWK02 DD UNIT=2314, SPACE= (TRK, (60,20) ,, CONTIG) 
//SORTWK03 DD UNIT=2314, ЅРАСЕ= (ТВК, (60, 20) ,, CONTIG) 
//SORTWKO4 DD UNIT=2314, SPACE= (TRK, (60,20) ,, CONTIG) 
//SORTWK05 DD UNIT=2314, SPACE= (TRK, (60,20) ,, CONTIG) 
//SORTWK06 DD UNIT=2314, SPACE=(TRK, (60,20) ,, CONTIG) 
//SORTIN DD DSNAME=6 &TEMP, DISP= (OLD, DELETE), 
// DCB=(BLKSIZE=88 , LRECL= 84, RECFM=V) 
//SORTOUT DD DSNAME-&&TEM,DISP-(NEW,PASS), 
// SPACE= (TRK, (1,1)),UNIT=2314, DCB- (RECFM-V, LRECL=84, BLKSI ZE-88) 
//STEP4Y EXEC PLILFCL 
//PLiL.DUMB DD DSNAME=&&GOSET (GO) , DISP- (OLD, DELETE) 
//PLiL.SYSIN DD ж 
/* PL/I ROUTINE TO PRINT OUTPUT FROM SORT PROGRAM EXAMPLES */ 
P: PROC OPTIONS(MAIN); 
DCL SORTOUT FILE INPUT RECORD, 
CHARS CHAR(80) VAR; 
ON ENDFILE(SORTOUT) GOTO ENDP; 
L: READ FILE(SORTOUT) INTO (CHARS); 
PUT SKIP EDIT (CHARS) (А); 
GOTO L; 
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ENDP: END Р; 
/ж 
//STEP5 EXEC PGM=*.STEP4.LKED.SYSLMOD 
//SYSPRINT DD SYSOUT-A 
//SORTOUT DD DSNAME-&&TEM,DISP-(OLD,DELETE),UNIT-23140 


Figure 14-8. Using IHESRTA to Sort Variable-length Records 
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Chapter 15: PL/I and Other Languages 


Introduction 


This chapter is presented as two main 
sections. The first is concerned with the 
subject of data set interchange (i.e., 
sharing data sets between programs written 
in different languages); the second is 
concerned with the more complex subject of 
linkage (i.e., direct communication) 
between modules written in different 
languages but forming one program. 


Data Set Interchange 


In general, a PL/I program can use data 
sets produced by programs written in other 
languages, and can produce data sets that 
can be used by these other programs. There 
are some limitations, caused mainly by 
differences in the way in which PL/I data 
is handled, in particular the way in which 
it is mapped and stored, and by the large 
number of different data types available in 
PL/I that are not available in the other 
languages. However, there are many data 
types and modes of storage in PL/I that 
have equivalents in other high-level 
languages. There are also ways in which 
most of the incompatibilities can be 
overcome. A previous incompatibility has 
been removed in the fifth version of the 
PL/I (F) compiler by the use of halfword 
storage for data that is FIXED BINARY and 
has a precision of less than 16. 


PL/I-FORTRAN DATA SET INTERCHANGE 


The major areas of incompatibility between 
PL/I and FORTRAN are as follows: 


1. PL/I has more data types; therefore 
some PL/I data types have no 
equivalent in FORTRAN, notably 
character-string data. 


2. PL/I records can be organized as 
structures in main storage (with the 
elements aligned or unaligned). 
FORTRAN records are built up on 


output, and the elements will not be 
aligned unless written in a particular 
order. 


3. PL/I arrays are stored in row major 
order, while FORTRAN arrays are stored 
in column major order. 


Equivalent Data Types 


Figure 15-1 shows FORTRAN-PL/I data 
equivalents. Note that PL/I numeric 
character data has no direct equivalent in 
FORTRAN. However, it is possible to treat 
a FORTRAN array as a PL/I character string. 


Structures arid Alignment 


The safest course when PL/I structures are 
to be associated with FORTRAN records is to 
declare the structures UNALIGNED. However, 
if the elements of the FORTRAN record have 
been forced into correct alignment (using 
techniques such as writing out the 
variables that form the record in 
descending order of data type length), the 
PL/I structure can be declared ALIGNED. 
Note that unaligned data is less efficient 
than aligned data, often requiring extra 
execution time when accessed. 


Example: 
FORTRAN 
Main storage: INTEGER*2A 
LOGICAL*1B 
REAL*8C 
Output: WRITE(6) C,A,B 
PL/I 


Main storage: DCL 1 R UNALIGNED, 
2 U FLOAT(16), 
2 S FIXED BIN, 
2 T BIT(8); 


Input: READ FILE(FILE6) INTO(R); 
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анастан БЕ a a a OR ORs ee Ss ee ea exe nim 1 
| FORTRAN (Unformatted Record) | PL/I | 
}-----------7-------- т------ ----4---------------------- т--------т----------------------- 1 
| | | | | Alignment | 
| Data Type | Length |Alignment:| Data Type | Length |----------------------- 1 
| | (bytes) | | | (bytes) | Aligned Unaligned | 
|----------- %-------- %------ ----4---------------------- %--------4----------------------- 1 
| INTEGER*2 | 2 | Byte | FIXED BINARY(15) | 2 | Halfword Byte | 
| INTEGER*4 | E | Byte | FIXED BINARY (31) | 4 | Fullword Byte | 
| REAL*4 | 4 і Byte | REAL FLOAT (short) | 4 | Fullword Byte | 
| REAL*8 | 8 | Byte | REAL FLOAT (long) | 8 | Doubleword Byte | 
| COMPLEX*8 | 8 | Byte | COMPLEX FLOAT(short) | 8 | Fullword Byte | 
| COMPLEX *16 | 16 | Byte | COMPLEX FLOAT (long) | 16 | Doubleword Byte | 
| LOGICAL*1 | 1 | Byte | BIT(8) | 1 | Byte Bit2 | 
| LOGICAL*4 | 4 | Byte | BIT (32) | 4 | Byte Byte | 
| = | - | = | CHARACTER | any Byte Byte | 
See EN наана e 
|Notes: *When allocated, the data types generally have the same alignment as listed | 
| under the PL/I equivalents, but after more than one data item has been written | 
| out in one record (equivalent to writing a PL/I structure), this alignment may | 
| be lost, and therefore all items should be considered to be byte-aligned for | 
| input/output. | 
| “The fact that the alignment requirement of unaligned bit strings is bit rather | 
| than byte does not affect PL/I-FORTRAN data interchange, since the FORTRAN | 
| string will always take up an integral number of bytes. | 
Dees қыз шола S ae i et cence салынады le шы ate UR A ese a ы RON RT TEN NE ыса ылы 1 


Figure 15-1. FORTRAN-PL/I Data Equivalents 


In the above example, S, T, and U are 
equivalent data types to A, B, andc 

respectively. 
has been forced in the FORTRAN WRITE 

statement, R could have been declared 
ALIGNED in this case. 


The record format will be either VS or 
VBS, since the FORTRAN object-time library 
automatically uses a spanning technique. 
The record format specified in the PL/I 
ENVIRONMENT attribute (or in the DD 
Statement associated with the PL/I file) 
must match that specified in the DD 
statement associated with the FORTRAN data 
set reference number. 


Arrays 


Arrays of one dimension are stored in the 
same way in both PL/I and FORTRAN, but 
arrays of two or more dimensions are stored 
differently (row major order for PL/I, 
column major order for FORTRAN). The 
solution to this problem is to declare the 
array in one language with subscripts in 
reverse order to the declaration in the 
other language. The record will then be 
correctly associated with the array in 
either program on transmission. 
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As alignment of the elements ` 


Example: 
FORTRAN 
REAL A(2,5,7) 
PL/I 


DCL A(7,5,2) 


The disadvantage of this method as it 
stands is that a reference to the array 
using the same subscripts in the two 
different programs will access different 
elements. A(1,3,6) in FORTRAN would be 
A(6,3,1) in PL/I; the likelihood of program 
error may be increased. This problem can 
be avoided by using iSUB defining in the 
PL/I program. 


Example: 
FORTRAN 
REAL A(2,5,7) 
PL/T 


DCL A1(7,5,2), 
A(2,5,7) DEF A1(3SUB, 2SUB, 1SUB) ; 


Now, if the record is transmitted to or 
from A1 in the PL/I program, a reference to 
a particular element in the FORTRAN program 
will be identical to the PL/I reference to 
that element. 


External Representation of Floating-Point 
Numbers 


The preceding discussions are concerned 
with the internal representation of 
equivalent data types in FORTRAN and PL/I, 
and the interchange of record-oriented data 
sets. The following notes describe an 
incompatibility between PL/I and FORTRAN in 
the external representation of 
floating-point numbers in stream-oriented 
data sets. 


1. For PL/I, the exponent of any 
floating-point number is indicated by 
the character "E". For FORTRAN, the 
exponent of a short-precision 
floating-point number is indicated by 
the character "E" and the exponent of 
a long-precision floating-point number 
is indicated by the character "Dp". 


2. For PL/I, if the exponent of a 
floating-point number is positive, it 
may optionally have a "*" sign. Ifa 
Sign is not present, the exponent 
immediately follows the character "E". 
For example: 


0.018737E22 
or 
0.018737E+22 


For FORTRAN, if the exponent of a 
Floating-point number is positive, a blank 
character rather than a '*' sign may 
sometimes be present between the "E" or "p" 
and the exponent. For example: 


0.018737D 22 


These differences prevent the direct use of 
PL/I stream-oriented transmission 
facilities to read or write floating-point 
numbers that can be interchanged with a 
FORTRAN program. 


PL/I-COBOL DATA SET INTERCHANGE 


PL/I has data types and organizations that 
correspond to most COBOL items, but there 
are some differences. For example, PL/I 
data may be either aligned or unaligned, 
but records produced by a program compiled 
by a non-ANS COBOL compiler are always 
aligned (for ANS COBOL, see below). Also, 
PL/I structure mapping differs from COBOL 
record mapping in that the PL/I (F) 
compiler minimizes the amount of unused 
storage within the structure. This means 
that corresponding elements may occupy 
different storage locations relative to the 


Start of the structure, and that the record 
length may differ from that of the COBOL 
record. 


ANS COBOL data can be SYNCHRONIZED 
(i.e., aligned) or unsynchronized (i.e., 
unaligned).  COBOL records prior to USASI 
COBOL were always SYNCHRONIZED, and the 
fifth version of the PL/I (F) compiler 
assumes that structures in a file with the 
COBOL option are SYNCHRONIZED. Note that 
for ANS COBOL the default is 
unsynchronized, while for PL/I the default 
is aligned for all data types except 
bit-string, character-string, and numeric 
character. 


You can use the COBOL option in the 
ENVIRONMENT attribute for a PL/I file that 
is to be associated with a COBOL data set. 
This indicates that any structure in the 
data set associated with this file is 
mapped according to the COBOL algorithm 
(i.e., starting at a doubleword boundary 
and, proceeding left to right, aligning 
elements on the first available correct 
boundary). If a structure name appears in 
a READ INTO or WRITE FROM statement for a 
file with the COBOL option, a temporary 
COBOL-type structure for transmission to or 
from the data set is created. Before 
output (or after input), the elements of 
the PL/I-mapped structure are assigned to 
(or from) the temporary. If the PL/I 
structure and the COBOL record have 
identical mapping, the data sets will be 
directly compatible and there will be no 
need to use the COBOL option. Note that 
the following restrictions apply to files 
with the ENVIRONMENT (COBOL) attribute. 


1. The file can be used only for READ 
INTO, WRITE FROM, and REWRITE FROM 
statements. The file name cannot be 
passed as an argument. 


2. The variable named in the INTO option 
cannot be used in the on-unit for an 
ON-condition raised during execution 
of a READ statement. 


3. The EVENT option can be used only if 
the compiler can determine that the 
PL/I structure and the COBOL record 
have identical mapping. (For further 
details see the PL/I (F) Language 
Reference Manual.) 


Figure 15-2 shows COBOL-PL/I data 
equivalents. 
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Linkage with Other Languages 


The information so far presented in this 
chapter has dealt with data set interchange 
between PL/I and non-PL/I modules run as 
separate jobs or job steps (i.e., run as 


separate programs sharing a data set). 


rest of the chapter is devoted to direct 
communication between PL/I modules and 
non-PL/I modules that are run in the same 
job step (i.e., forming one program). 
Because of the different conventions and 


methods adopted by the 


different 


processors, you are advised not to attempt 
the type of operation discussed below 


without some knowledge 


of the 


execution-time environment; you will 
require access to the publication IBM 


System/360 Operating System: PL/I 


Subroutine Library Program Logic Manual, 


Form Y28-6801. 


This section is in two parts and 
consists of a brief discussion of the PL/I 


(F) environment, pointing out the 


The 


familiar with in order to carry out 
interlanguage communications, followed by a 
discussion of the communication problems 
and suggested solutions. 


Note: This section devotes itself mainly to 


a single tasking system. 


Therefore, where 


there is no mention of multitasking , 


single tasking should be assumed. 


PL/I (F) ENVIRONMENT AND COMMUNICATIONS 


The following paragraphs deal with the way 
in which the PL/I (F) environment is set up 
and briefly describe the more important 
control blocks used for communications. 
Note that this section provides only a 
summary of the relevant information, which 
is given in detail in the PL/I Subroutine 


Library Program Logic Manual. 


The purpose 


of the section is to provide an overall 
picture of the areas that you may need to 


particular areas that you should be consider. 

posee IIR METUS нен бананды ан аган =т= si esu ee ee 1 
| COBOL | PL/I i 
Бен агаа qs Se medien. а ааа ere == quee com 1 
| | | Alignment | | 1 Alignment | 
| | 0ғ------- т--------і | ---------- т------ 1 
| Баға Туре |Length | Synch. |Unsynch.| Data Type {Length | Aligned | Un- | 
| | (bytes) | (aligned). | (un- | | (bytes) | laligned| 
| | | ļaligned) | | | | | 
}--------------- %------ %--------- %--------і----------------- ----- %-------- ----- 1 
|COMPUTATIONAL* | | | | | | | | 
| dec. length: | | | | | | | | 
| 1-4 | 2 [Halfword | Byte |FIXED BINARY | 2 | На1Ғмога | Byte | 
| | | | | Chalfword | | | | 
| | | | | integer) | | | | 
| 5-9 | 4 |Fullword | Byte |FIXED BINARY | 4 |Fullword | Byte | 
| | | | | (fullword | | | | 
| | | | | integer) | | | | 
| 10-18 | 8 |Fullword | Byte |No equivalent | - | - | - | 
| | | | | | | | | 
| COMPUTATIONAL-1 | 4 |Fullword | Byte |REAL FLOAT(short) | 4 |Fullword | Byte | 
| | | | | | | 
| СОМРОТАТІОМАІ,- 2 | 8 |Doubleword| Byte |REAL FLOAT (long) | 8 |Doubleword| Byte | 
| | | | | | | | | 
| COMPUTATIONAL-3 | 12 |Byte | Byte |FIXED DEC | 12 |Byte | Byte | 
| | | | | | | | 
| DISPLAY | any | Byte | Byte |CHARACTER | any [Byte | Byte | 
[--------------- Ba ee cl ec ЫЫ а аа Жолама салада алы Ды ызы E scutum K D 1 
|Notes: *Decimal length is equal to the number of 9s in the picture. | 
| | 
| 2The length of 1 byte applies to the smallest fixed decimal value | 
| (i.e., 1 digit). For other values, the length is given by | 
| CEIL((number of digits + 1)/2) bytes. | 
Dc i a a лы сыл i aes J 


Figure 15-2. 
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COBOL-PL/I Data Equivalents 


The PL/I (Е) Environment 


The (F) compiler is designed so that 
resulting object programs, whether 
multitasking in MVT or single tasking in 
PCP or MFT, can use storage efficiently by 
obtaining storage for each block when 
required and releasing it when no longer 
needed. This is achieved by the use of 
library modules, called by housekeeping 
routines for each block. These 
housekeeping routines (prologues and 
epilogues) perform various other functions 
(such as saving the environment of the 
invoking block), described in more detail 
later. 


Because of the need to be able to 
operate in a multiprogramming system, all 
PL/I library modules are reentrant. (Your 
output from the compiler will also be 
reentrant if you use the static storage 
class only for read-only data and specify 
the REENTRANT option in the PROCEDURE 
Statement.) 


As well as the block housekeeping 
routines, the procedure with the 
OPTIONS(MAIN) option needs routines to set 
up the PL/I environment. These functions 
are performed by the library module IHESAP 
(or IHETSA in a multitasking program) only 
once for any given execution of a program. 
They consist of the following: 


1. Obtaining the length of the 
pseudo-register vector (PRV) from the 
linkage editor. (The PRV is an area 
of task-oriented storage that contains 
a number of pseudo-registers; these 
hoid information such as the 
invocation count). 


2. Allocating the PRV variable data area 
(PRV VDA). This area contains the PRV 
plus primary library workspace (LWS). 
General register 12 is set to point to 
the PRV. 


3. Initializing the standard 
pseudo-registers and the LWS. 


4. Issuing a SPIE macro instruction to 
allow the library module IHEERR to 
obtain control in case of a program 
interrupt. 


5. Issuing a STAE macro instruction to 
intercept abnormal termination by the 
System. 


6. Chaining the PRV VDA back to the 
external save area. 


These functions are the result of the 
initial control from the operating system 
being passed to the library module IHENTRY. 


IHENTRY then selects the proper IHESAP 
entry point to utilize the specific 
environment required.  (IHESAP ultimately 
passes control to the main procedure via 
the control section IHEMAIN.) Since this 
environment is established only once, all 
procedures without the OPTIONS(MAIN) option 
assume that the environment has been 
previously established and has not been 
disturbed. Note that the technique of 
using IHENTRY enables the generated code 
for the main procedure to be similar to 
that for any other external procedure. 


Invoking a PL/I Main Procedure 


Initial Entry to Procedures with the MAIN 
Option: In order to achieve the proper 


initialization of PL/I programs, the 
primary entry is always to a compiler 
generated control section, IHENTRY. 
calls the appropriate PL/I library 
initialization routine (IHESAP or IHETSA); 
the choice of module depends on the OPT 
parameter and whether the main procedure 
has the TASK option or not. The routine 
selected provides the PRV and library 
workspace, issues SPIE and STAE macros and 
then transfers control to the address 
contained in a control section named 
IHEMAIN. This address constant is produced 
by the compiler for each external procedure 
with the MAIN option. The situation is 
illustrated in Figure 15-3. 


This 


If more than one module has the MAIN 
option, the linkage editor will accept the 
first appearance of the control section 
IHEMAIN in its input stream and ignore the 
rest. Thus, if more than one main 
procedure is to be called, IHEMAIN must be 
dynamically altered to hold the address of 
the required PL/I main procedure before 
calling IHENTRY. 


If an argument is to be passed to the 
PL/I program, IHESAP or IHETSA must be 
entered at the appropriate entry point. 
This entry point can be called directly, or 
can be placed in IHENTRY and thus entered 
by the call to IHENTRY. 


For non-tasking the entry points іп. 
IHESAP have the following functions: 


IHESAPA 
parameter from EXEC statement  OPT-0 


IHESAPB 

normal parameter conventions  OPT-0 
IHESAPC 

parameter from EXEC statement  OPT-1 or 
2 
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IHESAPD 
normal parameter conventions 


For tasking the entry points in IHETSA 
have the following functions: 


IHETSAP 
parameter from EXEC statement. 


IHETSAA 
normal parameter conventions. 


IHENTRY 
IL 15 „V (IHESAPx) | 
[вв 15 | 


IHESAPA (IHETSAP for 
ee environment) 
| ENTRY IHESAPA 
|ENTRY IHESAPB 
| ENTRY IHESAPC 
| ENTRY IHESAPD 


| 
| = 
|L 15, V (IHEMAIN) 


[L 15,0(15) 
[BR 15 
| - 
| - 
| - 
............... 2 
| 
| 
у 
IHEMAIN 
[Dc V(ENTRY A) | 
а] 
| 
| 
у 


PL/I program 


---------------4 


| ENTRY ENTRY А | 


Figure 15-3. Initial Entry to Procedures 


with the MAIN Option. 


Passing Arguments to a Main Procedure: If 
the entry points IHESAPA, IHESAPC or 


IHETSAP are called the procedure will 
expect a single character string argument 
from the PARM field of the EXEC statement. 
Register 1 should be pointing at the 
address of the parameter, as shown below. 
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OPT=1 or 2 


Fullword 
boundary 


a ee, 
{ 1 |1 byte parameter | 
basco eee eS 
A A 


| 
Halfword 
boundary 


| 
Fullword 
boundary 


The maximum length of the argument is 100 
bytes and should be declared as CHAR(100) 
VARYING in the main procedure. The 
housekeeping module IHESAP/IHETSA builds a 
string dope vector to describe the argument 
as a varying character string so that on 
entry to the main procedure the set up will 
be: 


г 
Register 1--> | 
L 


r 
-1address of parameter | 


г 

| pe————— eee 

| | x'eu' | 1 | 

| ---------1----------і 

| 

| 

| 

| 

22-22 

і>| 1 |1 byte parameter! 
Қыс алас ed 

length data 


Example: 


PL/I PROGRAM 


MYPROC: PROC (PARAM) OPTIONS (MAIN) ; 
DCL PARAM CHAR (100) VARYING; 


END MYPROC; 


ASSEMBLER LANGUAGE CALLING PROGRAM Example: 


L 1,PARM PL/I PROGRAM 
L 15,SAPA 
BALR 14,15 MYPROC: PROC (A,B,C) OPTIONS (MAIN) ; 


= DCL А CHAR (10); 
= i : DCL B CHAR (20); 
= DCL С CHAR (30); 
SAPA DC V(IHESAPA) = 
PARM DC A (ADDR) = 
DS H = 
ADDR DC AL2(L'LIST) END MYPROC; 
LIST DC C 'THIS IS PARAMETER' 


= Register 1 will now be set up as follows: 


END ASSEMBLER LANGUAGE CALLING PROGRAM 
L 1,PARM 
If entry points IHESAPB, IHESAPD or L 15,SAPB 
IHETSAA are called the procedure may or may BALR 14,15 


not be expecting an argument list, - 
dependant on whether one was specified in - 
the procedure statement. Register 1 is not | = 


examined by the housekeeping module SAPB DC V(IHESAPB) 
IHESAP/IHETSA, but simply passed on to the PARM DC A(SDVA) 

main procedure. If no parameters have been DC A(SDVB) 

declared in the main procedure Register 1 DC X'80' 

will be ignored, but if parameters are DC AL3(SDVC) 
declared Register 1 will be expected to SDVA DC A(PARMA) 

point to a parameter list. The parameters DC 2AL2(L* PARMA) 
must be іп a form acceptable to PL/I. PARMA DC  CL10'PARAMETERA' 


SDVB DC A(PARMB) 
DC 2AL2(L" PARMB) 
PARMB DC  CL20'PARAMETERB' 


Note: It is dangerous to assign to the SDVC DC A(PARMC) 
parameter of the EXEC statement. (If DC 2AL2(L'PARMC) 
length is greater than the current length PARMC DC  CL30'PARAMETERC' 


job may fail). = 


END 
As an example, consider passing three fixed , 
length character-string arguments to the The procedure prologue for each 
main procedure. procedure: 
PARAMETER LIST SDV Of A 
Register 1--» [address of SDV of AL ------ >| address of A >| А | 
------------------- 1 ------т----- = t----- 1 
laddress of SDV of Вр---- | 10 | 10 | 
Һ------------------- 1-1 ---------- 1 
jaddress of SDV of em | 
....---------------- | SDV of B 
SS a қые 1 gremio. 


| 
\->[ address of B [----^| В 


| 
шан тақа Қысы 4 


gt — —— —À —À еч eee c --. 


| 20 | 20 | 
ааа қатына 
SDV of C 

---->| address of C р---->| С | 
------т------ 12 t——-- і 
i 30 | 30 | 
Lasses D sexsa J 
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1. Sets general register 11 to point to 
the static internal control section. 


2. Allocates a dynamic storage area (DSA) 
for the procedure. The length is 100 
bytes plus the lengths of the 
automatic variables, parameter lists, 
and dope vectors for that procedure. 
The 100 bytes contains a register save 
area plus interrupt and environment 
information and the field used to 
provide statement numbers in 
object-time error messages. 


3. Chains the DSA back to the original 
DSA or VDA. Sets flags indicating DSA 
characteristics. Stores the address 
of the DSA in the PR for that block. 
The pseudo-register name is one of 
those generated by extending the 
procedure name to the left with 
asterisks if necessary to make seven 
characters and then appending, in 
order, a single character from B 
through Z and the special characters, 
corresponding to the order of the 
blocks in the compilation. 


4. Initializes any automatic variables 
having the INITIAL attribute. 
Initialize all dope vectors for 
automatic strings, structures, and 
arrays. 


5. Obtains secondary dynamic storage for 
variables that depend on the results 
of step 4. These areas are called 
variable data areas (VDA). VDAs may 
also be required for temporary work 
space. 


The procedure epilogue is initiated by a 
call to the library routine IHESAF (an 
entry point in IHESAP). This routine frees 
the current DSA and any associated VDAs. A 
request to free the DSA of a MAIN procedure 
results in the raising of the FINISH 
condition, closing all files still open, 
and freeing all automatic storage for the 
program. Control is passed from IHESAF via 
general register 14, which, for MAIN 
procedures is a transfer to the calling 
program (usually the operating-system 
supervisor). For other procedures, return 
is to the statement following the call to 
the procedure being terminated, except in a 
shared library system, when there is 
another level of control between the PL/I 
environment and the operating system. 


Storage Organization and Control Blocks 


Detail formats and field descriptions of 
the PL/I control blocks are contained in 
the PL/I Subroutine Library Program Logic 
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Manual. This section briefly discusses how 
the blocks are used and how they are 
related to the system and each other. No 
attempt is made to cover all control 
blocks, but only those that a programmer 
might need to refer to. None of these 
control blocks can be accessed usefully in 
FORTRAN or COBOL, but an assembler language 
subroutine, or an assembler language 
routine that was acting as an interface 
between PL/I and FORTRAN or COBOL, could 
make use of their contents. The control 
blocks discussed are: 


1. Library and data generated control 
blocks 


е String dope vector (SDV) 
e Array dope vector (ADV) 
e String array dope vector (SADV) 
e Structure dope vector 
2.  Input/output control blocks 
e Declare control block (DCLCB) 
* Open control block (OCB) 
e File control block (FCB) 
e Input/output control block (IOCB) 
e Record dope vector (RDV) 
e Dope vector descriptor (DVD) 
3. Storage management control block 


e Dynamic storage area (DSA) 


String Dope Vector (SDV): The string dope 
vector is primarily necessary to support 


such features as varying-length strings, 
adjustable strings, and string arguments. 
For example, the use of a dope vector 
allows the SUBSTR function to operate 
without duplicating the actual data that 
makes up the substring. The result of this 
function is simply an additional dope 
vector that describes part of the original 
string. Since this additional dope vector 
exists only during the life of the 
Statement in which it occurs, it is created 
in library workspace. 


Array Dope Vector (ADV): The array dope 
vector allows the bounds of the array to be 


dynamically defined by the values of 
expressions evaluated by the program, and 
allows arrays to be passed as arguments; it 
also provides the reference for the 
SUBSCRIPTRANGE condition. 


The main contents of the array dope 
vector are the virtual origin, the 


multipliers, апа the bounds of the array. 
The virtual origin (i.e., the location that 
the element with all zero subscripts has or 
would have if it existed) and the 
multipliers are used, together with the 
appropriate subscripts, in the address 
calculation for a given element, thus: 


n 
address = virtual origin + > ‚ 5; * Mi 
i-1 
where n - number of dimensions 
S; 7 value of ith subscript 
M, = value of ith multiplier 


l 


From the viewpoint of dope vector 
construction, in contrast to dope vector 
usage, it is best to think of the virtual 
origin as a location relative to the start 
of the actual array. You can calculate the 
necessary virtual origin as follows: 


n 
(first element address) - > : 
i=1 


VO = j 


where LB; = LBOUND (array, i) 


The multipliers are calculated as follows: 


n 
М = 1 * | | (HB - LB + 1) 
үшіні К г 
where 1 = distance between the starts of 


two consecutive single elements 
(i.e., generally, the length of 
a single element) 


HB = HBOUND (array,r) 


LB = LBOUND (array, т) 


For example, take an array of three 
dimensions (10,5,6), with elements 5 bytes 
long, the first of which is located at 
12288. 


M, = 5 * 5 * 6 = 150 
Ma 5 * 6 = 30 
Маш 5 
and 
virtual origin = 12288 - (150 + 30 + 5) 


= 12103 


The dope vector for based arrays is 
slightly different from that for nonbased 
arrays. The virtual origin, instead of 
containing an actual address, contains the 
offset of the virtual origin from the first 
element declared. It сап be calculated 
from the above formula, but setting the 
address of the first element to zero since 
it is not known. Because the virtual 
origin is not necessarily part of the array 
itself, this offset could be either 


M, *LB. 
1 


positive or negative. It is a 3-byte 
field, and this must be considered when the 
virtual origin is loaded into a register 
for address arithmetic. For all except 
bit-string arrays, the first eight bits in 
the register will be zero after the virtual 
origin has been loaded, and will thus 
represent a positive number even though the 
offset might be negative. 


String Array Dope Vector (SADV): The 
String array dope vector takes one of two 


forms, depending on whether the strings are 
varying or fixed-length. If the" strings 
are fixed, the SADV is an ADV with two 
halfwords appended, each of which contains 
the length of the strings in the array. If 
the strings are varying, the format of the 
SADV is the same, but certain meanings are 
different. To determine which format SADV 
is being used, test the 'current length' 
field in the SADV. If it is nonzero, the 
strings are fixed-length, and normal ADV 
processing can be used to access the 
string. If the ‘current length" field is 
zero, normal ADV processing will point to 
secondary dope vectors for each of the 
varying strings and each element would then 
be processed as an element variable. This 
is necessary because each element in the 
array could have a different current 
length. 


Structure Dope Vector: The structure dope 
vector is a concatenation of the dope 


vectors or addresses of all the elements in 
the structure. If an element has no dope 
vector (i.e., it is an element variable of 
arithmetic type), a single fullword address 
constant points to the element. 


Declare Control Block (DCLCB): The DCLCB 
is the primary compiler-generated control 
block for input/output operations. It is a 
read-only block and contains only the 
information declared for the file (or 
implied by the declared attributes). 
address is constant throughout the 
execution of the program and it can be used 
as the source of all information about the 
file by any module requiring the 
information. 


Its 


A pseudo-register is used for 
communication with other related control 
blocks; the DCLCB contains the offset of 
the file pseudo-register in the PRV. 
Another pseudo-register, IHEQFOP is used to 
identify all files open for the program. 


Open Control Block (OCB): When a file is 
opened, the parameter list passed to the 


PL/I open interface is called the open 
control block. This block combined with 
the DCLCB provides the PL/I attributes for 
opening the file. The result of the 
opening process is the file control block 
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(FCB) and the input/output control blocks 
(IOCBs). 


File Control Block (FCB): The FCB contains 
: the PL/I information about the current 

. opening of the file, plus the DCB 
associated with the file. 


 Input/Output Control Block (IOCB): The 
. main purpose of the IOCB is to fill the 


: operating system requirement for data event 
"control blocks (DECBs) used by the BSAM and 
BDAM/BISAM interfaces. The number of IOCBs 
. created varies with the data set 

. organization and access technique. 


For BSAM, the number of IOCBs generated 
is equal to the NCP value specified in the 
: DD statement for the data set or the 
` ENVIRONMENT file attribute. Unless the 
: EVENT option is used, only one IOCB is 
: required. If the EVENT option is used, one 
IOCB should be created for each 
: input/output operation that could be 
outstanding at a given point in time. An 
: attempt to use more IOCBs than requested at 
: open time will raise the ERROR condition. 


For BDAM and BISAM, only one IOCB is 

, created at open time, and others are 
created when needed. The IOCB also 

: contains the hidden buffer area if one is 
: required for BSAM or BDAM. 


' Record Dope Vector (RDV): Whenever a 
: record-oriented input/output operation is 


: requested, one of two control blocks will 
. be passed to the PL/I library. If the 

. variable involved is a varying character 
| String, the parameter is an SDV; for all 
: other variables, an RDV is passed to the 
. PL/I library. Its contents depend on the 
type of operation, but, basically, it 
contains the address of the input/output 
area for READ or WRITE operations, or the 
‘buffer address after a LOCATE statement. 
It also contains the aggregate length of 
, the specified variable. 


. Dope Vector Descriptor (DVD): The compiler 
` generates a DVD for use when an aggregate 


: has to be mapped at execution time rather 
‘than compile time. This occurs primarily 
for aggregates specified with adjustable 
bounds. 


|. Dynamic Storage Area (DSA): If you wish to 
: incorporate а non-PL/I routine into a PL/I 


. program, the main item of consideration in 
the area of storage management will be the 
DSA. If the routine is to be used in a 

- multitasking environment, the code should 
be reentrant and should look like any other 
PL/I routine. You should ensure that PL/I 
; conventions are followed, in particular 

| setting the proper flags in the DSA and 
providing a pseudo-register for the 
routine. The DSA of the routine must be 


: 210 


stored in the pseudo-register by the 
routine. The routine name (the CSECT name) 
should be seven characters long, in 
accordance with the naming convention for 
pseudo-registers. You can request the DSA 
by the following code: 


L 15,-V (IHESADA) 
LA 0,100 
BALR 14,15 


MVI 0(13),x'80' 


The second load instruction loads the 
length of the DSA (note that 72 bytes is 
not enough; the minimum length of the DSA 
is 100 bytes). 


On return from IHESADA, general register 
13 will contain the address of the DSA. 
The reason for using IHESADA is that the 
DSA is now chained to the other DSA's and 
the PRV in the standard PL/I way. The flag 
byte will be used by IHESAFA in returning 
control. The coding for returning control 
is shown below: 


L 15,-V(IHESAFA) 
BR 15 


When the above instructions are executed, 
the DSA is freed and control is returned to 
the caller. 


TO request a pseudo-register for the 
routine, append a 'B' to the CSECT name as 
an eighth character and use the result as 
the label of a DXD instruction. For 
example: 


SUBRUTN CSECT 
SUBRUTNB DXD A 


Code the SAVE register macro-instruction 
thus: 


SAVE (14,12),,* 


The asterisk causes the CSECT name to be 
coded into the program for easy 
identification in a main storage dump or 
snapshot. For intermodule trace routines, 
you should use the chain-back and 
chain-forward of the DSAs. 


Arquments and Parameters 


The (F) compiler generally conforms to the 
IBM System/360 Operating System standard 
calling sequence, as follows: 


1. Arguments are passed by name, not by 
value. 


2. General register 1 contains the 
address of the first address constant 


in the parameter list, except when the 
main procedure is called. 


3. The caller provides a register save 
area addressed via general register 
13. Тһе invoked program stores the 
contents of the general registers of 
the invoking program in this area. 


ц. Тһе invoked program loads into general 
register 13 the address of a save area 
that can be used by any program that 
it invokes. 


5. Оп return to the invoking program, 
general registers 2 through 13, the 
program mask, and the PICA will appear 
unchanged. General register 1% will 
point to the return address in the 
invoking program (set by a BALR 
instruction). General registers 0, 1, 
and 15, the floating-point registers, 
and the condition code may be changed. 


The main difference between PL/I argument 
passing and that of other languages is that 
the addresses in the list addressed by 
general register 1 do not necessarily point 
to the data items that each represents. 

The list passed by the PL/I module is the 
same as that of other languages only for 
arithmetic element data items. In all 
other cases, the address in the list points 
to a dope vector. (The various dope 
vectors are discussed briefly above.) 


In the following example, these 
abbreviations are used: 


SDV String Dope Vector 

ADV Array Dope Vector 

STDV Structure Dope Vector 

SADV String Array Dope Vector 
Example: 


DCL A FIXED DECIMAL, 
FIXED BINARY, 
FLOAT DECIMAL, 
FLOAT BINARY, 
PICTURE '999V99', 
PICTURE 'XXXAAA', 
CHARACTER (10), 
BIT(16); 
І(10), 
2 J FIXED DECIMAL, 
2 K CHAR(12); 
L, 
2 M CHAR(4), 
2 N CHAR(5); 
DCL P(5) FIXED, 
Q(5) CHAR(2), 
R(5,4) FIXED; 
CALL SUB(A,B,C,D,E,F,G,H,I,I.J,I.J(1),L, 
L.M,P,P(1),0,Q(1) ,R,R(1,1)); 


P m à *'rmootu 


DCL 


B 


DCL 


The first DECLARE statement above refers to 
element variables. A through E are 


arithmetic; the rest are strings. The 
second DECLARE statement defines an array 
of structures; the third a structure, and 
the fourth a number of arrays. The CALL 
Statement generates the following parameter 
list; general register 1 will contain the 
address of the first address constant in 
the list; 


PARM DC A(A) 

DC A(B) 
ACC) 
A(D) 
A(E) 
A(SDV of F) 
A(SDV of G) 
A(SDV of Н) 
A(STDV of I) 
ACADV of I.J) 
A(I.J(1)) 
A(STDV of L) 
A(SDV of L.M) 
A(ADV of P) 
A(P(1)) 
A(ADV of Q) 
A(SDV of 0(1)) 
A(ADV of Б) 
A(R(1,1)) 


58888888888885888 


There аге several points to note about this 
parameter list. For variables A, B, C, D, 
and E, the parameter list is identical to 
those of object programs for other 
languages compiled under the IBM System/360 
Operating System; this is because each is 
an arithmetic element variable. Similarly, 
even though they belong to arrays, I.J(1), 
P(1), and R(1,1) are passed by their actual 


addresses; their subscripts are included in 


the argument list of the CALL statement and 
they each identify a single element of an 
arithmetic array, so they are treated as 
elements. (This would be so even if the 
subscripts were expressions instead of 
constants; at execution time, a specific 
element would be referred to.) None of the 
other arguments represents an arithmetic 
element, and so they are represented by 
their respective dope vectors. 


Note particularly the array of 
structures, I. The dope vector for I 
consists of two dope vectors: the ADV for 
I.J and the SADV for Т.К. I itself, 
therefore, is not really treated as an 
array, but more as a structure with its 
dimensionality carried down to the elements 
of the structure. In this case, the 
multipliers used in the dope vectors will 
be the same for both I.J and I.K, and will 
be the length of a single J (3 bytes) plus 
the length of a single K (12 bytes), i.e., 
15. The virtual origin of К is 3 bytes 
from the virtual origin of J. Наа the item 
I been declared: 
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DCL 1 I, 
2 J(10) FIXED DECIMAL, 
2 K(10) CHAR(12); 


then I would be a structure of arrays 
rather than an array of structures. The 
format of the dope vector for I would be 
the same, but the multipliers and virtual 
origins would be different. The multiplier 
for J would be 3, that for K would be 12, 
and the virtual origin of K would be 30 
bytes from that of J. 


: If you are writing assembler language 
modules that will be called from PL/I 
programs, note the following points: 


| 1. When a dope vector is passed for а 

string element, only another load 
register instruction is required to 
get the address of the actual data. 


2. Ав shown in the examples of I.J(1), 
P(1), and R(1,1) above, passing the 
first element of an array or structure 
rather than the array or structure 
itself will avoid calculations and 
additional manipulation that would 
otherwise be necessary to obtain the 
actual data. This is possible only if 
the data characteristics are known in 
the called program. 


3. Ап ADV contains the virtual origin of 
the array, not the actual origin; 
also, arrays are stored in row major 
order, not column major order. 


COMMUNICATION WITH OTHER LANGUAGES 


This section deals with the problems of 
calling non-PL/I modules from PL/I programs 
and vice versa. The main topics are 
passing data items between modules written 
in different languages and establishing the 
appropriate environment; also discussed are 
the use of function references between 
languages, and the invocation of 
user-defined PL/I ON-units from assembler 
language subroutines and functions. 


Passinq Data Items 


When data items are to be passed from PL/I 
modules to non-PL/I modules and vice versa, 
the main considerations are: 

1. Тһе use of PL/I dope vectors 

2. Data format differences 


3. Data mapping differences 
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Only the first item is discussed in this 
section, since the other two have been 
discussed earlier in the chapter, under the 
heading 'Data Set Interchange." 


One way to solve the problem of dope 
vectors is to overlay arithmetic based 
variables in the PL/I program onto the 
beginning of items that require dope 
vectors (i.e., all items except arithmetic 
elements); thus the parameter can be made 
to look like an arithmetic element in the 
parameter list. Note that a based variable 
used in this way should not normally be 
referred to anywhere except in a call to a 
non-PL/I module. For example, if a 
character string is to be passed from a 
PL/I module: 


DCL STRINGA CHAR(20), 

PARMA FIXED DEC(1,0) BASED(P); 
P=ADDR (STRINGA); 
CALL SUB(PARMA); 


In this case, the parameter list will 
consist of an address constant that 
directly addresses PARMA, an arithmetic 
element variable. But since the pointer P 
points to the first character position of 
STRINGA, the routine SUB will have access 
to STRINGA without concern for the STRINGA 
dope vector. 


Similarly, if the string is to be passed 
to a PL/I module from a non-PL/I module, 
the PL/I coding could be as follows: 


РІ,150В: PROC (PARMA); 
DCL PARMA FIXED DEC(1,0), 
STRINGA CHAR(20) BASED(P); 
P=ADDR (PARMA); 


Now the dope vector for STRINGA will point 
to PARMA. Since PARMA is an arithmetic 
element, the PL/I program will expect the 
parameter list to contain the address of 
PARMA. 


Another way of communicating data items 
between FORTRAN and PL/I modules is to use 
named common storage for the item. You can 
do this by declaring the identifier STATIC 
EXTERNAL in the PL/I module and COMMON in 
the FORTRAN module. This results in an 
external control section. For example: 


FORTRAN 


COMMON/COMAR/DVAR, I, A, CHR, IRAY 
DIMENSION DVAR(7),CHR(3),IRAY(100) 


PL/I 


DCL 1 COMAR STATIC EXTERNAL, 
2 I FIXED BIN(31,0), 
2 A FLOAT DEC, 
2 CHR CHAR(12), 
2 IRAY(100) FIXED BIN(31,0); 


The actual storage layout would be as shown 
in Figure 15-4. 


Note the following points in connection 
with this method of communication: 


1. There may be padding between the PL/I 
dope vector and the start of the 
structure. The dope vector is always 
at the start of the control section 
and is therefore always located on a 
doubleword boundary; it will consist 
of a number of fullwords. Therefore 
there could be up to seven unused 
bytes between the dope vector and the 
structure if the member having the 
highest alignment requirement is not 
the first member of the structure. Іп 
the above example, there is no 
padding, since the structure is 
word-aligned and starts with a 
fullword. If I had been halfword 
binary, there would be two bytes of 
padding between the dope vector and 
the structure. This could be 
accommodated by a dummy variable of 
length two in the FORTRAN COMMON 
Statement immediately after DVAR; 
alternatively, DVAR could be declared 
as INTEGER*2 and its dimension 
increased to 15. 


2. When there are two or more identical 
external references, the linkage 
editor acts on the first one 
encountered. Since the PL/I dope 
vector must be completed, the PL/I 
module must precede the FORTRAN module 
on input to the linkage editor. (It 
need not necessarily be executed 
first; you can use the ENTRY statement 
at the end of the JCL for the 
link-edit to ensure that the correct 
module gets initial control.) 


Establishing the Environment 


If one procedure only is to be called from 
a non-PL/I routine, and if releasing the 
PL/I environment on exit from the procedure 
does not adversely affect the execution of 
the program, the PL/I procedure should be 
given the MAIN option. The PL/I procedure 
will be entered by the statement CALL 
IHESAPD. (Since the name IHESAPD has more 
than six characters, FORTRAN programs must 
have a dummy name for IHESAPD that is six 
or less characters long. You can change 
this name to IHESAPD at link-edit time 


using the linkage editor CHANGE statement 
immediately before the FORTRAN module or 
its INCLUDE statement.) 


If more than one PL/I procedure is to be 
called from non-PL/I routines or if FORTRAN 
or COBOL subroutines or FORTRAN functions 
are to be invoked from PL/I, an assembler 
language interface routine must be used. 
The main purpose of this interface routine 
is to save the environment of the language 
that called it and to establish the 
environment of the language to which it is 
to give control. 


If you are calling multiple PL/I 
procedures from COBOL or FORTRAN, your 
interface routine should perform certain 
functions: 


1. Assuming that calls to PL/I modules 
from other languages will not be 
nested, a 'first-time-through' routine 
can be executed to call the library 
module IHESAP, which establishes the 
PL/I environment, at entry-point 
IHESAPD. This would require that the 
interface routine contain a control 
section called IHEMAIN that contains 
the address to which IHESAP is to 
transfer control after initializing 
the environment. 


2. The pointer to the PRV, returned by 
IHESAP in general register 12, should 
be saved for future executions of the 
interface routine. Note that the 
address returned in register 1 by the 
SPIE macro instruction issued by 
IHESAP has been saved by the PL/I 
library. If it is required, in order 
to reissue the SPIE macro instruction 
of the calling program, it may be 
obtained by the following code: 


L Rx,0(12) 
ORG *-2 

DC QL2(IHEQLSA) 
L Rx, 12 (Rx) 


3. For all executions after the first, 
the parameter list pointer in general 
register 1 should be saved and the 
SPIE macro instruction for PL/I should 
be issued, specifying IHEERRA as the 
routine for handling interrupts. The 
address returned by the SPIE macro 
instruction in register 1 should be 
saved as it will be required to reset 
the COBOL or FORTRAN SPIE macro 
instruction on return from the PL/I 
procedure. 
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COMAR---»[------ ————Á € 


| A(T) 1 word | 
TUARUM KE алыш 2--------------------——1 
| ACA) 1 word | PL/I Structure Dope 
---------------------.................... 4 Vector (storage 
| SDV of CHR 2 words | reserved in FORTRAN 
| { by DVAR) 
TRUE NEN NR | 
| ADV of IRAY 3 words | 
| | 
|----------------------------------------- 1 
| I 1 word | 
Р----------------------------------------і 
| A 1 word | 
| CHR 12 bytes (3 words) | 
| | 
І----------------------------------------- 1 
| IRAY(1) | 
----------------------------------------4 
| IRAY(2) | 
ap шш нн н ыш Fa қа сыл SU SOT CEN 1 
| IRAY(3) | 
І----------------------------------------- ! 
| | 
| | 
1 word each 
| | 
| | 
----------------------------------------- 1 
| IRAY(100) | 
Бидаш асасы алайда ЫШ ucc LLL acad 


Figure 15-4.  PL/I-FORTRAN: Example of Named Common Storage 


Provided that general register 12 
points to the PRV, the PL/I entry 
point can be called. If the argument 
list from COBOL or FORTRAN was of the 
form: 


(PL/I-entry-point,parm-1,parm-2,...) 


then general register 1 (whose 
contents were saved in step 3) will 
point to the PL/I entry address 
constant. If the value 4 is now added 
to general register 1, the result will 
be the address of the parameter list 
that the PL/I module expects. 


On return from the PL/I module, the 
COBOL or FORTRAN SPIE is reset and 
control is passed back to the original 
calling module. 


If a FORTRAN or COBOL module is to be 


called from a PL/I program, basically the 
same procedure as outlined above can be 
used as an interface, the difference being: 


1. 
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In calling а COBOL module no 
initialization of an environment is 
required except that the SPIE macro 
instruction must be re-issued. 


2. In calling a FORTRAN module, 
initialization of the environment is 
carried out by invoking the FORTRAN 
library as follows: 


L 15,-У(ІВСОМЯ) 
BAL 14,64(15) 


Communication between assembler language 
and PL/I modules is subject to the same 
interface problems, and the above concepts 
apply. However, additional conventions 
should be observed by an assembler routine 
that invokes a PL/I routine and is itself 
invoked by another PL/I routine. The 
conventions are given in the preceding 
section “Storage Organization and Control 
Blocks" under the sub-heading "Diagnostic 
Storage Area (DSA)". 


Function References 


The basic difference between a subroutine 

and a function is that a subroutine is 

invoked by a CALL statement and does not 

actually return a value (although it may 
5) 


change the value of a variable known to the 
calling program), whereas a function is 
invoked by a function reference which can 
be used in the same way as an expression; 
the function always returns a value, and 
this value is represented by the function 
reference. COBOL does not have function 
references, and so the following discussion 
does not apply to COBOL-PL/I communication. 


A function written in another language 
can be declared with the ENTRY and RETURNS 
attributes in a PL/I program. Then, 
whenever the function name occurs in the 
program, control will be passed to the 
user-written function of that name. On 
entry to the function, normal linkage 
should be performed. 


At execution time, the difference 
between a PL/I function reference and a 
subroutine call is that the function 
parameter list will have an extra item 
representing a temporary into which the 
function is to place its result. The 
address, depending on the data 
characteristics declared in the RETURNS 
attribute in the invoking program, will 
either be direct or will be that of a dope 
vector (according to the same rules as for 
normal parameters). Just as with entry 
declarations for PL/I-written procedures, 
you could use the GENERIC attribute to 
specify alternative entry points to an 
assembler language function, based on the 
declared attributes of the arguments. The 
assembler language function need only 
specify each name as an entry point. 


The method employed to return the value 
from a function to the invoking procedure 
differs between FORTRAN and PL/I. A 
FORTRAN function returns its value in 
general register 0 (if integer or logical), 
floating-point register 0 (if real), or 
floating-point registers 0 and 1 (if 
complex). In PL/I, as already mentioned, 
an additional argument is automatically 
provided for the returned value. To 
resolve this difference in function 
communication, an assembler language 
interface routine must be used. When a 
FORTRAN program invokes a PL/I function, 
this routine would create a new argument. 
list consisting of the original list and an 
additional argument. The routine would 
pick up the value returned in this 
additional argument when the function is 
complete, and place the value in the 
appropriate register(s) before passing 
control back to the FORTRAN program. When 
a PL/I program invokes a FORTRAN function, 
the assembler language routine would obtain 
the result from the register and place it 
in the additional argument. Separate entry 


points to the assembler language interface 
routine would be necessary for different 
data types since the location of the result 
depends on its characteristics. 


User-Defined Conditions in Assembler 
Language Subroutines and Functions 


When you write a PL/I program, you can 
provide an ON-unit for any circumstance you 
wish to test for. The ON-unit is defined 
by any ON CONDITION (condition-name) 
Statement, the condition name being one of 
your own choosing. (Note that since a 
user-defined condition is given the 
EXTERNAL attribute, the name must be no 
more than seven characters long.) The 
ON-unit can be invoked by a SIGNAL 
Statement naming the condition. 


If a PL/I program invokes an assembler 
language module, and such a user-defined 
condition occurs during the execution of 
the module, the equivalent of the 
appropriate SIGNAL statement will be needed 
in the module in order to invoke the 
ON-unit. To provide this, the assembler 
language routine must generate a parameter 
list of one word; byte one of the word 
contains X'50' and the second through 
fourth bytes are an identifying field 
containing the address of an external 
control section that has the same name as 
the user-defined condition. General 
register 1 is then set to point to this 
parameter list, and the routine calls the 
PL/I library entry IHEERRD. After 
execution of the ON-unit, control will be 
returned to the instruction following the 
IHEERRD call. Ап example of a 'SIGNAL' to 
a user-defined condition named COND would 
be as follows: 


L 15,=V (COND) 

ST 15,РАВМ 

MVI  PARM,X'50' 

LA  1,PARM 

L 15,-V(IHEERRD) 
BALR 14,15 


PARM DS F 


The register save area for the routine 
should look like a PL/I DSA. That is, the 
first byte of the first word should contain 
X'80', and bytes two through four should 
contain the save area length. The second 
and third words should be used for the 
chain-back and chain-forward addresses 
respectively. 
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Appendix А: 


Each of the following examples reproduces 
the complete printed listing. Each listing 
is preceded by a description of the example 
and the listing, including references to 
parts of the manual that deal with the 
features being illustrated. All the source 
Statements, job control statements, and 
data cards are listed as they would appear 
in the job stream. 


For easy reference to the listing, the 
description uses the circled numbers that 
have been added to the top right-hand 
corner of each page of the listing. 


Example 1: Simple PL/I Program 


This example illustrates the use of the 
cataloged procedure PLILFCLG to compile, 
link-edit, and execute a simple PL/I 
program that uses only punched-card input 
and printed output. The job control 
Statements it includes are described in 
Chapter 2. 


//3J013PGEA JOB 
// EXEC PLILFCLG 
//PLIL.SYSIN DD ж 
EX001: PROCEDURE OPTIONS (MAIN); 
DECLARE (A,B,C) FIXED DECIMAL(3); 
GET FILE(SYSIN) DATA(A,B); 
IF А у= 999 THEN DO; 
C=A+tB; 
PUT FILE(SYSPRINT) SKIP 
DATA(A,B,C); 
GO TO NEXT; 
END; 
END EX001; 


NEXT: 


/ ж 
//GO.SYSIN DD * 
A=131 B=75; 
A=2 B=907; 
=-~14 B=14; 
A=341 B=429; 
=-245 В=102; 
A=999 B=100; 
/* 


Programming Examples 


LISTING 


The JOB statement, and a list of 
the addresses of the units to 
which the data sets for the first 
job step (PL1L) were assigned. 


Page 1: 


The listing produced by the 
PL/I (F) compiler, which is 
described fully in Chapter 5. 

The PL/I source statements appear 
on page 3 of the full listing 
(page 2 of the compiler listing). 


Pages 2-4: 


The disposition of the data sets 
used by the compiler in the first 
job step, and a list of the 
addresses of the units to which 
the data sets for the second job 
step (LKED) were assigned. 


Page 5: 


The listing produced by the 
linkage editor; this is described 
fully in Chapter 6. 


Pages 6-8: 


The disposition of the data sets 
used by the linkage editor in the 
second job step, and a list of 
the addresses of the units to 
which the data sets for the third 
job step (GO) were assigned. 


Page 9: 


Page 10: Тһе printed output produced by 


the example program. 


Page 11: Тһе disposition of the data sets 
used by the example program in 


the third job step. 
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| //3013РСЕА JOB А 

JOB LOGGED ON АТ IBM*S HURSLEY LABS 08/360 MVT 18 CLOCK213.38.18 DATE=69.273 MACHINES J1 (1) 
IEF2361 ALLOC. FOR JO13PGEA PLIL 

Д1ЕҒ2371 SYSPRINT ON 295 

JIEF2371 SYSLIN ON 342 

|1EF2371 SYSUT3 ON 343 

Д1ЕЕ2371 SYSUTI ON 344 
1ЕҒ2371 SYSIN ON 290 





(mnes EE C E 


PAGE 1 е 
VERSION 5.0 05/360 PL/I COMPILER (Р) ОАТЕ 2302) 


PL/I F COMPILER OPTIONS SPECIFIED ARE AS FOLLOWS-- 
LOAD ,NOCECK, SIZE#100K 


THE COMPLETE LIST OF OPTIONS USED DURING THIS COMPILATION 15-- EBCDIC 
CHAR6Q 
NOM AC RO 
SOURCE2 
NOMACDCK 
СОМР 
SOURCE 
NOATR 
NOXREF 
NOEXTREF 
NOLIST 
LOAD 
NODECK 
FLAGW 
STMT 
SIZE-0102400 
L INECNT2 055 
ОРТ=02 
SORMGI № {002 +072 +001) 
NOEXTDIC 
NEST 
OPLIST 


| *OPTIONS IN EFFECT* EBCDIC CHARG6O • NOMAC RO, SOURCE2 sNOMACOCK COMP e SOURCE s NOATR,NOXREF , NOEXTREF, NOLIST , LOAD: 
|*OPTIONS IN EFFECT* NODEC Ky FLAGH, STMT,SIZE*0102400, L INECNT2055,0PT202 , SORMGIN*(002,072,001 ) ; NOEXTDIC, 
*OPTIONS IN EFFECT* NEST , OPLIST 





ЕХ001: PROCEDURE OPTIONS (МАІМ); 


15ТМТ LEVEL NEST 







1 ЕХ001: PROCEDURE OPTIONS(MAIN) ; 

2 1 DECLARE (А,В,С) FIXED OECIMAL(3); 

3 1 NEXT: GET FILE(SYSIN) ОАТА(А, В); 

4 1 IF A-7999 THEN DO; : 

6 1 1 С=А+8; 

7 1 1 PUT FILE(SYSPRINT) SKIP DATA(AsBsC)3 
8 1 1 GO TO NEXT; 

© 1 1 END; 
10 1 END ЕХОО1; 
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EX001: PROCEDURE ОРТ10М5(МА1М); PAGE D 


STORAGE REQUIREMENTS» 


THE STORAGE AREA FOR THE PROCEDURE LABELLED ЕХОО1 IS 192 BYTES LONG. 
THE PROGRAM CSECT IS NAMED ЕХОО1 AND IS 200 BYTES LONG. 
THE STATIC СЅЕСТ IS NAMED **EXCOLA AND IS 219 BYTES LONG. 










*STATISTICS* SOURCE RECORDS - 9,PROG TEXT STMNTS = 10, ОВЈЕСТ BYTES = 200 
NO ERRORS OR WARNINGS DETECTED. 
AUXILIARY STORAGE WILL NOT BE USED FOR DICTIONARY WHEN SIZE = 65K 


COMPILE TIME «02 MINS 





ELAPSED TIME «38 MINS 


ТЕР2851 $YS$69213.1132652. SVOCO. JOL3PGEA.R0000027 SYSOUT 
IEF285I VOL SER NOS= М65293. 
IEF285I $YS69213.T1132652.RV0CO0. JOL3PGEA .LOADSET PASSED 
IEF285I VOL SER NOS- 231422. 
IEF2851I SYS69273.1132652 „КМО 00 . JO13P GEA .RO000028 DELETEO 
IEF285I VOL SER NOS= 231423. 
ІЕР2 851 $YS69273.1132652.RV000.JO13PGEA .ь 0000029 DELETED 
IEF285I VOL SER NOS= 231424. 
IEF285I $Y$69273.T1132652.RV000. JO13PGEA . 50000030 SYSIN 
IEF285I VOL SER NOS= M65295. 
IEF285I $YS69273. 1132652.RV000. J013 PGEA 50000030 DELETED 
IEF2851 VOL SER NOS= M65295. 
END OF STEP *PLIL , JOB 'JO13PGEA'! STEPTIME=00.00.02 CLOCK=13.38.55 DATE =69.273 RETURN CODE=0000 
ТЕР236] ALLOC. FOR JO13PGEA LKED 
IEF237I SYSLIB ON 295 
IEF237I ОМ 295 
IEF2371 ON 1CO 
IEF237I SYSLMOO ON 342 
IEF2371 SYSUTI ON 343 
IEF2371 SYSPRINT ON 294 
1ЕҒ2371 SYSLIN ON 342 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP,LIST 
VARIABLE OPTIONS USED - SIZE=(104448,59392) DEFAULT OPTION(S) USEO 
1ЕН0461  IHEDDJA 
IEWO461  IHEDOPA 
IEWO461  IHEDOPB 
1ЕН0461 ІНЕОЕРС 
IEWO461  IHEDDPO 
IEWO461  IHEUPBA 
IENO461  IHEUPBB 
IEWO461  IHEVPAA 
IEWO461  IHEVPCA 
IEWO461  IHEVFBA 
TEWO461 IHEVFDA 
IEWO461  IHEVFEA 
IEWO461  IHEVKBA 
IEWO461  IHEVKCA 
IENO4^61  IHEVKFA 
IEWO461  IHEVKGA 
ІЕН0461  IHEVSBA 
IEWO461  IHEVSFA 
IEWO461 ІНЕУ5ЕВ 
.IEWO461  IHEM91A 
IEWO461 ІНЕМ91В 
IEWO461  IHEM91C 
IEWO461  IHETERA 
1ЕН0461  IHEVCSA 
IEWO461  IHEKCDB 
ІЕН0461 ІНЕСМВА 


MODULE MAP 


CONTROL SECTION ENTRY 


NAME ORIGIN LENGTH NAME LOCATION NAME LOCAT ION NAME LOCAT ION LOCATION 


ЕХ001 90 C8 

**EXOOLA C8 DB 

IHEMAIN 148 4 

IHENTRY 180 C 

IHE SPRT 1co 38 

SYSIN 1Ғ8 38 

THEDDI 230 53C 
I HEDDIA IHEDDIB 232 

IHEDDO 770 288 
IHEODOA IHEDDOB 772 IHEDDOC ІНЕ0000 
IHEDDOE 

IHEIOA 9F8 16A 
IHEIOAA IHE IOAB 9FA IHEIOAC IHEICAD 
IHEIOAT 

IHEIOB 1E4 
І НЕІОВА ІНЕ 10BB B70 IHEIOBC IHEICBD 
IHEIOBE IHEIOBT C74 

IHESAP 
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ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCAT ION (7) 


IHESADA 050 1НЕ$АРС 06A 1НЕ$АРО 072 IHESAPA D7A 
IHESAPB 082 1HES ADF DBA IHES ADB D92 IHESADE DSA 
I HESAFC DA2 ІНЕ SAFA DAA IHES АЕБ 082 IHES AFD DBA 
IHESARA DC2 IHESAFQ OCA ІНЕ SARC 1556 IHESADD 1674 
I HE SAFF 16AE 
IHEDCN 
IHEDCNA 1808 IHEDCNB 180A 
IHEDMA 
IHEDMAA 19F8 
IHEDNC 
IHEDNCA 1АҒО 
IHEUPA 
IHE UPAA 1078 IHEUPAB 
IHEVFA 
IHEVFAA 1E60 
IHEVPB 
IHEVPBA 1FDO 
IHEVPD 
IHEVPDA 2118 
IHE VPE 
IHEVPEA 2280 
IHEVPF 
IHEVPFA 24Ғ0 
ІНЕУ5С 
ІНЕУ5СА 2540 
IHEERR ae 
IHEERRD 25F0 IHEERRC IHEERRB 2604 THEE RRA 260Е 
IHEERRE 2C86 
IHEIOF 
IHEIOFB 2020 IHEIOFA IHEITAZ 2FBE IHE I TAX 2FCA 
IHEITAA 2FDE 
IHELDI 
IHELDIA 3000 ІНЕШЮІВ IHELDIC 3004 IHELOID 3006 
IHE VFC 
IHEVFCA 3858 
IHEVPG 
IHEVPGA 3880 
ІНЕУРН 
1 HEVPHA 3ABO 
IHEVQB 
1HEVQBA 3868 
IHE VQC 
IHEVQCA 4000 
IHEBEG 
IHEBEGN 4268 IHEBEGA 
IHE IOP 
IHEIOPA 42E8 IHEIOPB - ІНЕТОРС 42EE 
IHELDO 
IHELDOA 4408  IHELDOB IHELOOC 44DE 
IHEOCL 
IHECCLA 48F0 IHEOCLB IHEGCLC 48F4 IHEOCLD 48F6 
IHEPRT 
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МАМЕ ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION МАМЕ LOCAT ION 


IHEPRTA 4E48 IHEPRTB 4E4A 
THES 12 5110 
ІНЕ5І?Е 5110 
ІНЕТАВ 5120 
IHETABS 5120 
IHEVCA 5130 
IHEVCAA 5130 
IHEVQA 5240 
THEVQAA 5240 
THE VSD 5326 
IHEVSDA 5328 IHE VSDB 532A 


PSEUDO REGISTERS 


NAME ORIGIN "МАМЕ ORIGIN NAME ORIGIN LENGTH NAME ORIGIN 


ІНЕ QINV 00 ІНЕ QERR 
IHEQSPR 10 SYSIN 

THE QLW1 20 THEQLW2 
THEQL WE 30 IHEQLCA 
IHEQFOP 40 IHEQCFL 
IHEQSLA 54 IHEQS AR 
IHEQSFC 64 IHEQXLV 


**E X001B 
IHEQLWO 
IHEQLWA 
IHEQF VD 
IHECLPR 
IHEQRTC 


IHEQTIC 
IHEQLSA 
IHEQLW3 
IHEQVDA 
IHEQADC 
IHEQLWF 
IHEQEVT 


e 40 4 кк К 
(o HP HS 


TOTAL LENGTH OF PSEUDO REGISTERS 
ENTRY AOORE SS 150 
TOTAL LENGTH 54C8 


*x*x**co DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 
DIAGNOSTIC MESSAGE DIRECTORY 


IEWO461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE» NCAL WAS SPECIFIED. 


FEF2851 5ҰҮ51.Р11118 КЕРТ 
IEF285I VOL SER NCS= 2301C0. ; 
ІЕҒ2851: $YS69273.T132652.RV0CO0. JO13 PGEA . GOSET PASSED 
IEF285I VOL SER NOS= 231422. 
1ЕҒ2851 SY $69273 7132652 „КМО 00 .J013P GEA -R0000031 DELETED 
IEF285I VOL SER NOS» 221423. 
1ЕҒ2851 5Ү569273.7132652.5УС00../01ЗРСЕА.К0000032 SYSOUT 
IEF285I VOL SER NOS= M65294. 
1ЕҒ2851 SY$69273.7132652-RV000.JOL3PGEAeLOADSET DELETED 
VGL SER NOS= 231422. 3 Р 
i STEP 'LKED ' 408 * ЈО1 ЗРСЕА! 5ТЕРТІМЕж00.00.02 СЕОСК= 13.39.33 DATE269.213 RETURN CODE 20004 
1ЕҒ2361 ALLOC. FOR JOL3PGEA GO 
1ЕҒ2371 PGM-*.DD ON 342 
IEF2371 SYSPRINT ON 294 
IEF237I SYSIN ON 290 
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ТЕР285[ 
IEF2851 
1ЕЕ2851 
ІЕҒ2851 
ІЕҒ285І 
1ЕҒ2851 
ІЕҒ2851 
ІЕҒ2851 
END OF 
ТЕР2851 
1ЕҒ2851 
ЕМО ОҒ 


$YS692173.1132652.RV0CO0. JO13PGEA . GOSET 
VOL SER NOS» 231422. 
$YS69273.7132652.SV000.J013 PGEA . RO000033 
VOL SER NOS= M65294. 
5Ү569273.7132652.КУ000../01ЗРСЕА .$0000034 
VOL SER NOS= M65295. 

$YS69273. 1132652.R VOCO. JO13PGEA . 50000034 
VOL SER NOS= M65295. 

STEP 'GO , JOB *JO13PGEAt 
$YS569273.T1132652.RV000.J013PGEA .GOSET 
VOL SER МО$= 231422. 

JOB  'JOI13PGEA' 1/0 TIME=00.00.08 


ЅТЕРТ IME=00.00.01 


СРОТІМЕ-00.00.06 CLOCK=13.40.48 


PASSED 


SYSOUT a 1) 
SYSIN 


DELETED 


CLOCK=13 «40647 DATE=69.273 RETURN CODE 0000 


DELETEO 


DATE269.273 SYSTEM PACKS 300 AND 2311 
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Example 2: Compiler and Linkage Editor Listings 


//J063PGEX JOB 


//COLEEX EXEC PLILFCLG, PARM. PLiIL='L,E,A,X,M,S2,NT‘, 


// PARM.LKED-'LIST,XREF,OVLY', 


” COND.GO-((9,LT,LKED), (15,LT,PLiL)) 


//PLÁL.SYSIN DD * 
1: PROC OPTIONS(MAIN); 
*DCL АА CHAR, (V1,V2,V3,V4) FIXED; 


*AA-'IF ANS>COMP THEN WORDS-''GREATER THAN''; 
ELSE IF ANS<COMP THEN WORDS-''LESS THAN'*'; 


ELSE WORDS-'"EQUAL TO''; 
PUT SKIP DATA(ANS,COMP); 


PUT SKIP EDIT(''ANSWER'',WORDS, ''COMPARATOR'')(A);'; 


%У1=1; %У3-2; %74=ц; 


DCL (ААС (2,2) STATIC INIT(V1,V2,V3,V4), (СОМР, АМ) EXT) 


FIXED DEC (2,1), 
WORDS СНАВ (12) VAR, 
(P2,P3) ENTRY EXT; 
DO I=1, 2; 
DO J=1,2; 
COMP-ARG(I,J)/2; 
CALL P2; 
AA 
CALL P3; 
AA 
END P1; 
*PROCESS('E,NT'!) ; 
P2: PROC; 
DCL (COMP,ANS) FIXED DEC(2,1) EXT; 
ON ZDIV BEGIN; 


ANS-0; 
PUT SKIP LIST('NEXT COMMENT INVALID'!); 
GO TO OUT; 
END; 
ANS-1/COMP; 
QUT: END P2; 
* PROCESS ( 'E!) ; 
P3: PROC; 
DCL (COMP,ANS) FIXED DEC(2,1) EXT; 
ANS=COMP*COMP; 
END P3; 
/* 
//LKED.SYSIN DD * 
OVERLAY X 
INSERT P2 
INSERT IHELDO 
OVERLAY X 
INSERT P3 
/* 


This example illustrates all the 
components of the listings produced by the 
compiler and the linkage editor. The 
listings themselves are described in 
Chapters 5 and 6. 


The program used for this example is not 
intended to be a realistic illustration of 
an application of PL/I, but is designed 
merely to employ all those compiler and 
linkage-editor facilities that contribute 
to the listings. The program comprises 
three external procedures (P1, P2, and P3), 
which are compiled in a single execution of 
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the compiler (using the batched-processing 
facility), link-editeà into an overlay load 
module, and then executed. 


The input statements include only one 
EXEC statement, which invokes the cataloged 
procedure PLILFCLG. This statement changes 
the COND parameter in the EXEC statement 
for the procedure step SO to permit 
execution of the load module despite the 
severe error that is detected by the 
compiler preprocessor. 


LISTING 
Page 1: 
Page 2: 
Page 3: 
Page 4: 
Page 5: 
Page 6: 
Page 7: 
Page 8: 
Page 9: 


1. The JOB and EXEC statements, 
exactly as they appear in the 
input stream. 


2. The job control statements of 
the cataloged procedure step 
PLIL (compilation). Each of 
these statements is prefixed 
XX. 


3. The DD statement PL1L.SYSIN, 


which is added to the job 
control statements for the 
cataloged procedure step 
PLIL. The data that follows 
this DD statement in the 
input stream is not listed by 
the job scheduler. 


4. A list of the addresses of 
the units to which the 
compiler data sets are 
assigned. 


Start of the compiler listing: 
list of options applicable to the 
compilation of procedure P1. 

Note that the SIZE option 
specifies the actual amount of 
storage allocated to th 

compiler. 


Source statements for procedure 
P1, exactly as they appear in the 
input stream. These statements 
form the input data for the 
compiler preprocessor. 


Error message from the 
preprocessor. The zero value 
assigned to V2 does not prevent 
execution of the program. 


Output from the preprocessor 
(modified source statements for 
procedure P1). 


and cross-reference 
procedure P1. 


Attribute 
table for 


Aggregate-length table for 
procedure P1. 


Storage requirements for 
procedure P1. Note that these 
quantities do not include the 
storage that will be occupied by 
the subroutine library modules 
that will be included by the 
linkage editor or loaded 
dynamically during execution of 
the object program. 


External symbol dictionary for 
procedure P1. 


Page 


Page 11-13: 


Page 


Page 


Page 


Page 


Page 


Page 


Page 


Page 


Page 


Page 


Page 


10: 


14: 


15: 


16: 


17: 


18: 


19: 


20: 


21: 


23: 


24: 
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Static internal storage map for 
procedure P1. 


Object program listing for 
procedure P1. 


1. Warning message from the 
compiler. 


2. Statement of the time taken 
for compilation of procedure 
P1, including the 
preprocessor stage, and the 
elapsed time since the start 
of compilation. Note that, 
since the program was 
executed under the MVT option 
of the operating system, the 
compile time is only a 
fraction of the elapsed time. 


List of options applicable to the 
compilation of procedure P2. 


Source statements for procedure 
P2, exactly as they appear in the 
input stream. 


Storage requirements for 
procedure P2. 


External symbol dictionary for 
procedure P2. 


1. Warning messages from the 
compiler. The omission of 
the option MAIN from the 
PROCEDURE statement does not 
affect execution of the 
program because control will 
pass initially to procedure 
P1. 


2. Statement of the time taken 
for the compilation of 
procedure P2 and the elapsed 
time since the start of the 
compilation of this 
procedure. 


List of options applicable to the 
compilation of procedure P3. 


Source statements for procedure 
P3, exactly as they appear in the 
input stream. 


Storage requirements for 
procedure P3. 


External symbol dictionary for 
procedure P3. 


1. Warning message from the 
compiler. 


2. Statement of the time taken 
for the compilation of 
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Раде 25: 


Page 26: 


228 


procedure РЗ and the elapsed 
time since the start of the 
compilation of this 
procedure. 


This is the last page of the 
compiler listing. 


1. The dispositon of the data 
sets used by the compiler. 
Only the data set that 
contains the object module is 
passed to the next job step; 
it is identified by a 
system-generated name that 
ends with the temporary name 
LOADSET assigned to it in the 
DD statement SYSLIN. 


2. The job scheduler END OF STEP 
message, including the return 
code supplied by the 
compiler. The code 0012 
indicates that the compiler 
detected a severe error (the 
non-initialization of the 
preprocessor variable V2 in 
procedure P1). 


3. The job control statements of 
the cataloged procedure step 
LKED (link-editing). Each of 
these statements is prefixed 
XX. 


4. The DD statement LKED.SYSIN, 
which is added to the job 
control statements for the 
cataloged procedure step 
LKED. The data that follows 
this DD statement in the 
input stream (linkage-editor 
control statements) is not 
listed by the job scheduler. 


5. A list of the addresses of 
the units to which the 
linkage-editor data sets are 
assigned. 


Start of the linkage-editor 
listing. This page contains the 
following: 


1. Statements of the options 
specified, and of the default 
values supplied for the SIZE 
option. 


2. Тһе control statements 
processed by the linkage 
editor. These statements 
appear exactly as in the 
input stream; they specify 
the structure of the overlay 
module. The load module 
comprises three segments: the 
program control section for 


Page 27: 


Page 29: 


procedure P2 and library 
module IHELDO are in one 
overlay segment, and the 
program control section for 
P3 is in another; the rest of 
the load module is in the 
root segment. (Inspection of 
the external symbol 
dictionaries for procedures 
P1, P2, and P3 will reveal 
that, of the library modules 
to be link-edited into the 
load module, only IHELDO, 
which is called by P2, is 
required in an overlay 
segment and not in the root 
segment; accordingly, this is 
the only library module that 
can be moved out of the root 
segment. ) 


3. A list of the external 
references that were not to 
be resolved by the linkage 


editor. (See 'Diagnostic 
Message Directory' in Chapter 
6.) 


ц. Start of the module map for 
the root segment. (The maps 
and cross-reference tables 
for all segments follow the 
heading 'Cross Reference 
Table'.) Note that the first 
control section in the root 
segment has the name $SEGTAB. 
This control section contains 
the segment table always 
created by the linkage editor 
for an overlay module; it 
inciudes control information 
for use by the operating 
system during execution of 
the module. 


Remainder of the module map, and 
the start of the cross-reference 
table, for the root segment. 

Note that the last control 
section in this segment has the 
name ФЕМТАВ. This is another 
control section created by the 
linkage editor; it contains the 
entry table, which includes 
information used by the operating 
System to determine which segment 
is to be loaded next. The 
cross-reference table for the 
root segment continues through 
page 28 to the top of page 29. 


1. Completion of the 
cross-reference table for the 
root segment. 


2. Maps and cross-reference 
tables for the two overlay 
segments. 


Page 30: 


Раде 31: 


Start of the list of 
pseudo-registers. 


Remainder of the list of 
pseudo-registers. 


Statement of the disposition 
of the load module Go. 

(Refer to ‘Control Statements 
and Errors" in Chapter 6.) 


Diagnostic Message Directory. 
The only message refers to 
the list of modules external 
references that were not to 
be resolved. (See above.) 


This is the end of the 
linkage-editor listing. 


1. 


The disposition of the data 
sets used by the linkage 
editor. Only the data set 
that contains the load module 
is passed to the last job 
Step; it is identified by a 
System generated name that 
ends with the temporary name 
GOSET assigned to it in the 
DD statement SYSLMOD. (The 
load module is the member GO 
of the temporary library 
GOSET. ) 


Job scheduler END OF STEP 
message, including the return 
code supplied by the linkage 
editor. The code 0004 
indicates that the linkage 


Page 32: 


Page 33: 
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editor has issued a warning 
message (referring to the 
references that were not 
resolved). 


The job control statements of 
the cataloged procedure step 
GO (execution of the load 
module). Each of these 
Statements is prefixed XX. 


A list of the addresses of 
the units to which the data 
sets required during 
execution of the load module 
are assigned. 


The printed output from the PL/I 
program. 


1. 


The disposition of the data 
sets used during execution of 
the load module. Note that 
the data set GOSET is not 
deleted until after the end 
of the job because step GO 
does not contain a DD 
statement that specifies its 
disposition. 


The job scheduler END OF STEP 
message for the step GO. 


Statement of the disposition 
of the data set GOSET. 


Job scheduler END OF JOB 
statement. 
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//4063PGEX JOB (4056; NLO9 )J, В. SMALLe MSGLEVEL«1 » MSGCLASS=0yCLASS=D 

//COLEEX EXEC PLLLFCLG,PARM.PLILs "Ly Е, А, Х.М, S24NT', , 

7! PARM. LKEO=" LIST, XREF ,OVLY! , / 

// COND.GOs ((S,LTSLKED) » (L5, LT, PLIL)) 

XXPL1L EXEC PGM#IEMAA, РАМЕ ' LOAD, NODECK, S 12Е=100К ', REGION=1 08K 00020000 Note: The cataloged procedure 
shown in this example is that 

XXSYSPRINT DD  SYSOUT*A;DCBE(RECFMEVBA,LRECLx125, BLKSIZEs629) 00040000 in use at the Hursley Laboratories, 

XXSYSLIN 00 ОЅМАМЕ= 61 ОАОЅЕТ ,015Р= { МОО, PASS) sUNITSSYSDA, *00060000 and varies slightly from the 

XX SPACE*(400,(50550) ) »DCB=BEKSIZE=400 00080000 standard cataloged procedure 

XXSYSUT3 00 UNITzSYSDA,SPACE- (80, (250, 250) ) .DCB*BLKSIZE*-80 00100000 shown in Chapter 8. 

XXSYSUTL 00  UNIT2SYSOA,SPACE2(1024, (60460) 4 CONTIG)» *00120000 

XX DCB=BLKSIZE=1024 00140000 

//PLIL.SYSIN DD ж 

JOB LOGGED ON AT IBM'S HURSLEY LABS 05/360 MVT 18 CLOCKz11.55.04 БАТЕз69.273 МАСНІМЕ=Ј1 

IEF2361 ALLOC» FOR JO63PGEX PLIL COLEEX 

TEFZ371 SYSPRINT UN 294 

1ЕҒ2371 SYSLIN ON 342 

IEF2371 SYSUT3 ON 343 

1ЕҒ2371 SYSUTL ON 344 

IEF2371 SYSIN ON 290 





——M—— 


PAGE 1 
VERSION 5.0 05/360 PL/I COMPILER (Р) DATE n2) 





PL/I F COMPILER GPTIONS SPECIFIED ARE AS FOLLOWS-- 


1ізЕ,А,Х,М,52 NT 


THE COMPLETE LIST OF OPTIONS USED. DURING THIS COMPILATION IS-- EBCDIC 
CHAR60 
MAC RO 
SQURCE2 
NOMACDCK 
COMP 
SOURCE 
ATR 
XREF 
EXTREF 
LIST 
LOAD 
NODECK 
FLAGW 
STMT 
SI ZE=0090112 
LINECNT=055 
ОРТ =02 
SORMGIN- (002,072 +001) 
NOEXTDIC 
NEST 
QPLIST 


a 


*OPTIONS IN EFFECT* EBCDIC$CHAR60 , MACRC4S OURCE2 » МОМАСОСК, СОМЕ» SOURCE, АТА ;XREF* EXTREF? LIST$ LOAD: 
*OPTIONS IN EFFECT* NODECKy FLAGW, STMT,SIZE-20090112;L INECNT=055 ,ОРТ= 02 , SORMGIN=(002 ,0725001) ,NOEXTUIC, 
*OPTIONS IN EFFECT* NEST ,OPLIST 





_———— о. a e e 


Plt PROC OPTIONS (MAIN); PAGE 2 (3) 


COMPILE-TIME MACRO PROCESSOR 
MACRO SOURCE2 LISTING 


1 P1: PROC ОРТІОМ5 (МАІМ) ; 

2 XDCL AA CHAR: (V19V29V39V4) FIXED; 

3 ZAA="IF АМ5>СОМР THEN WCRCS*' ' GREATER THAN! '3 

4 ELSE IF ANS<COMP THEN WORDSxz''LESS THAN''; 

5 ELSE WORDS*''EQUAL TO''; 

6 PUT SKIP DATA(ANS,CCMP) ; 

7 PUT SKIP EDIT(* 'ANSWER '' ,WORDS,'!* COMPARATOR'!) (А) ;'; 
8 ХУ1сі; .%У3-2; 3V4-4;i 

9 DCL (ARG(2,2) STATIC INIT(V1,V23V3,V4) , (COMP,ANS) EXT) 


10 FIXED DEC(231); 
11 WORDS CHAR(12) VAR; 
12 (P2,P3) ENTRY EXT; 
13 DO 1=1,2; 

14 DO 4=1,2; 

15 СОМР ДАС (1,3) /2{ 
16 CALL P23 

17 AA 

18 CALL P3; 

19 AA 

20 ENO P1; 





н. 
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P1: 






PROC OPTIONS (MAIN) i (4) 


MACRO DIAGNOSTIC MESSAGES 


SEVERE ERRORS. 


IEM45041 VARIABLE V2 IS USED IN LINE NUMBER 9 BEFORE IT IS INITIALIZED. IT HAS BEEN GIVEN A NULL STRING OR 


ZERO VALUE. 


END OF MACRO DIAGNOSTIC MESSAGES. 


PROC OPTIONS( МАІМ); 


SOURCE LISTING. 


STMT LEVEL NEST 
Pl: PROC OPTIONS (MAIN); 
1 DCL (ARG(2,2) STATIC INIT( 
4 ).; (COMP,ANS) EXT) 
FIXED СЕС(2,1), 
WORDS CHAR(12) VAR; 
(P2,P3) ENTRY EXT; 
00 1=1,2; 
DO 3-1,2; 
COMPsARG(ISJ)/2; 
CALL P23 
IF ANS»COMP THEN WORDS=' GREATER THAN! 3 
ELSE IF ANS<COMP THEN WORDSs'LESS THAN'; 
ELSE wORDS="EQUAL 70%; ; 
SKIP DATA(CANS,COMP ); 
SKIP EDIT( * ANSWER * WORDS,* COMPARATOR?!) (A) i 
CALL РЭ; 
IF ANS>COMP THEN WORDSs'GREATER THAN'; 
ELSE IF ANS<COMP THEN WORCS="LESS THAN'$ 
ELSE WORDS="EQUAL 70%; 
PUT SKIP DATACANS,COMP); 
PUT SKIP EDIT(* ANSWER ' ,WORDS,'* CCMPAFATOR') (A); 
END P1; 


кеден көрмен 


1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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P1: PROC OPTIONS(MAIN); PAGE (6) 


ATTRIBUTE AND CROSS-REFERENCE TABLE 


; DCL NO. IDENTIFIER ATTRIBUTES AND REFERENCES 
2 ANS STAT IC; EXTERNAL ; ALIGNED,DECIMAL,FIXED( 2y1) 
Н 7,9, 12,15,17,20 
2 ARG (2,2) ЅТАТІС •, ALIGNED, INITIAL ;DECIMAL,FIXED(231) 
5 
2 COMP STAT ICs EXTERNAL» ALIGNED, DECIMAL» F IXED( 291) 
59799012915 917920 
жжжжжжжжж I AUTOMATIC ALIGNED, BINARY, ҒІХЕО( 15,0) 
3,5 
жж жж.) AUTOMATIC sALIGNEOsB INARY,FIXED(15,0) 
І 4,5 
1 P1 ENTRY$:OECIMALS,FLOAT(SINGLE) 
2 Р2 EXTERNAL ENTRY ;DECI МАЕ, FLCAT (SINGLE) 
6 
2 P3 EX TERNAL s ENTRY ,DECI MALe FLOAT( SINGLE) 
14 
SYSPRINT FILE,sEXTERNAL 
12,13,20,21 
22 WORDS AUTOMATIC sUNAL IGNED;STRING(12): CHARACTER s; VARYING 


8»10,11,13,.16,18,19,21 










PROC ОРТІОМЅ( МАІМ) ; РАСЕ 
AGGREGATE LENGTH TABLE 


STATEMENT NO. IOENTIFIER LENGTH IN BYTES 





2 ARG 


P1: PROC OPTIONS ( MAIN) j PAGE 7 








STORAGE REQUIREMENTS. 


THE STORAGE AREA FOR THE PROCEOURE LABELLED Pl IS 228 BYTES LONG. 
THE PROGRAM CSECT IS NAMED Pl AND IS 776 BYTES LONG. 
THE STATIC СЅЕСТ IS NAMED жжжжжрід AND IS 344 BYTES LONG. 
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P1: PROC OPTIONS (МАІМ) ; 


SYMBOL 
P1 
жжжжжрРІіА 
IHEQINV 
IHESADA 
IHESACB 
IHEQERR 
IHEQTIC 
IHEMA IN 
IHENTRY 
IHESAPC 
жжжжжрі в 
THEOOQC 
IHEDDOA 
IHEDOBB 
IHEDOBB 
IHEIOBT 
IHEIOBC 
IHESAFA 
COMP 
ANS 
P2 
P3 
IHESPRT 
IHEQSPR 
THEONC 
IHEVPF 
IHEDMA 
IHEVPB 
IHEVSC 
IHEVQC 


*STATISTICS* MACRO RECORDS = 


TYPE ID 
SD 0001 
SD 0002 
PR 0003 
ER 0004 
ER 0005 
PR 0006 
PR 0007 
50 0008 
50 0009 
ЕВ 000A 
PR 000B 
ER 000C 
ER 000D 
ER 000Е 
ER 000F 
ER 0010 
ER 0011 
ER 0012 
CM 0013 
CM 0014 
ER 0015 
ER 0016 
50 0017 
PR 0018 
ER 0019 
ER 001A 
ER 0018 
ER 001C 
ER 0010 
ЕК 001Е 


EXTERNAL SYMBOL DICTIONARY 


ADOR 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


20 SOURCE RECORDOS = 


LENGTH 
000308 
000158 
000004 


000004 
000004 
000004 
00000C 


: 000004 


000002 
000002 


000038 
000004 
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00004C 
000050 
.000054 
000058 
` 00005C 
000060 
000064 
000030 
000068 
00006C 
000070 
000074 
000078 
| 000080 
| 000088 
| 000090 
000098 
0000A0 
000048 
000080 
000088 
0000C 0 
0000C8 
0000CC 
000004 
000008 
000009 
0000DC 
0000Е0 
0000Е1 
0000Е4 
0000Е8 
0000EC 
0000Ер 
0000F0 
0000F4 
0000F8 
0000F9 
0000FC 
0001 00 
0001 04 
000105 
000108 
0001 0C 
000110 
000111 
000120 
000124 
00012C 
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Pl: PROC OFTIONS (MAIN) ; 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
0000000200000001 
0000009000080008 
40C3060407C109C1 
E3D6D9E7000000A4 
00070007C105E2E6 
C50S40C5D8E4C1D3 
40E306D3C5E2E240 
ЕЗС8С105С709С5С1 
E3C5D940E3C8C1D5 
2c 
000000AC000C0000 
0000013C 

80 

000120 

0000013C 

80 

000120 

00000000 
0000020C 

80 

000084 

00000000 
0000028E 

80 

000084 

00000000 
000001DE 

80 

000084 

00000000 
00000190 

80 

000084 

0000013C 

04C 3060407404040 
0000013800000000 


STATIC INTERNAL STORAGE MAP 


А.. Pl 

А.» THEDDCC 
Aee IHEDD CA 
А.» THEDO ВВ 
Aee IHEDOBB 
А.. ІНЕ10ВТ 
Ae. IHEIOBC 
А. IHESAFA 


А.. СОМР 
А.» ANS 

А.. Р2 

А.. P3 

А.. IHESPRT 
CONSTANTS 


О.М. SKELETCN 
ARGUMENT LIST 


ARGUMENT LIST 


ARGUMENT LIST 


ARGUMENT LIST 


ARGUMENT LIST 


ARGUMENT LIST 


SYM TAB 


000134 
000138 
00013C 
000140 
000144 
00014C 
000150 
000153 
000154 
000155 
000038 
00003C 
000044 
000048 
000118 
00011A 
00011C 
00011E 


00000000 

880261 

0C000000 
03С105Е2 
0000015000000000 
0с000000 

880281 

2c 

эс 

8A0600 

00000112 
0000000400000002 
00020001 
00020001 

010C 

000C 

020C 

040C 


PAGE 


SYM TAB 

DED 

DED 

DED 

DV.» ARG 
ARG 





Р1: 


OBJECT LISTING 
* STATEMENT NUMBER 
* PROCEDURE 


* REAL ENTRY 

000000 47 FO F O10 
000004 
000005 
000008 
00000C 
000010 90 
000014 58 
000018 58 00 F 008 
00001C 58 FO B 020 
000020 “05 EF 
000022 05 АО 


000000E4 
00000000 
ЕВ 0 00С 
ВО F 00C 


* PROLOGUE BASE 
000024 41 90 D ОВ8 
000028 

000028 50 DC O 000 
00002С 92 00 D 062 
000030 92 01 D 063 
000034 92 CO D 000 
000038 рг от р 040 
00003Е 41 FO D OAC 
000042 50 FO D ОАО 
000046 41 АО А 028 


00004A 07 00 


* PROCEDURE BASE 
00004C 


* APPARENT ENTRY 
* STATEMENT NUMBER 


00004C 92 03 D 063 
000050 41 80 A 016 
000054 02 01 D OA8 
00005A 50 80 9.020 
00005Е 47 FO А 028 
000062 

000062 92 03 D 063 
000066 41 80 A 282 
00006A О2 01 D OA8 
00007С 50 8С 9 020 
000074 

000074 92 03 D 063 


1 


B OCC 


B 086 


B 082 


CL.22 


CL .20 


CL.2 


CL.1 


PROC OPTIONS (МАІМ) $ 


DC 
DC 
ос 
DC 
STM 


BALR 
BALR 


LA 

EQU 
ST 

MVI 
MVI 
MVI 
MVC 


LA 
ST 
LA 
NOPR 


EQU 


MVI 
LA" 
MVC 
ST 


EQU 
MVI 
LA 

MVC 
ST 

EQU 
MVI 


P1 


P1 

16(0,15) 
AL1 (2) 
СІРІ! 

Ғ “228! 
A(SI.) 
14411,12(13) 
11,12(0,15) 
0,8(0,15) 
15,32(0,11) 
14:15 

10,0 


95184(0,123) 
* 
13, РА. P1 (12) 


.98(13),Х'00' 


99(13),X*01' 
0(13) , x'Co* 

DV. .WORDS(8)» SKDV. 
- 08BC 

15, WORDS 
15,0V..WOROS 
10,CL.20 

0 


ж 


Р1 


99(13),Х%03! 
8,CL.2 
1(2)3C..0848*2 
8,32(0,5) 

CL.1 

* 

99(13),X'!03' 

8 3CL.3 
1(2),C..0858«*2 
8,32(0,9) 

* 

96(13),Х%03! 


(000112 


ж STATEMENT NUMBER 4 
000078 92 04 D 063 


00007C 48 80 D 0А8 
000080 14A 88 

000082 1А 88 

000084 50 80 9 024 
000088 41 70 A O4E 
00008C D2 01 D OAA B 
000092 50 70 9 028 
000096 47 FO A 060 
000094 

00009A 92 04 D 063 
00009E 41 70 А 2A4 
0000А2 02 01 D ОЛА B 
000048 50 70 9 028 


0000AC 
0000АС 92 04 D 063 
* STATEMENT NUMBER 5 
000080 92 05 D 063 
000084 18 76 
0000B6 48 60 
00008A 1A 66 
00008C 1A 76 
00008E 41 67 8 
000002 F1210 
0000C8 рт 06 D 
D 
D 


D ОАА 


112 
090 6 
092 D 
. 098 6 
090 B 


0000СЕ 01 00 
000004 Ер 80 


00000А 58 70 B 
0000DE F1 10 7 
0000E4 01 00 7 


068 
000 D 
001 D 


*.STATEMENT NUMBER 6 
0000ЕА 92 06 D 063 
0000ЕЕ 41- 10 0 050 
0000Ғ2 58 FO В 070 
0000Ғ6 05 EF 


ж STATEMENT NUMBER 7 
0000Ғ8 92 07 D 063 
0000ҒС 58 80 B O6C 
000100 58 70 В 068 
000104 F9 11 8 000 7 
00010А 58 80 9 024 
00010E 47 CO A OEO 


* STATEMENT NUMBER 8 
92 08 D 063 


086 


082 


000 
092 
001 
oca 


090 
097 


000 


CL.5 


CL.4 


MVI 
LH 
AR 
AR 
ST 
LA 
MVC 
ST 


EQU 
MVI 
LA 

MVC 
ST 

EQU 
MVI 


MVI 
LR 
LH 
AR 
AR 
LA 


'MVO 


XC 
MVN 
DP 


MVO 
MVN 


MVI 


LA 


BALR 


MVI 


СР 
BC 


MVI 


PAGE 


® 


99113) ,Х' 04' 
8,1 
8,8 
8,8 


.8,36(0,9) 


7,С1.5 
J(2)1C..084842 


.7,540(0,9) 


CL.^ 

* 

99 (13) ,Х' 04* 
T3CL.6 
J(2)1C..085842 
7340(04,9) 

* 


99 (13) ,X'04*' 


99 (13),X'05' 
738 

6,.Ј 

6,6 

796 

6, VO. . ARG(T) 
Н51.1(3).,0(2,6) 
м5 1.1+2(7) .951.1+2 
WS1.1*8(1)531(6) 
) 

7,А..СОМР 
0(2» 7) 4WS1.1 (1) 
10297) ¢WS1.147 


99 (13),X'06' 
1,WS1.1 
15:А..Р2 
14,15 


99 (13),X*07' 
8 s Åe • ANS 

7, A. a COMP 
0(258),0(2,7) 
8»36(0,9) 
12,CL.7 


99 (13 ),X'08' 


Appendix A: Programming Examples 





235 


Pl: 


000116 41 60 0 00С 
00011A 40 60 D 0A6 
00011E 58 60 D ОАО 
000122 02 08 6 000 
000128 47 FO A 126 
00012C 


* STATEMENT NUMBER 

00012С 92 05 D 063 
000130 58 70 B 06С 
000134 58 60 B 068 
000138 F9 11 7 000 
00013Е 47 AO А 110 


* STATEMENT NUMBER 
000142 92 ОА О 063 
000146 41 50 0 009 
00014А 40 50 D 0А6 
00014E 58 50 D ОАО 
000152 02 08 5 000 
000158 47 ҒО А 126 
00015C 


* STATEMENT NUMBER 
00015С 92 OB D 063 
000160 41 70 O 008 
000164 40 70 D OA6 
000168 58 70 D ОАО 
00016C D2 07 7 000 
000172 


* STATEMENT NUMBER 
000172 92 OC D 063 
000176 41 10 B 108 
00017A 58 FO B 064 
00017Е 05 EF | 
000180 41 10 6 ODC 
000184 58 FO B 054 
000188 05 EF 
00018A 58 FO В 
00018Е 05 EF 


:050 


600190 92 0С 063 
000194 58 ҒО 060 
000198 05 ЕҒ 


ж STATEMENT NUMBER 
00019A 92 0D D 063 
00019Е 41 10 B OFC 
000142 58 FO B 064 
0001А6 05 EF 
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B OBC 


9 


6 000 


10 


B 083 


B OAB 


12 


CL.7 


CL.8 


PROC OPTIONS(MAINI) ; 


LA 
STH 
L 
MVC 
B 
EQU 


MVI 
L 
L 
CP 
BC 


6412(0,0) 

6 СУ. WORDS +6 
620V..WORDS 
0(1296)9C..0534 
CL.8 

ж 


99(13),Х%09! 
Thee ANS 
69AeeCCMP 
0(257150(2,6) 
10,CL.9 


99413),Х*ОА' 
5,9(0,0) 

5,0V. .WOROS*6 
530V. .WCRDS 
0(955) 3C. .0550 
CL.8 

* 


99(13),Х' ов! 
7:8(0,0) 

T 30V. . WORDS +6 
720V.- WORDS 

0 (8,7), С. .0568 
ж 


95(13),Х'0С' 
l,SKPL..O6FC 
155A. . IHEIOBC 
14,15 

1sSKPL. 20800 
15,А..ІНЕОООА 
14,15 
15.А..1НЕ00ОС 
14,15 

ж 

99 (13) ,Х'0С' 
14,15 


99(13), X'OD' 
1%5КР1..0748 
15:А..ІНЕ108С 
14,15 


000148 41 80 
0001AC 41 10 
000180 41 20 
000184 05 78 
0001B6 41 10 
00018A 41 20 
0001ВЕ 05 78 
0001С0 4110 
0001C4 41 20 
0001C8 05 78 
0001CA 47 FO 
0001СЕ 

0001СЕ 58 FO 
000102 18 E7 
000104 05 8Е 
000106 47 FO 182 
0001DA 

00010A 58 80 024 


182 
09С 
153 


0А0 
154 


088 
153 


18E 


фр > ow oo oop 


056 


00010Е 92 OD 063 
0001Е2 58 FO 060 
0001Е6 05 EF 


ж STATEMENT NUMBER 

0001Е8 92 OE D 063 
0001ЕС 41 10 D 090 
0001Ғ0 5€ FO B 074 
0001Ғ4 05 EF 


* STATEMENT NUMBER 
0001Р6 92 ОҒ D 063 
0001ҒА 5E 80 B 06C 
0001ҒЕ 58 70 B 068 
000202 FS 11 8 000 
000208 5E 80 9 024 
000205 47 CO А 1DE 


* STATEMENT NUMBER 
000210 92 10 D 063 
000214 41 60 0 00C 
000218 40 60 D 0А6 
00021C 58 60 D 040 
000220 02 0B 6 000 
000226 47 FO A 224 
00022A 


* STATEMENT NUMBER 
00022A 92 11 D 063 
00022E 58 70 B 06C 
000232 58 60 B 068 
000236 F9 11 7 000 


PAGE 11 (42) 


8,CL.16 
1.0У..С..059С 
2, бЕ0..С..059С 
7,8 
1,0V..WORDS 

2, DED. . WORDS 
7.8 
1.0У..С..0584 
2. БЕ0..С..05В4 
7,8 

* 


15,А..ІНЕООВВ 
14,7 

8 »15 

CLel6 

* 

8,36(0,9) 

* 

99 (13),X'0D* 
155,A..IHEIOBT 
14315 


99(13),X'OE' 
1:W51.1 
15,А..РЗ 
14,15 


99.(13),X'0F' 
8. A. „ ANS 

T3 A4. .COMP 
0(2:8),01(2,7) 
8: 36(0,9) 
12,CL.10 


99 (13),X*10' 
6y12(0;0) 

6, DV.  WORDS*6 

6 ОУ. .WORCS 
0(1256) 1C..0534 
CL .11 

* 


99 (13) ,X'11' 
73 А. . ANS 

6$ А. COMP 
0(2,7),0(2,6) 





P1: 


00023C 47 AO ^ 20Е 


* STATEMENT NUMBER 
000240 92 12 0 063 
000244 41 50 0 009 
000248 40 50 D OA6 
00024C 58 50 D ОАО 
000250 D2 08 5 000 
000256 47 FO A 224 
00025A 


* STATEMENT NUMBER 
00025A 92 13 D 063 
00025Е 41 70 O 008 
000262 40 70 D OA6 
000266 58 70 D 0А0 
00026A 02 07 7 000 
000270 


ж STATEMENT NUMBER 
000270 92 14 D 063 
000274 41 10 OFO 


00027C 05 EF 
00027E 41 10 
000282 58 FO 
000286 05 EF 
000288 58 FO B 050 
00028C 05 EF 


0с4 
054 


В 
000278 58 ЕС В 064 

В 

В 


00028bE 92 14 063 
000292 58 FO 060 
000296 05 EF 


* STATEMENT NUMBER 

000298 92 15 D 063 
00029С 41 10 0Е4 
000240 58 FC 064 
000244 05 EF 
000246 41 80 
0002AA 4110 
0002АЕ 41 20 
000282 05 78 


В 

B 

A 280 

B 

B 
0002B4 41 10 D ОАО 

B 

B 

B 

А 


09С 
153 


000288 41 20 B 154 
0002BC 05 78 
0002BE 41 10 
0002C2 41 20 
0002C€ 78 
0002C8 FO 
0002CC 


088 
153 


28C 


18 


B OB3 


21 


CL.12 


PROC OPTIONS(MAIN) ; 


BC 


10,CL.12 


99(123) ,X'12' 
5,9(0,0) 
5yDVeeWORDS+6 
5 »DVee WORDS 
005,5) 20220550 


CL.11 
* 


99(13),X'13' 
7,8(0,0) 

7 ,0V . .NCRDS*6 
7, OV. «WORDS 
0(8,7).С..0568 
ж 


99(13) ,X* 14* 
1,SKPL..0774 
15.А..ІНЕІ0ВС 
14,15 
l:SKPL..0834 
15,A..IHEDOOA 
14,15 
15;A. . IHEDDOC 
14,15 

ж 


99(13),X'14' 
15,А..ІНЕІ08Т 
14,15 


95(13) , X' 15! 
1;SKPL..07A0 
15,A.. IHEIOBC 
14,15 

84CL.18 
1:0V..C..059C 
230Е0..С..059 
7,8 
13V. .WCRDS 

2 ,DED.'. WORDS 
7,8 

1,0V..C.. 0584 
2%БЕ0..С..0584 
748 

CL.19 

* 


0002CC 56 FO 
000200 18 ЕТ 
000202 05 8F 
000204 47 FO A 
000208 

000208 $56 80 9 024 


00020с 92 15 D 063 
0002Е0 58 FO B 060 
0002bE4 05 EF 


* STATEMENT NUMBER 
0002E6 92 16 D 063 
0002ЕА 58 70 9 028 
0002ЕЕ 07 F7 
0002F0 

0002Ғ0 92 16 0 063 


ж STATEMENT NUMBER 
0002Ғ% 92 17 D 063 
0002F8 58 80 9 020 
0002ЕС 07 F8 
0002ҒЕ 


ж STATEMENT NUMBER 
0002ҒЕ 92 18 D 063 
000302 58 FO B 030 
000306 05 EF 


* END PROCEDURE 
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15 the eI HEDOBB 
1457 

8515 

CL.18 


ж 
8 4361099) 
* 


99 (13) ,X'15'! 
15,A.. IHEIOBT 
14,15 


99(13),X'16' 
7,40(0,9) 
7 


ж 
99 (13 ),Х'16' 


99 (13) ,X'17' 
8, 32(0,9) 

8 

ж 


` 99(13),Х'18' 


15 ,А з . IHESAFA 
14,515 


P1 
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Р1: PROC ОРТІОМЅ (МАІМ); 


COMPILER DIAGNOSTICS. 






WARNINGS. 
IEMO227I NO FILE/STRING OPTICN SPECIFIED IN ONE OR MORE GET/PUT STATEMENTS. SYSIN/SYSPRINT ҺА$ BEEN 
ASSUMED IN EACH CASE. 
IEMO7641 ONE GR MORE FIXED BINARY ITEMS OF PRECISICN 15 OR LESS HAVE BEEN GIVEN HALFWCRD STCRAGE. THEY 


ARE FLAGGED ' Жжжж HHT IN THE XREF/ATR LIST. 


END GF DIAGNOSTICS. 


AUXILIARY STORAGE WILL NOT BE USED FOR DICTICNARY WHEN SIZE = 65K 





COMPILE TIME „05 MINS 
ELAPSEO TIME «68 MINS 

PAGE 14 
VERSION 5.0 05/360 PL/I COMPILER (Р) DATE 65.273 


PL/I F COMPILER OPTIONS SPECIFIEC ARE AS FOLLOWS-- 


ENT 


THE COMPLETE LIST OF OPTIONS USED DURING THIS COMPILATION IS-- EBCDIC 
CHAR 60 
NOM ACRO 
SOURCE2 
NOMACDCK 
COMP 
SOURCE 
NGATR 
NOXREF 
EXTREF 
NOLIST 
LOAD 
NODECK 
FLAGW 
STMT 
51 2Е=0090112 
LINECNT=055 
OPT=02 
SORMGIN= ( 002 +072 +001) 
NOEXTDIC 
NEST 
OPLIST 


*OPTIONS IN EFFECT* EBCDIC4CHAR60,NCMACRO; SOURCE2  NOMACDCK s CCMP, SOURCE, NOATRyNOXREFs EXTREFsNOLISTyLOADy 
*OPTIONS IN EFFECT* NOLEC Ky FLAGW, STMT,SIZE20090112$ L INECNT=055 sOP T=02 , SORMGIN=(002 1072,00L),NOEXTDIC, 
*OPTICNS IN EFFECT* NESTsOPLIST 
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STMT LEVEL NEST 





1 Р2: PROC; 

2 1 DCL (COMP,ANS) FIXED ОЕС(2,1) EXT; 

3 1 ON ZDIV BEGINS 

5 2 ANS=03 

6 2 PUT SKIP LIST(*NEXT COMMENT INVALIO') i 
7 2 GO TO OUT; 

8 2 END; 

5 1 ANS=1/COMP3 

10 ойт: END P23 






Р2: PROC; PAGE 16 (17) 


STORAGE REQUIREMENTS. 


THE STORAGE AREA (IN STATIC) FOR THE PROCEDURE LABELLED Р2 15 200 BYTES LONG. 
THE STORAGE AREA FOR THE ON-UNIT AT STATEMENT NO. 4 15 176 BYTES LONG. 

THE PROGRAM CSECT IS NAMED P2 AND IS 442 BYTES LONG. 

THE STATIC CSECT IS NAMED %жжжжр2А AND IS 368 BYTES LONG. 



































EXTERNAL SYMBOL DICTIONARY 


SYMBOL TYPE 10 ACOR LENGTH 
P2 $0 0001 000000 0001BA 
жжжжжр2А 50 0002 000000 000170 
THEQINV PR 0003 000000 000004 
IHESADA ER 0004 000000 
THESACB ER 0005 000000 
IHEQERR PR 0006 000000 000004 
IHEQTIC PR 0007 000000 000004 
IHENTRY 50 0008 . 000000 00000C 
IHESAPC ER 0009 000000 
IHEQLWF PR 000A 000000 000004 
IHEQSLA PR 0008 000000 000004 
THE QL WO PR 000C 000000 000004 
жжжжжр 2B PR 000D 000000 000004 
жжжжжр2 C PR 000Е 000000 000004 
IHELDOB ER OOOF 000000 
IHEIOBT ER 0010 0000С0 
IHEIOBC ER 0011 000000 
IHESAFA ER 0012 000000 
IHESAFC ER 0013 000000 
ANS CM 0014 000000 000002 
COMP CM 0015 000000 000002 
IHESPRT SD 0016 000000 000038 
IHEQSPR PR 0017 000000 000004 
IHEVSC ER 0018 000000 

*STATISTICS* SOURCE RECORDS = S,PROG TEXT STMNTS = 10,0BJECT BYTES = 442 
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P2: PROC; 


COMPILER OIAGNOSTICS. 






WARNINGS.. 
1ЕМ02271 МО FILE/STRING ОРТІСМ SPECIFIED ІМ СМЕ OR MORE GET/PUT STATEMENTS. SYSIN/SYSPRINT HAS BEEN 
ASSUMED IN EACH CASE. 
ІЕМ05261 1 OPTION MAIN HAS NOT BEEN SPECIFIED FOR THE EXTERNAL PROCEDURE, STATEMENT NUMBER 1 


END CF DIAGNOSTICS. 


AUXILIARY STORAGE WILL NOT BE USED FOR DICTIONARY WHEN SIZE = 65K 


COMPILE TIME «02 MINS 
ELAPSEO TIME .69 MINS 





PAGE :19 
VERSION 5.0 05/360 PL/I COMPILER (Р) DATE 6s.273(20) 


PL/1 Р COMPILER CPTIONS SPECIFIED ARE AS FOLLOWS-- 
E 


THE COMPLETE LIST OF OPTIONS USEC DURING THIS COMPILATICN IS-- EBCOIC 
CHAR60 
NOMACRO 
SOURCE2 
NOMACOCK 
COMP 
SOURCE 
NOATR 
NOXREF 
EXTREF 
NOL IST 
LOAD 
NODECK 
FLAGW 
STMT 
512Е=0090112 
LINECNT2055 
ОРТ=02 
SORMG I N= (002 +072 5001) 
NOEXTOIC 
NEST 
OPLIST 


*OPTIONS IN EFFECT* ЕВСОІС,СНАК60, NOMACRO, SOURCE2 s NOMACOCK ; COMP, SOURCE; NOATR, NOXREF ,EXTREF ; NOLIST LOAD, 
*OPTIONS IN EFFECT* NODECK;F LAGW, STMT , 51 2Е «0090112, LINECNT2055 , ОРТ=02 ,S ORMGIN*(00250723001) МОЕХТОІС», 
*OPTICNS IN EFFECT* NEST, OPL IST 
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P3: PROC; PAGE 20 (2 


STMT LEVEL NEST 


P3: PROC; 
2 1 DCL (СОМР,АМ$) FIXED ОЕС( 2,1) EXT; 
3 1 ANS=COMP*CGMP3 
4 END P33 









РЗ: 










PROC; (22) 


STGRAGE REQUIREMENTS. 


THE STORAGE AREA (IN STATIC) FOR THE PROCEDURE LABELLED P3 IS 184 BYTES LONG. 
THE PROGRAM CSECT IS NAMED P3 AND IS 246 BYTES LONG.’ 
THE STATIC CSECT IS NAMED ****xP3A AND IS 264 BYTES LONG. 

















EXTERNAL SYMBOL DICTIONARY 


SYMBOL TYPE 10 ADDR LENGTH 
P3 SD 0001 000000 0000F6 
жжжжжрЗд 50 0002 000000 000108 
THEQINV PR 0003 000000 000004 
IHESADA ER 0004 000000 
IHESACB ER 0005 000000 
IHEQERR PR 0006 000000 000004 
IHEQTIC PR 0007 000000 000004 
IHENTRY St 0008 000000 00000C 
THESAPC ER 0009 000000 
THEQL WF PR 000A 000000 000004 
IHEQSLA PR 0008 000000 000004 
IHEQLWO PR 000€ 000000 000004 
IK P 3B PR 0000 000000 000004 
IHESAFA ER ОООЕ 000000 
ANS CM 00 OF 000000 000002 
СОМР см 0010 000000 000002 

ж STATISTIC 5% SGURCE RECORDS = 4 PROG TEXT STMNTS = ` 4, OBJECT BYTES = 24€ 






Appendix A: Programming Examples 241 


P3: PROC i 


COMPILER DIAGNOSTICS. 


WARNINGS. 






TEMO5261 1 OPTION MAIN HAS NOT BEEN SPECIFIED FOR THE EXTERNAL PROCECUREs STATEMENT NUMBER: 1 


ENO CF DIAGNOSTICS. 


AUXILIARY STORAGE WILL NOT BE USED FOR DICTIONARY WHEN SIZE = 65K 








COMPILE TIME 202 MINS 
ELAPSED TIME 233 MINS 

1ЕҒ2851  SYS69273.T115427.$V000.J063PGEX. 0000009 SYSOUT 
IEF2851 VOL SER NCS= M65294. 

IEF2851 — $YS69273.T115421.RV000. JO63PGEX.LCADSET PASSEC 
1ЕҒ2851 VOL SER NOS* 231422. 

IEF2851  $Y$69273.T1115427.RV000.J063PGEX .R0000010 DELETED 
IEF2851 VOL SER NOSe 231423. 

IEF2851 5ү569273 .Т115427 .RV000 .JO63PGEX .80000011 DELETEO 
IEF2851 VOL SER NOS» 231424. 

1ЕҒ2851  SYS69273.T115427.RV000.JO63PGEX. 0000012 SYSIN 
IEF2851 VOL SER NOS= М65295. 

IEF2851  SYS69273.T115427. RV000. JO63PGEX. 50000012 DELETED 
IEF2851 VOL SER NOS= M65295. 

ЕМО OF STEP 'PLIL “ — JOB ' JO63PGEX' 5ТЕРТІМЕз00.00.07 CLOCK=11.56.49 DATE=69.273 RETURN CODE -0012 
XXLKED EXEC PGM=IEWLs PARM=*MAP gL IST aC GND=(16,EQy PLIL)» *001 60000 
XX REGICN«108K 00180000 
XXSYSLIB ОС 05МАМЕ-5Ү51.Р11118%015Ре5НВ 00200000 
XXSYSLMOD 0С  usw»MEEEEGOSET(GO), DISPE (MOD,PASS) , *00220000 
XX UNI T=SYSDAySPACE= (1024, (50,20,11) 00240000 
XXSYSUT1,; DD UNIT=SYSDAySPACE=(10249(200920)) 00260000 
XXSYSPRINT DD SYSOUT#=A,0CB=BLKSIZE=605 0с280000 
XXSYSLIN 00 ODSNAME-&ELOADSET4DISPs(OLD DELE TE) 00300000 
XX DD ODNAMESSYS IN 00320000 
//LKEC.SYSIN DD * 

IEF2361 ALLOC. FOR JO63PGEX LKED COLEEX 
.IEf2371 SYSLIB ОМ 295 
ПЕР2371 ОМ 295 
1ЕЕ2371 ON 1CO 


:1ЕЕ23971 SYSLMOD ON 342 
IEF237I SYSUTI ON 343 
IEF237I SYSPRINT ON 293 
IEF2371 SYSLIN ON 342 
IEF237I ON 290 
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F8P-LEVEL LINKAGE EDITCR OPTIONS SPECIFIED LIST,XREF$0VLY 
| VARIABLE CPTIONS USED ~ 512Еш(104448,59392) DEFAULT OPTION(S) USED 

1EWO000 OVERLAY X 
ІЕНО000 INSERT P2 
ТЕНОООО INSERT  IHELDO 
1ЕН0000 OVERLAY X 
ІЕН0000 INSERT P3 
IEWO461 IHEDDPA 
IEWO461  IHEVPAA 
IEWO461  IHEOOPB 
TEWO461  IHEDDPC 
IEWO«61  IHECDPD 
IEWO461  IHEUPAB 
TEWO461  IHEVSBA 
IEWO461  IHEVSFA 
IEHWO461  IHEVSEB 
TEWO461  IHEVSEA 
IEWO461  IHEVPCA 
IEWO461  IHEVPDA 
IEW0461  IHEVPEA 
IEWO461  IHEVPGA 
TEWO461  IHEVPHA 
ІЕН0461  IHEVFAA 
IEWO461 IHEWFBA 
IEWO461  IHEVFCA 
IEWO461  IHEVFDA 
IEWO461  IHEVFEA 
TEWO46) ІНЕУКВА 
iEWO461  IHEVKCA 
IEWO461  IHEVKFA 
TEWO461  IHEVKGA 
1ЕМ0461  IHEM91A 
IEWO461 ІНЕМ91В 
IEWO&C] ІНЕМ91С 
IEWO461  IHETERA 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 
NAME CRIGIN LENGTH SEG. NO. NAME LOCATION NAME LOCA TION NAME LOCATIEN МАМЕ LOCATION 


$SEGTAB 00 24 1 
Pl 28 308 
«koe PLA 330 158 
IHEMAIN 488 4 
IHENTRY 490 C 
IHE SPRT 4A0 38 
жжжжЖР2А 408 170 
жжжжжрзд 648 108 
IHEDDO ж 750 288 


кө кө кә at рл P 





IHEDDOA 750 IHEDDOB IHEDCOC 754 IHEDLOD 
IHEODOE 758 
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МАМЕ ORIGIN LENGTH SEG. МО. NAME LOCATION NAME LOCATION NAME LOCATION МАКЕ LOCAT ION (27) 








IHEDNC Ж 908 284 1 
IHECNCA 9D8 
IHEDOB ж C60 144 1 
| I HEDOBA C60 IHEDOBB C62 IHEDOBC C64 
| IHEIOB ж DA8 1E4 1 . К 
| IHEIOBA РАВ IHEIOBB DBO IHEIOBC 088 IHEICBD DCO 
| IHEIOBE DC8 IHEIOBT EB4 
IHESAP ж F90 ABS 1 
IHESADA F90 ІНЕ ЅАРС ЕАА IHESAPD F 82 IHES APA FBA 
i IHESAPB FC2 IHESADF FCA IHESADB FD2 IHESADE FDA 
| ІНЕ SAFC FE2 IHESAFA FEA IHESAFB FF2 IHE S AFD FFA 
| IHESARA 1002 IHESAFQ 100A IHE SARC 17C6 IHES ADD 1884 
IHESAFF 18EE 
IHEDMA ж 1A48 F8 1 
IHEDMAA 1448 
IHEIOF * 1840 2DC 1 
i IHEIOFB 1840 IHEIOFA 1842 IHEITAZ 1DDE IHEITAX 1DEA 
| IHEITAA 10ҒЕ 
| IHEPRT Ж 1Е20 2C8 1 
| 1НЕРАТА LE20 IHEPRTB 1E22 
i IHEVPB Ж 20Е8 142 1 
| IHEVPBA 20E8 
| IHEVPF Ж 2290 50 1 
| IHEVPFA 2290 
| IHEVQC Ж 22Е0 268 1 
| IHEVQCA 22E0 
; IHEVSC Ж 2548 AC 1 
| IHEVSCA 2548 
| IHEERR Ж  25F8 729 1 
| IHEERRD 25F8 IHEERRC 2602 IHEERRB 260C IHEERRA 2616 
| . IHEERRE 2C 8E 
| IHEIOD * 2028 29А 1 
| IHEIODG 2028 IHEIOOP 202A IHE IODT 2Е22 
| IHEIOP ж 2ҒС8 1ЕВ 1 
| IHEIOPA 2FC8 IHEIOPB 2FCA IHE IOPC 2FCE 
IHEGCL Ж 3188 554 1 
| IHECCLA 31B8 IHEOCLB 31BA IHEOCLC 318C IHEOCLO ЗІ ВЕ 
| IHEBEG Ж 3710 80 1 
| IHEBEGN 3710 IHEBEGA 3750 
IHESIZ * 23790 C 1 
| IHESIZE 3790 
| IHETAB * 3740 C 1 
| IHETABS 37A0 
| COMP 3780 2 1 
АМ5 3788 2 1 
$ЕМТАВ 37C0 3с 1 
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LOCATION 


34 
354 
35C 
380 
388 
390 
360 
39C 
3A4 
414 
420 
42C 
438 
461 
488 
4F8 
500 
510 
524 
52C 
508 
538 
540 
570 
66C 
614 
678 
690 
9BC 
9C4 
9cc 
C40 
C48 
C50 
088 
090 
098 
DAO 
F6C 
F68 
F84 
11FO 
196C 
1974 
19Ғ8 
1400 
1438 
4440 
LABS 
1ACO 
1AC8 
1400 


REFERS TO SYMBOL 


жжжжжрі A 
IHES ADB 
Р1 
IHEODOC 
IHEDOBB 
IHEIOBT 
IHESAFA 
ANS 

P3 

IHE SPRT 
IHESPRT 
IHESPRT 
IHESPRT 
COMP 

P1 
IHESADA 
P2 

P2 

P2 
IHEIOBT 
IHESAFA 
ANS 
IHESPRT 
P2 

IHES ADB 
P3 
IHESAFA 
COMP 
IHELDOC 
IHEDDPA 
ІНЕООРС 
IHEDMAA 
IHEVSCA 
IHE VQCA 
IHE IODP 
IHEDNCA 
IHEVSEA 
IHEVSFA 
IHEIOPA 
IHE IOPC 
IHEERRB 
IHEERRA 
IHEOCLD 
IHEBEGA 
IHEERRB 
IHETABS 
IHEPRTA 
IHEDDOD 
IHEVFBA 
ÍHEVFAA 
IHEVKGA 
IHEVKFA 


IN CONTROL SECTION 


жжжжжр1А 
THES AP 
Pl 
THEOCO 
IHED OB 
IHEICB 
IHES AP 
ANS 

P3 

THES PRT 
IHESPRT 
IHES PRT 
THESPRT 
COMP 

Pl 
IHESAP 
P2 

P2 

P2 
ІНЕІСВ 
IHESAP 
ANS 
IHES PRT 


$NEVER-CALL 
$NEVER-CALL 
IHEDMA 
IHEVSC 
IHEVQC 
IHEI CD 
IHEONC 
$NEVER-CALL 
$NEVER-CALL 
IHEIOP 
IHEIOP 
IHEERR 
IHEERR 
IHEOCL 
IHEBEG 
IHEERR 
IHETAB 
IHEPRT 
IHEDDO 
$NEVER-CALL 
$NEVER-CALL 
$NEVER-CALL 
$NEVER-CALL 


SEG. 


fO кә ке UJ qus IN) о ТГ ХИТ e? Pe! а Pe put angen tr a rene 


rh eo qua de сей сайлай сей жей үнд 


NO. LOCATION 


350 
358 
37C 
384 
38C 
394 
398 
3A0 
3A8 
418 
424 
430 
43C 
419 
498 
4FC 
50% 
520 
528 
530 
534 
53C 
56C 
668 
670 
688 
68C 
9B8 
9CO 
9C8 
900 
C44 
C4C 
D84 
Dec 
D94 
09С 
F60 
F64 
F70 
F88 
194C 
1970 
19Ғ4 
19FC 
1A04 
143C 
1444 
1488 
1АС& 
1АСС 
1A04 


REFERS TC SYMBOL 


IHE SADA 
Pl 

Pl 
IHEDDOA 
IHEDOBB 
IHEIOBC 
COMP 

P2 

IHE SPRT 
P1 

Pl 

Pl 

Pl 

ANS 
IHESAPC 
IHESADB 
P2 

P2 
IHELDOB 
IHE IOBC 
IHESAFC 
COMP 
IHE SPRT 
IHESADA 
P3 

P3 

ANS 
ІНЕІОҒА 
THE PRTB 
IHEDDPB 
IHEDOPD 
IHEUPAB 
IHE VSEB 
IHEERRC 
IHEIOOT 
THE VSCA 
IHEVSBA 
IHEIOPA 
IHE IOPB 
IHEOCLC 
IHEERRC 
IHEMA IN 
[HESIZE 
{HEI TAX 
IHEERRC 
IHEITAZ 
IHEPRTB 
IHEOCLC 
IHE VFCA 
IHE VPAA 
IHEVPDA 
IHE VPBA 
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IN CCNTRGL SECT ION 


IHESAP 

Pr 

Pl 

IHEDDO 
IHEDCB 
IHEICB 
COMP 

P2 

IHESPRÍ 

PL 

Pl 

P1 

P1 

ANS 

IHESAP 
IHESAP 

P2 

P2 

IHELDO 
IHEIOB 
IHESAP 
COMP 
IHESPRT 
IHESAP 

P3 

P3 

ANS 

IHEIOF 
IHEPRT 
$NEVER-CALL 
$NE VER-C ALL 
$NEVER-C ALL 
$NEVER-CALL 
IHEERR 
ІНЕ100 
ІНЕУ5С 
$NEVER-CALL 
IHEIOP 
IHEIOP 
IHEOCL 
IHEERR 
IHEMAIN 
ІНЕ517 

THE TOF 
IHEERR 
ІНЕІСЕ 


. IHEPRT 


IHEOCL 
$NEVER-CALL 
$NEVER-C ALL 
$NEVER-C ALL 

IHEVPB 


SEG. 


NO. 


а к= 


$e P9 уа \у) (у) фә ф=4 ф=д {мд о IN) №) МӘ af ке Bt ges $9 pee et dut IN) мге gen рае ры 


ке кө кое Фао Qui Qd m) pat а а P gea m 
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PSEUCO REGISTERS 
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LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NC. LOCATICN REFERS 
1А08 IHEVPCA $NEVER-CALL 1804 
1808 ІНЕУҒЕА $NEVER-CALL 1810 
1814 IHEVPGA $NEVER-CALL 1818 
1B1C IHE VPFA IHEVPF 1 1820 
1B24 IHEVPEA $NEVER-CALL 1Е0С 
1Е10 IHEERRC IHEERR 1 2084 
20B8 IHEIGFA IHEI OF 1 208C 
2268 IHEERRC IHEERR 1 2218 
2430 IHEVSEB $NEVER-CALL 248% 
2%00 IHEERRB THEE RR 1 252% 
2CD4 ІНЕМ91А $NEVER-CALL 2C08 
2CDC ІНЕ М91С $NEVER-CALL 2000 
2FBO IHEIOFA IHEICF 1 2FB4 
2FB8 IHEERRC IHEERR 1 3198 
319C IHEERRB IHEERR 1 3140 
36EC IHEIOFA IHEIOF 1 3€F4 
36F8 IHEERRC IHEERR 1 
LOCATION 8 REQUESTS CUMULATIVE PSEUDO REGISTER LENGTH 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH SEG. NAME LOCATION NAME LOCAT ION 
P2 3800 18A 2 
IHELOO ж 39С0 418 2 
IHELDOA 39С0 IHELDOB 39C2 
LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG, NO. LOCATION REFERS 
380C **ж*ж*ж*р2Д хжжжжр2А 1 3888 
30C4 IHEERRC IHEERR 1 30С8 
30CC IHEVSBA $NEVER-CALL 3000 
300% THEDNCA IHEONC 1 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH SEG. NAME LOCATION NAME LOCATION 
P3 3800 F6 3 
LOCATION REFERS TO SYMBOL IN CONTROL SECTION SEG. NO. LOCATION REFERS 
380C жжжжжрзд жжжжхрЗА 1 


TO SYMBOL 


IHE VFDA 
IHEVPHA 
IHE VKCA 
IHEVKBA 
IHEERRB 
IHEOCLA 
IHESPRT 
IHEERRB 
IHEERRC 
IHEVSCA 
IHEM91B 
IHETERA 
IHEERRB 
IHEIOFA 
IHEERRC 
IHEERRB 


NAME 


IHELCOC 
TO SYMBOL 
жжжжжр2д 


IHEIOFA 
IHEVSCA 


NAME 


TO SYMBOL 


IN CONT 


LOCATIO 


39C6 


IN CONT 


LOCAT IO 


IN CONT 


ROL SECTION 


$NE VER-C ALL 
$NEVER-C ALL 
$NEVER-CALL 
$NEVER-CALL 
IHEERR 
ІНЕССІ. 
IHESPRT 
IHEERR 
IHEERR 
IHEVSC 
$NEVER-CALL 
$NE VER-C ALL 
IHEERR 
IHEICF 
IHEERR 
IHEERR 


N NAME 


ROL SECTION 


жжжжжр2 A 
IHEICF 
IHEVSC 


N NAME 


RCL SECT ION 


SEG. 


к ка кә бе dh ә 


кокке кә 


LOCAT ION 


SEG. NC. 


1 

1 

1 
LOCAT ION 


SEG. NO. 


















МАМЕ ORIGIN LENGTH NAME ORIGIN LENGTH NAME ORIGIN LENGTH NAME ORIGIN LENGTH (80) 
IHEQINV 00 4 IHEQERR 4 4 IHEQTIC 8 4 жжжжжрі в с 4 
THEQSPR 10 4 THE QL WF 14 4 IHEQSLA 18 4 THEQLWO 1С 4 
жжж**Р2В 20 4 жжжжжр 2C 24 4 жжжжжрэв 28 4 IHEQFOP 2c 4 
IHEQCFL 30 8 IHEQAOC 38 4 IHEQLSA эс 4 IHEQLW1 40 4 
THE QLW2 44 4 THE QLW3 48 4 THEQLW4 4C 4 IHEQLWE 50 4 
IHEQLCA 54 4 IHEQVDA 58 4 IHEQFVO 5C 4 IHECLPR 60 4 
IHEQSAR 64 4 IHEQRTC 68 4 IHEQSFC 6C 4 IHEQXL V 70 8 
THE QEVT 78 8 

TOTAL LENGTH OF PSEUOO REGISTERS ' 80 
ENTRY ADDRESS 490 
TOTAL LENGTH 3008 
жжжжСО OOES NOT EXIST BUT HAS BEEN АСОЕС TO DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEWO464 WARNING - SYMBOL PRINTED 15 AN UNRESCLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


ir E M Ae a P rr A Ó—— MÀ 





TEF285I SYS1.PLILIB KEPT i 
IEF285I VOL SER NOS- 2301C0. 

ІЕР2851 $YS69273.T115427.RV000.JO63PGEX. GOSET PASSED 
IEF2851I VOL SER NOS- 231422. 

IEF285I $Y$69272. 1115421. RVOOO. JO63PGEX. ROOOCCI 3 DELETED 
1ЕҒ2851 VOL SER NOS= 231423. 

1ЕҒ2851 5Ү569273.7115427.5У000../06ЗРСЕХ.К000001% SYSOUT 
IEFZ85I VOL SER NOS= M65293. 

ІЕР28 51 5569273 7115427 -RVOO0 .J063P GEX .LOACSET DELETEO 
IEF285I VOL SER М05- 231422. 

ІЕР2 851 $YS69273.T115427.RV000. ЈОЄЗРСЕХ.5С000015 SYSIN 
ІЕҒ285І VOL SER NOS= М65295. 

IEF285I 5Ү569273.7115427.КУ000..,063РСЕХ.5С000015 CELETED 
IEF285I VOL SER NCS- M65295. 











ENO OF STEP 'LKEC ы JOB 'JO63PGEX' 5ТЕРТІМЕ-00.00.02 CLOCK=11.57.14 DATE=€9.273 RETURN CODE =0004 
XXGO EXEC PGM=*.LKED«SYSLMGD sCOND=(( SS LT? КЕР), (16$ EQ? PLIL)), *00340000 
XX REGICN=108K 003€0000 
XXSYSPRINT OE SYSOUT-A 00280000 





1ЕҒ236І ALLOC. FOR JO63PGEX cO CCLEEX 
IEF2371 PGMz*.DD CN 342 
1ЕЕ2371 SYSPRINT ON 294 
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ANS* 2.0 


АМ5- 0.2 


ANS= 0.0 
ANS= 0.0 
ANS= 1.0 
ANS= 1.0 
ANS= 0.5 


ANS= 4.0 





IEF2851 
1ЕҒ2851 
1ЕҒ2851 
1ЕҒ2851 
END OF 
1EF285I 
1ЕЕ2851 
ENO ОР 
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COMP= 0453 


ANSWER GREATER THAN CCMPARATOR 


COMP= 0.5; 


ANSWER LESS THAN CCMPARATOR 
NEXT COMMENT INVALID 


COMP- 0.0; 


ANSWER EQUAL TC CCMFARATOR 


COMP= 0.0; 


ANSWER EQUAL ТО CCMPARATOR 


COMP= 1.03 


ANSWER EQUAL TO CCMPARATOR 


COMP= 1.0; 


ANSWER EQUAL TC CCMFARATGR 


COMP= 2.0; 


ANSWER LESS THAN ССМРАВАТОВ 


COMP- 2.0; 


ANSWER GREATER THAN COMPARATOR 


$Y3569273. 111542 7. КМ000. J063 PGEX eGOSET PASSED 

VOL SER NOS= 231422. 

$YS69273.T115427 .5 М000 ,JO63P GEX .ROO00016 SYSOUT 

VOL SER NOS* M65294. 

STEP *60 ы JOB ?*JO63PGEX' ЅТЕРТІМЕ= 00.00.01 CLOCK=11.57.24 
SY $69273 ьТ115427 „РМ000 ,JO63P СЕХ .GCSET DELETED 

VOL SER NOS= 231422. 

JOB  'JO63PGEX* 1/0 TIME=00.01.03 СРОТІМЕ=00. 00.11 С1ОСК=11.57.24 


DATE269.273 


DATE*»69.213 





09 


5Ү5ТЕМ РАСК5 300 АМО 311 


RETURN CQDE=0000 


Appendix В: Parameters of DD Statement 


This appendix contains short descriptions 
of the parameters of the DD statement, 
arranged in alphabetical order of parameter 
namesi. It describes the most frequently 
used facilities of each parameter, and 
summarizes their other features. 


The format of the DD statement is 
described in Chapter 1, and the use of the 
ddname (the name of the DD statement) in 
Chapter 9. For a full description of the 
DD statement, refer to IBM System/360 


те. ane ana ee ee a шш 2 ee T 


Reference 


Characteristics of the Data Set (DCB) 


NY m а, ань иь ань аон аьа аць ааыр иные аьа чар нао o ан 


You can use the DCB parameter to add 
information about the characteristics of a 
data set to the data control block (DCB) 
that is constructed by one of the PL/I 
library subroutines when the associated 
file is opened. Code the keyword parameter 


Code the characteristics as keyword 
subparameters separated by commas, for 
example, DCB-(RECFM-FB,LRECL-80, ...). 


TO save time in coding the DCB 
parameter, you may be able to copy DCB 
information that already exists, either in 
the data set label of a similar data set or 
in an earlier DD statement in the job. To 
copy DCB information from the label of a 
cataloged direct-access data set, code the 
keyword parameter 


Replace 'dsname' with the cataloged name of 
the data set. The volume that contains 
this data set must be mounted before 
execution of the job step containing the 
copy request. 


If such a data set does not exist, you 
might still be able to copy the DCB 
parameter of an earlier DD statement in the 


1For AFF, see SEP. For SPLIT and SUBALLOC, 
see SPACE. 


job. То refer to this DD statement, code 
the keyword parameter 
[oce aa еы шын m cae me oon OS Ei eu p nice 1 
| DCB=*.stepname. ddname | 
TEE a ee ee 1 


Replace 'stepname' and 'ddname' with the 
job step name and the DD statement name, 
respectively. 


If the earlier DD statement is contained 
in a cataloged procedure step, you must 
include the procedure step name (i.e., 
DCB=*.stepname. procstepname. ddname). 


If you want to modify the information 
that is copied from another data set label 
or DCB parameter, code 


---------------------------------------4 


|DCB=(reference,list of characteristics) | 
ce aes ala ыы i ila DEP rae ett ы 22. 1 


Replace ‘reference’ with 'dsname', ог 
'*.stepname.ddname' or 
'*.stepname.procstepname.ddname'. The 
characteristics in the List override the 
corresponding copied attributes. 


Subparameters of the DCB Parameter 


The subparameters included in the DCB 
parameter correspond to the operands of the 
data management DCB macro instruction and 
are coded with the same keywords and 
values. A full description of the macro 
instruction appears in IBM System/360 
Operating System: Supervisor and Data 
following is a summary of those 
subparameters that can apply to a PL/I 
program. The notation used in the format 
descriptions is as follows: 


"п" represents an unsigned decimal 
integer. 


"|" indicates a choice of option. 
Braces { } indicate that you must 
select one line from the items 


enclosed. 


Items within brackets ( ] are optional; 
you may omit them at your discretion. 


Code capital letters and numbers 
exactly as shown. 
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: BLKSIZE=n 


specifies the length in bytes of a 
block. The maximum length is 32760 
bytes. 


For fixed-length records, the block 
size must be an integral multiple of 
the record length (LRECL); the minimum 
size is 1 byte. 


For variable-length (V-format and 
VB-format) records, the block size must 
be at least eight bytes larger than the 
largest item of data that you expect to 
read or write (i.e., four bytes larger 
than the record length specified in 
LRECL). However, if the records are 
spanned (VS-format and VBS-format), you 
can specify block size independently of 
record length. The minimum block size 
for variable-length records is 18 
bytes. 


BUFNO-n 


specifies the number of buffers to be 
used in accessing the data set. The 
maximum number is 255 (unless another 
maximum was determined for your 
installation during system generation). 
For a STREAM file or a BUFFERED RECORD 
file, if you do not specify the number 
of buffers or you specify zero buffers, 
the number is assumed to be two. 


` CODE-A|B|C|F]| I|T|N 


specifies the code in which paper tape 
was punched. (Data is read into main 
storage and then converted from that 
code to EBCDIC.) 

A: ASCII (8-track) 

B: Burroughs (7-track) 

C: NCR (8-track) 

F: Friden (8-track) 


I: IBM BCD perforated-tape 
transmission code (8-track) 


T: Teletype (5-track) 


N: No conversion required (F-format 
records only) 


If no code is specified, I is assumed. 


J CYLOFL-n 
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specifies, for an INDEXED data set, the 
number of tracks on each cylinder to be 
reserved for the records that overflow 

from other tracks in that cylinder. 

The theoretical maximum is 99, but the 


practical limit varies with the 
particular device. 


There must be at least one track in 
each cylinder to hold the track index, 
and one to hold the prime data. 


рЕЯ-0|1|213 


specifies the recording density for 
Magnetic tape as follows: 


г----- Т--------------------- 1 


| [Bytes per inch (bpi) | 
| DEN |---------- т---------- 1 
| | 7-track | 9-track | 
}-----}------~--- {---------- 1 
1091 200 | " | 
| | | | 
| 1 | 556 | = | 
| | | | 
| 2 | 800 | 800 | 
| | | | 
| 3 | - | 1600 | 
lenem Жыласа ысы Баса шашы 1 


The density assumed if you omit this 
subparameter is: 


7-track: 800 bpi 
9-track (single density): 800 bpi 
9-track (dual density): 1600 bpi 


(The subparameter TRTCH is required for 
7-track tape.) 


DSORG-IS|DA 


specifies the organization of the data 
set you are creating: 


IS (indexed sequential): INDEXED data 
set 


DA (direct access): REGIONAL data set 


This subparameter is not required for 
CONSECUTIVE data sets. 


KEYLEN-n 


Specifies the length in bytes of the 
recorded key of records in INDEXED, 
REGIONAL(2), and REGIONAL(3) data sets. 
The maximum key length is 255 bytes. 


LIMCT=n 


limits the extent of the search for a 
record or space to add a record ina 
RESIONAL(2) or REGIONAL(3) data set 
beyond the region number specified in 
the source key. 


If you do not specify a limit, the 
search starts at the specified region 
and continues through the whole of the 
data set. 


For REGIONAL(2), LIMCT specifies the 
number of records to be searched. The 
search starts at the beginning of the 
track on which the record is situated 
and continues to the end of the track 
that contains the last record to be 
searched. 


For REGIONAL(3), LIMCT specifies the 
number of tracks to be searched. 


LRECL=n 


specifies the length of a record in 
bytes; the maximum length is 32760 
bytes for F-format records, and 32756 
bytes for V-format records. You must 
specify a record length for blocked 
records. 


For F-format and FB-format records, the 
record length must not exceed the block 
size (BLKSIZE) value; the minimum 
length is 1 byte. 


For V-format records, give the maximum 
record length including the four 
control bytes required by the operating 
System; the minimum record length for 
V-format records is 14 bytes (ten bytes 
of data and four control bytes). The 
record length for V-format and 
VB-format records must be at least four 
bytes less than the block size 
(BLKSIZE) value; however, for VS-format 
and VBS-format records, it can be 
specified independently of block size. 
If the logical record length of any 
spanned variable-length record in a 
data set exceeds 32756, specify 
LRECL-X. 


MODE-C |E 


specifies the mode of operation for a 
card reader or punch: E indicates 
EBCDIC, and C specifies column binary. 
If you do not specify the mode, E is 
assumed. 


NCP-n 


specifies the number of channel 
programs allocated to a file when it is 
opened: the number of simultaneous 
input/output operations on the file 
(i.e., the number of incomplete event 
variables) cannot exceed the number of 
channel programs. The NCP subparameter 
applies only to DIRECT access to 
INDEXED data sets or UNBUFFERED 
SEQUENTIAL access to CONSECUTIVE or 
REGIONAL data sets. The maximum number 
of channel programs is 99 (unless 
another maximum was established for 
your installation at system 
generation); the default value assumed 
if you omit the subparameter is 1. 


OPTCD=option list 


For DIRECT access to an INDEXED data 
set, simultaneous input/output 
Operations in excess of the number of 
channel programs are queued until a 
channel program becomes available. 


For UNBUFFERED SEQUENTIAL access to 
CONSECUTIVE or REGIONAL data sets, the 
ERROR condition is raised if there are 
too many simultaneous operations. 


The NCP subparameter overrides the 
BUFNO subparameter or the BUFFERS 
option of the ENVIRONMENT attribute. 
One buffer is allocated for each 
channel program. 


NTM-n 


specifies, for an INDEXED data set, the 
number of tracks in the cylinder index 
referred to by each master index entry, 
and the number of tracks within each 
level of the master index referred to 
by each entry in the next higher level. 
The maximum value for n is 99. 


lists optional data management 
services. To indicate the services you 
require, code the appropriate letters 
(see below), without separating blanks, 


in place of ‘option list' (e.g., 


OPTCD-LY). 


OPTCD=C requests chained scheduling, 
which improves input/output 
performance by reducing the time 
required to transmit blocks to and 
from auxiliary storage devices. In 
chained scheduling, the data 
management routines bypass the normal 
input/output scheduling routines and 
chain several input/output operations 
together; a series of read 
Operations, for example, is issued as 
a single chain of commands instead of 
several separate commands. 


Chained scheduling is most useful in 
programs whose performance is 
input/output limited. If you use 
this feature, you should request at 
least three data management buffers 
or at least three channel programs. 
Chained scheduling can be used with 
CONSECUTIVE or REGIONAL SEQUENTIAL 
data sets; it should not be used for 
INPUT or UPDATE with U-format 
records. 


OPTCD-I requests an independent 
overflow area for an INDEXED data 
set; you must define this overflow 
area in a separate DD statement. 


OPTCD=L requests that a record in an 
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INDEXED data set be recognized as 
deleted if its first byte contains 
(8) '1'B. 


OPTCD=M requests the creation of a 
master index in accordance with the 
information given in the NTM 
subparameter. 


OPTCD-U suppresses the raising of the 
TRANSMIT condition when an invalid 
character is passed to a printer with 
the universal character set feature. 
A blank is printed in place of the 
invalid character. 


OPTCD=W requests a write validity check 
for a direct-access device. 


OPTCD=Y requests that the data 
management routines use the cylinder 
overflow area for overflow records in 
an INDEXED data set. The size of the 
overflow area is established by 
CYLOFL-n. 


PRTSP-0|1|2|3 


specifies the spacing required after 
each printed line; the default value is 
1. (For example, PRTSP-3 causes two 
blank lines to appear between each 
printed line.) This subparameter is 
ignored if the record format includes 
ANS or IBM System/360 control 


characters. 
F(B) [S] 
RECFM= VIB) [5] [Т1 ТА|М1 
U 


indicates the record format as follows: 
F:  Fixed-length records 
V:  Variable-length records 
U: Undefined-length records 


If you do not specify a record format, 
U-format is assumed, except for PRINT 
files, for which V-format is the 
default assumption. 


The optional subfields are: 
B: Blocked records. 


S: Standard (fixed-length records 
only). No blocks, except 
possibly the last, will be 
shorter than the specified block 
size. 


S: Spanned (variable-length records 
only). If variable-length 
records are spanned, the record 
length specified by LRECL can 
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exceed the block size specified 
by BLKSIZE; if necessary, the 
records are segmented and the 
segments are placed in 
consecutive blocks. If the 
records are unblocked, each block 
contains only one record or 
segment; if the records are 
blocked, each block contains as 
Many records or segments as it 
can accommodate. 


T: Track overflow. Track overflow 
is an operating system feature 
that can be incorporated during 
System generation. It allows a 
block to overflow from one track 
of a direct-access device to 
another. Track overflow is 
useful in achieving greater 
data-packing efficiency, and also 
allows the size of a record to 
exceed the capacity of a track. 


Note: You cannot use track 
overflow for REGIONAL(3) data 
sets with U-format or V-format 
records or for INDEXED data sets. 





A: The first byte of each record 
contains an ANS printer/punch 
control character. 


M: The first byte of each record 
contains an IBM System/360 
printer/punch control character. 


RKP=n 


specifies, for an INDEXED data set, the 
position (n) of the first byte of an 
embedded key relative to the beginning 
of the record (byte 0). RKP=0 implies 
that the key is not embedded. (For 
example, if 'XYZ' is the key embedded 
in the record 'ABCXYZDEF',RKP-3.) 


5ТАСК=1 |2 
refers to а card reader or punch: 


1. All cards read or punched are to 
be fed into stacker 1. 


2. All cards read or punched are to 
be fed into stacker 2. 


Stacker 1 is assumed if you omit this 
subparameter. If you want stacker 3, 
specify the ANS machine-code character 
in the RECFM parameter of the DD 
statement, and insert the appropriate 
character as the first data byte. 


TRTCH-C|T|E|ET 


is required when a data set is recordei 
or is to be recorded on a 7-track tape. 


It specifies the recording technique to 
be used: 


Data conversion, odd parity, no 
translation. 


Translation, odd parity, no data 
conversion. 


Even parity, no data conversion, 
no translation. 


"Translation, even parity, no data 
conversion. 


If you omit this subparameter, odd 
parity, no data conversion and no 
translation are assumed. 


Notes: 


1. 


Data conversion and translation: 
Data on 9-track magnetic tape, 
like that in main storage, is held 
in 8-bit bytes, a ninth bit being 
used for parity checking; data on 
7-track tape is held in the form 
Of 6-bit characters with a parity 
bit. The conversion feature of 
the 2400 series magnetic-tape 
drives treats all data as if it 
were in the form of a bit string, 
breaking the string into groups of 
six bits for writing on 7-track 
tape, or into groups of eight bits 
for reading into main storage. 

The translation feature changes 
the form in which character data 
is held from 8-bit EBCDIC to 6-bit 
BCD or vice versa. If you specify 
neither conversion nor 
translation, only the last six 
bits of each 8-bit byte are 
transmitted; the first two are 
lost on output and are set to zero 
on input. 


Parity: Odd parity checking is 
normally employed in IBM 
System/360, but you should specify 
even parity if you want to read a 
tape that was written by a system 
using even parity, or to write a 
tape for a system that demands 
even parity. 


Choice of technique: The use of a 
technique other than C restricts 
the character set in which data 
can be written if itiis 
subsequently to be reread and 
result in the same bit 
configuration in main storage. 
(An 8-bit code offers 256 possible 
configurations, but a 6-bit code 
only 64.) For stream-oriented or 
record-oriented transmission of 
character strings or pictured 


data, you can use technique C or 
T; you can also specify ET if your 
program is written in the 
48-character set.  (Seven-track 
tape recording systems indicate a 
zero bit by the absence of 
magnetization of the tape. Even 
parity checking does not allow the 
code 000000 to be used to 
represent the character zero, 
since an unmagnetized band is not 
acceptable on the tape. Therefore 
the code that would otherwise 
represent a colon (:) is used for 
the character zero, precluding the 
use of the full PL/I 60-character 
set.) For record-oriented 
transmission of arithmetic data, 
you must specify technique C. 


Postponing Definition of Data Set (DDNAME) 


A DD statement in a cataloged procedure 
need not contain descriptive parameters. 
Instead, it can point to a subsequent DD 
Statement that contains a complete 


description of the data set. 


To postpone 


the definition of a data set, code: 


Replace 'ddname' with the name of the DD 
Statement that will contain the complete 
information. 


—— =. ME Uis anm аана 


The DISP parameter (which can have three 
subparameters) describes the status of a 
data set and indicates what is to be done 
with it after termination of the job step 


that processes it. 


You can omit this 


parameter if a data set is created and 
deleted during a single job step. 


The first subparameter shows the status 
of the data set with respect to the job 


step. 


If the data set is created in the 


job step, code 


(or code DISP-MOD and include parameters 
usually required by new data sets (see 
below) or omit the status specification 
altogether). 
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To specify an existing data set to be 
used as input to a program, code: 


If the data set resides on а ‘direct-access 
volume and is part of a job whose 
operations do not preclude simultaneous use 
of the data set by another job, code 


which has meaning only in a 
multiprogramming environment. Once a data 
set has been given the status SHR, every 
reference to the data set within the job 
must specify the same status or the data 
set will be considered unusable by 
concurrent jobs. If SHR is coded in other 
than a multiprogramming environment, the 
system assumes the status of the data set 
to be OLD. 


If you want to extend a CONSECUTIVE data 
set by adding records at the end, code: 


When the data set is opened, the read/write 
mechanism is automatically positioned after 
the last record in the data set. If the 
operating system is unable to find the data 
Set, it assumes that it does not yet exist: 
the first time you open the data set, the 
Operating system assumes DISP-NEW, and 
thereafter DISP-MOD. 


The second subparameter indicates how 
you want the data set handled by the job 
Scheduler after normal termination of the 
job step. (If you omit the first, indicate 
its absence by placing a comma in front of 
the second.) If you want the data set to 
assume the status that it had before the 
job step, you need not code the second: 
data sets that existed before the job step 
began will continue to exist, and data sets 
created in the job step, or earlier in the 
job, with DISP-(,PASS) will be deleted. If 
there is any uncertainty, code both 
subparameters in full. 


TO catalog a data set, code: 


'Status' shows the status of the data set 
as discussed above. When you request 
cataloging, an index entry pointing to the 
data set is placed in the system catalog. 
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DD statements in subseguent jobs can then 
refer to this data set simply by giving its 
fully qualified name and the disposition. 


To uncatalog an input data set, code: 


The catalog entry that points to the data 
set is removed from the index. If the data 
set resides on a direct-access volume, it 
remains tabulated in the volume table of 
contents (VTOC). 


If you have no further need for a data 
set after its use, code: 


The data set is automatically uncataloged 
if you have used the catalog to locate it. 
In addition, the system removes the VTOC 
entry associated with the data set, if it 
resides on a direct-access device. If you 
code DISP=(SHR,DELETE), the system assumes 
OLD instead of SHR. 


For data sets that are used in a later 
job but are not of sufficient importance to 
warrant their being cataloged, code: 


The data set is kept intact until the 
system encounters DISP=(status,DELETE). If 
the volume containing the data set is 
demounted, the system advises the operator 
of the KEEP disposition. If the data set 
resides on a direct-access volume, it 
remains tabulated in the volume table of 
contents. 


When a data set is used by two or more 
job steps in the same job, you can 
eliminate retrieval and disposal operations 
by passing it from step to step. You do 
not indicate the final disposition of the 
data set until its last use in the job. To 
pass a data set to a succeeding step, code: 


Subsequent DD statements referring to the 
passed data set must identify it with the 
DSNAME parameter, must provide either no 
unit information, or unit information 
consistent with that in the original data 
set, and must issue another disposition. 
Between steps, the volume that contains the 
passed data set remains mounted. However, 


if the system or an intervening step 
requires that device, the volume may be 
dismounted and saved by the operator; it is 
remounted when required in a succeeding job 
step. To ensure that the volume remains 
mounted during steps in which it is not 
required, use dummy DD statements referring 
to the data set in these steps. 


The third subparameter indicates how you 
want the data set handled by the job 
scheduler at the end of the job step if the 
job step terminates abnormally. If you 
omit this subparameter, the disposition 
requested in the second subparameter will 
be performed if the job step terminates 
abnormally. 


If in the event of abnormal termination 
you wish to have a data set cataloged, 
code: 


Status’ and ‘disposition’ show the status 
and disposition of the data set at normal 
end of job, as discussed above. 


If in the event of abnormal termination 
you wish to uncatalog a data set, code: 


'Disposition' refers to the disposition you 
want made of the data set upon normal 
termination of the job step. 


If in the event of abnormal termination 
you wish a data set to be deleted, code: 


| DISP=(status, disposition, DELETE) | 


If in the event of abnormal termination 
you wish a data set to be kept, code: 


The second subparameter can be omitted. 
If you code 


the default for the second subparameter 
follows the rule established above. 


Note: The third (conditional disposition) 
subparameter applies only if the job step 
is terminated abnormally. It does not 


apply if a ‘STEP WAS NOT EXECUTED' message 
is given, either due to a JCL error ora 
condition code setting. 


Identifying the Data Set (МАМЕ) 


The DSNAME parameter identifies the data 
set to which the DD statement refers. You 
need not code this parameter if the data 
Set is temporary or resides on a 
unit-record device or on an unlabeled 
magnetic tape; the system automatically 
assigns a temporary name. You can specify 
the DSNAME parameter in one of three ways: 


1. То name or retrieve a data set that 
will be identified in later jobs by 
name, or that was assigned a name in 
an earlier job or job step, code: 


The word DSNAME can be abbreviated to 
DSN. Replace 'dsname' with the 
cataloged or tabulated name of the 
data set. If the catalog has more 
than one level of index, you must give 
a fully qualified name (e.g., 
A.B.LINKFILE). 


If the DD statement refers to a 
particular generation of a generation 
data group, you must code the 
generation number in parentheses, 
i.e., DSNAME-dsname (number). 


If the DD statement refers to a member 
of a partitioned data set, you must 
code the member name in parentheses 
after dsname, i.e., 

DSNAME-dsname (membername). 


If the DD statement is one of a group 
of DD statements that define an 
INDEXED data set, you must code one of 
the terms INDEX, PRIME, or OVFLOW in 
parentheses after dsname (e.g., 
DSNAME-dsname (PRIME)). 


2. To obtain the data set name from an 


earlier DD statement, code: 
(rere asa Mm mt mmm aa 1 
| DSNAME=*, stepname. ddname | 
Қызасысаысысысыдыы ы БЕРИК Ошый н Шаарын 1 


Replace 'stepname' and ‘ddname' with 
the job step name and DD statement 
name, respectively, where the data set 
was first defined. 


If the earlier DD statement is 
contained in a cataloged procedure 
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step, you must include the procedure 
step name, i.e., 
DSNAME=* .stepname. procstepname. ddname. 


3. A data set that exists only within the 
boundaries of a job can be assigned 
any temporary name. To assign a 
temporary name, code: 


| DSNAME-&6name | 
acs a Se а mt te a ee s ——— i “em ii 1 


Replace ‘name’ with any name of not 
more than eight characters not used by 
another temporary data set in the job 
(e.g., DSNAME=S&TEMPDSET). The system 
replaces the &&name with a name of the 
form 'jobname.dsname'. 


If the DD statement refers to a member 
of a temporary partitioned data set, 
you must code the member name in 
parentheses, i.e., 

DSNAME-6 &name(membername) . 


If the DD statement is one of a group 
of DD statements that define a 
temporary INDEXED data set, you must 
code one of the terms INDEX, PRIME, or 
OVFLOW in parentheses after the &&name 
(e.g., DSNAME=6&name(PRIME)). 


Data Set Label (LABEL) 


Magnetic-tape volumes can contain standard 
or nonstandard volume labels and data set 
header and trailer labels, or they may have 
no labels at all. Direct-access devices 
have standard labels. The LABEL parameter 
‘indicates the position of a data set 

: relative to the other data sets on a tape 
.reel, and the type of labels; it can also 

. Specify the retention period for a data set 
оп magnetic tape or direct-access device, 

| and whether a password is required before 
'it сап be accessed. Only the sequence 
‘number and label type are described here. 


For a magnetic-tape volume, if а data 
set is not first in sequence on the reel, 
the LABEL parameter must include a data set 
sequence number to position the tape 
properly. The sequence number describes 
the position of the data set relative to 
.other data sets on the volume or group of 


volumes. Codes: 
Ce ————————À Ó—À— ы шын ы MÀ == 1 
| LABEL=seq# | 
bee bes D келсш ыб. а ee 1 


‘Replace 'seq#' with the sequence number 
: (1-4 decimal digits) of the data set on the 
reel. 
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TO create or retrieve a data set that 
does not have standard labels, you must 


include the LABEL parameter. То specify 
the type of labels, code: 
Г т=ш== е = ые шыш шене катынды ыш ee 1 
| LABEL=(, type) | 
Бызсааха ашық сым hs ete ee J 
Replace 'type' with: 
SL - if the data set has standard 


labels 
NL - if the data set has no labels 


NSL - if the data set has nonstandard 
labels 


SUL - if the data set has both standard 
and user labels 


BLP - to bypass label processing 


If you specify SUL, SL, or omit the 
label type (in which case standard labels 
are assumed), the operating system will 
ensure that the correct volumes are 
mounted. If you specify NSL, your 
installation must have incorporated label 
processing routines into the operating 
system. If you specify NL, the data set 
must have no labels. (Specifying NL for an 
output data set on a labeled volume can 
cause the volume label to be erased.) 


The feature that allows you to bypass 
label processing is a system generation 
option (OPTIONS-BYLABEL). If this option 
was not requested at system generation and 
you have coded BLP, the system assumed NL. 


Note that the two LABEL subparameters 
are positional. (If you omit the first, 
indicate its absence by placing a comma in 
front of the second.) 


Optimizing Channel Usage (SEP and AFF) 


A job step that requires several input and 
output operations might be performed more 
efficiently by balancing the channel 
requirements of its data sets. To obtain 
optimum channel usage, you can request that 
a data set be assigned a separate channel 
from the ones assigned to earlier data 
sets. А later DD statement can express the 
same separation requirements by requesting 
affinity. 


TO request channel separation from as 
many as eight other data sets in the job 
step, code: 


pecore e ee шышт ыиы a eg 


| SEP-(ddname,...,ddname) . | 


Replace 'ddname' with the names of up to 
eight earlier DD statements in the job 
step. 


TO obviate writing identical SEP 
parameters for different data sets, you can 
request affinity with an earlier data set 
that requested channel separation by coding 


in a later DD statement. Replace 'ddname' 
with the name of the earlier DD statement. 
The data set that requests affinity is also 
allocated a separate channel from those 
identified in the SEP parameter of the 
earlier statement (but not necessarily the 
same channel as the data set to which the 
SEP parameter referred). 


The operating system will comply with 
your requests for separation and affinity 
only if enough channels are available. 


Note: Do not confuse the SEP and AFF 
parameters with the subparameters SEP and 
AFF of the UNIT parameter. 


Allocating Direct-Access Space (SERCE; 
SPLIT, and SUBALLOC) 


When creating a new data set ona 
direct-access volume, you must indicate in 
your DD statement how much space the data 
set will need. You can allocate space: 


1. By requesting the amount of space and 
letting the system assign specific 
tracks. 


2. By requesting specific tracks. 


3. By splitting cylinders with other data 


4. By suballocating space from an earlier 
data set. 


The most frequently used technique of 
space allocation allows you to specify the 
amount of space you need and let the system 
assign specific tracks. Options permit you 
to specify the manner in which the space is 
to be arranged, to release unused space, 
and to request that the space begin and end 
on cylinder boundaries. 


You can specify the amount of space in 
units of tracks, cylinders, or blocks, 


whichever is most convenient. In the last 
case the system will compute the number of 
tracks or cylinders required. то allocate 


space using this technique, code: 
premere e TUR UN птттт 1 
| SPACE=(units, quantity) | 
бсо ды ыла ышт Сш eL eL 


Replace ‘units' with: 


TRK - if you want space in tracks 


CYL - if you want space in cylinders 
Average block length in bytes - if you 
want space in terms of blocks 


Replace 'quantity' with the amount of space 
you need in the units you have chosen 
(e.g., SPACE-(TRK,200) for 200 tracks, 
SPACE-(CYL,10) for ten cylinders, and 
SPACE-(400,100) for 100 blocks with an 
average length of 400 bytes). 


Notes: 


1. For most efficient performance, 
request space in units of cylinders 
(CYL), or in units of blocks with the 
ROUND subparameter. 


2. The average block length cannot exceed 
65,535 bytes. 


3. If you request space in units of 
blocks, and the blocks have keys, you 
should specify an average block 
requirement which includes the key. 


4. Space allocation by blocks allows 
device independence. 


If the possibility exists that the data set 
might at some time exceed the amount of 
space you requested, you can ensure that 
extra space will be made available by 
denoting an incremental quantity. Code: 


Replace 'increment' with a decimal number. 
Each time the data set exhausts its space, 
additional space will be allocated on the 
same volume in the amount of the increment. 
For example, if you code 

SPACE=(TRK, (200,10)), the data set would be 


initially allocated 200 tracks. If it 
later exceeded 200 tracks, ten additional 
tracks would be made available. This 


incrementing by ten tracks would take place 
each time the data set exhausted its total 
space (up to a maximum of 15 times). 


If the data set for which you are 
allocating space has partitioned 
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;Organization, you must indicate the size of 
‘its directory in the SPACE parameter. 
Code: 


Replace 'directory' with the number of 
'256-byte blocks in the directory. If you 
wish to give an incremental quantity, code 
.SPACE- (units, (quantity,increment, 
‘directory)). 


If the data set has INDEXED 
‘Organization, you can indicate the size of 
‘its index in the SPACE parameter. Code: 


---------------------------------------4 


t 
| SPACE- (units, (quantity,,index)) | 
L 


‘Replace 'index' with the size of the index, 
iin cylinders. If you do not allocate space 
‘for the index , the operating system will 
use part of the independent overflow area 
or prime data area for the cylinder and 
master indexes. 


You cannot give an incremental quantity 
for an INDEXED data set, but you сап do so 
for a REGIONAL data set only for SEQUENTIAL 
‘creation. 


you can release unused space when you 
have finished writing a data set by 
including the positional subparameter RLSE 
in the SPACE parameter. Code 


where 'quantities' represents ‘quantity, 
‘increment ,directory' or ‘quantity, 
iincrement,index' as used above.  RLSE 
icannot be used with ISAM data sets. 


The SPACE parameter also allows you to 
‘request that the data set be placed on 
contiguous tracks or cylinders, and to 
place a data set in a specific position on 
the volume. 


When a job step involves one or more 
data sets that have corresponding records, 
you can minimize access-arm movement by 
using the SPLIT parameter instead of the 
‘SPACE parameter. The SPLIT parameter 
irequests that each data set be given a 
‘proportion of the tracks on every cylinder 
iallocated, allowing access to corresponding 
‘records in the data sets without movement 
ОЁ the access arm. 


Another method of obtaining 


direct-access space is through the 
technique of suballocation, using the 
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SUBALLOC parameter.  Suballocation allows 
you to place a number of data sets in 
contiguous order on a direct-access device. 


Routing Data Sets through an Output Stream 
(SYSOUT) 


The operating system provides output 
streams through which you can route data 
sets destined for unit record devices. To 
route a data set through any output stream, 
codes 


Replace 'x' with an alphabetic (A-2) or 
numeric (0-9) character. The character you 
select specifies an output class and a 
corresponding output stream. (The computer 
operator allocates the output classes; a 
usual convention is that class A refers to 
a printer and class B to a card punch.) 


When using an operating system with PCP, 
to route a data set through the output 
Stream that carries system messages, code: 


You can also route both data sets and 
System messages through the same output 
Stream when using a system with MFT or MVT. 
To do this, you must specify in the SYSOUT 
parameter the output class that you 
selected for the MSGCLASS parameter in your 
JOB statement. 


Operating systems with MFT and MVT have 
two additonal options for the SYSOUT 
parameter. They allow you to name your own 
special program to handle ouput operations, 
and to select a specific type of output 
form for a printed or punched data set. 


Specifying a Character Set (UCS) 


The Universal Character Set (UCS) parameter 
allows you to have your output printed with 
a Specified character set on a printer with 
the UCS feature. This character set is 
selected from a library of the character 
sets available at your installation; such a 
library would only exist if your 
installation had a UCS printer. Each 
character set is held in the library as an 
image of the appropriate subset of the 
universal character set of 240 graphic 
symbols. The selected image is loaded into 


the UCS buffer of the control unit for the 
printer, which must be equipped with the 
appropriate print chain or train. 


To specify a required character set 
code: 


Replace ‘character set code' with one of 


the twelve identification codes for the IBM 


standard character sets or with a code for 
your own character set. These codes must 
be one to four bytes long; those for the 
PL/I character sets are: 


PN Alphameric (PL/I) 
QNC Alphameric (PL/I commercial) 
QN Alphameric (PL/I scientific) 


If you omit the UCS parameter when using a 
printer with the UCS feature, there may be 
a default character set for your 
installation. If not, a message will be 
put on the console asking the operator to 
specify a character set. ; 


Other UCS features available allow you 
to transpose certain EBDIC characters with 
others, and to request the operator to 
verify that the character set chosen is the 
right one. 


Requesting a Unit (UNIT) 


The UNIT parameter of the DD statement 
allows you to specify information about the 
input or output unit(s) used by a data set. 
You can identify a specific unit or group 
of units by its address, its type number, 
or its group name. 


To identify a unit by its address, code: 


Replace 'address' with the 3-byte address 
of the unit (e.g., UNIT=180 for channel 1, 
control unit 8, unit 0). 


To identify a unit by its type number, 
code: 


А 
| UNIT=type | 
L 


amm ag me m» te aa аа E 


Replace 'type' with a valid unit type 


number (e.g., UNIT 2000-2). The following 
are valid unit type numbers: 


Tape Units 


2400 


2400-1 


2400-2 


2400-3 


2400-4 


2400 series 9-track magnetic- 
tape drive that can be allocated 
to a data set written or to be 
written with a density of 800 
bpi. 


2400 series magnetic-tape drive 
with 7-track compatibility and 
without data conversion. 


2100 series magnetic-tape drive 
with 7-track compatibility and 
data conversion. 


2400 series 9-track magnetic- 
tape drive that can be allocated 
to a data set written or to be 
written with a density of 1600 
bpi. 


2400 series 9-track magnetic- 
tape drive having an 800 and 1600 
bpi (density) capability. 


Direct-Access Units 


2301 
2302 
2303 
2311 


2314 


2321 


2301 drum storage unit 
2302 disk storage drive 
2303 drum storage unit 
2311 disk storage drive 


2314 direct-access storage 
facility 


Bin mounted on 2321 data cell 
drive 


Unit Record Equipment 


1052 
1403 


1442 
1443 
2501 
2520 
2540 
2540-2 
2671 
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1052 printer keyboard 


1403 printer or 1404 printer 
(continuous form only) 


1442 card read punch 

1443 printer 

2501 card reader 

2520 card read punch 

2540 card read punch (read feed) 
2540 card read punch (punch feed) 


2671 paper-tape reader 
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Graphic Units 


1053 1053 model 4 printer 

2250-1 2250 display unit, model 1 

2250-3 2250 display unit, model 3 

2260-1 2260 model 1 display station 
(local attachment) 

2260-2 2260 model 2 display station 
(local attachment) 

2280 2280 film recorder 

2282 2282 film recorder/scanner 


At system generation, your installation 
can designate names for individual units or 
collections of units (for example, to 
classify collections of magnetic-tape and 
direct-access units under the same name). 
To identify such a group of units in a DD 
statement, code: 


Replace ‘group’ with a valid unit group 
name (e.g., UNIT=TAPE). If your 
installation uses IBM-supplied cataloged 
procedures, the following group names must 
have been established at system generation: 


Name Types of Devices 

5Ү550 Magnetic tape, direct access 
SYSDA Direct access 

SYSCP Card punch 


Other subparameters of the UNIT 
parameter allow you to specify the number 
of units you need, defer mounting of 
volumes until the data set is opened, and 
request that the data set not be retrieved 
or stored by access mechanisms used by 
certain other data sets. 


Specifying Volume Information (VOLUME) 


To request specific volumes, you can either 
identify the volumes by their serial 
numbers or use the volumes used by an 
earlier data set in the job. 
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To identify volumes by their serial 
numbers, code: 


--------------------------------------- 


| VOLUME=SER=(ser#,...,ser#) | 


VOLUME can be abbreviated to VOL. Replace 
‘ser#' with the serial numbers associated 
with the volumes; a serial number may 
consist of up to six characters. You must 
use this form of the VOLUME parameter when 
retrieving noncataloged data sets. If only 
one volume is involved, you can omit the 
parentheses, i.e., code VOLUME=SER=ser#. 


There are two ways of requesting the 
volumes used by an earlier data set. If 
the data set is cataloged or passed, and 


you wish to refer to it, code: 
FS ee 1 
| VOLUME=REF=dsname | 
Саа аа аа RUTRUM ИНЕ J 


Replace 'dsname' with the name of the data 
set. If the data set is not cataloged or 
passed, and you wish to refer to the DD 
statement that defines it, code: 


Replace 'stepname' and 'ddname' with the 
name of the job step and DD statement where 
the earlier data set is defined. If the 
earlier data set is part of a cataloged 
procedure, you must include the procedure 
step name, i.e., 
VOLUME-REF-*.stepname.procstepname.ddname. 


Other subparameters of the VOLUME 
parameter allow you to request private 
volumes, request that private volumes 
remain mounted until the end of the job, 
select volumes when the data set resides on 
more than one, and request more than one 
nonspecific volume. 
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This edition, Form C28-6594-6 of the PL/I 


(F) Programmer's Guide, documents the fifth 


version of the compiler with the 


improvements incorporated for Release 19 of 


the operating system. 
Earlier versions are: 


1st version: Form C28-6594-0 
2nd version: Form C28-6594-1 
3rd version: Form C28-6594-2 
4th versions Form C28-6594-3 


4th version, release 17: Form C28-6594-4 


5th version: Form С28-6594-5 


The more important differences between 
these versions of the compiler are listed 
below. There then follows a statement 
concerning the compatibility between 
compiled code and library modules of 
various versions. 


Changes at Second Version 


The most significant changes for the second 


version of the compiler are: 


RECORD I/O: The statements: READ, WRITE, 
REWRITE, and DELETE. 


The attributes: RECORD, UPDATE, 
SEQUENTIAL, DIRECT, BACKWARDS, 
BUFFERED, UNBUFFERED, and KEYED. 


The ON-conditions: RECORD and KEY. 


The built-in functions: ONFILE and 


ONKEY. 


Note: The usage UPDATE SEQUENTIAL 
was not supported except for 
INDEXED data set organization. 


COMPILE-TIME PROCESSING: The compile-time 


processing feature of PL/I. 


COMPILER OPTIONS: Abbreviated names as 


alternatives to the full names for 


compiler options. 


ARRAY INITIALIZATION: Initialization of 


arrays of STATIC variables by means 


of the INITIAL attribute. 


STREAM I/O: The options PAGESIZE and 
LINESIZE. 


The ON-condition NAME. 


Versions of the PL/I (F) Compiler 


LIST/DATA-DIRECTED OUTPUT: Alignment of 
data on preset tab positions. 


RECORD FORMAT: The use of 
undefined-format source records. 


PAPER TAPE: Paper tape as input to the 
compiler and object program. 


OPERATORS: The operators 4» and q<, and 
their 48-character set equivalents 
NG and NL. 


QUALIFIED NAMES: The resolution of 
apparently ambiguous name 
qualification. 


OBJECT PROGRAM LISTING: Double-column 
format for the object program 
listing. 


OBJECT-TIME ERROR HANDLING: Optional 
inclusion of the statement number 
in object-time diagnostic messages. 


Combination of SNAP output with 
SYSTEM action for ON statements. 


RECURSION ENVIRONMENTS: A change in the 
interpretation of ENTRY parameters 
and ON units in recursive contexts. 


CATALOGED PROCEDURES: A new cataloged 
procedure (PLILFLG) for 
link-editing and execution. 


Changes at Third Version 


The most significant changes for the third 
version of the compiler are: 


OBJECT PERFORMANCE: Changes in the object 
code generated by the compiler will 
result in considerable improvements 
in the object-time performance. 

The most significant improvements 
are in the following areas: data 
conversions, the SUBSTR function 
and pseudo-variable, the INDEX 
function, the UNSPEC function, 
object-time error handling and 
procedural housekeeping, and the 
use of GO TO label variables. 


ARRAY INITIALIZATION: Initialization of 
arrays of AUTOMATIC or CONTROLLED 
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variables by means of the INITIAL 
attribute. 


UPDATE SEQUENTIAL: The use of UPDATE 
SEQUENTIAL for CONSECUTIVE and 
REGIONAL data set organizations. 


ASYNCHRONOUS OPERATION: The EVENT option 
on I/O statements, the COMPLETION 
built-in function and 
pseudo-variable, and the WAIT 
statement. 


BATCHED COMPILATION: The facility for 
batched compilation of programs and 
a new compiler option, OBJNM. 


LINK-EDITING: A changed method of 
link-editing library routines into 
an object program, facilitating 
both the link-editing of PL/I 
object modules from a library and 
the use of overlay technique with 
PL/I object modules. 


MIXED DEFINING: The severity of 
diagnostic messages for defined 
data of type different from the 
type of the base is reduced from 
terminal to error, permitting the 
compilation of programs using mixed 
defining. 


Changes at Fourth Version 


The most significent changes for the fourth 
version of the compiler are: 


LOCATE I/O AND LIST PROCESSING: The 
following language is now 
supported: 


Statements and options: 


READ FILE (filename) 
SET (рої піег-уагіар1е) 
[KEY (expression) | KEYTO 
(character-string-variable)]; 


LOCATE based-variable 
FILE (filename) 
[SET (pointer-variable)] 
[KEYFROM (expression)1; 
REWRITE FILE(filename); 
ALLOCATE based-variable 
[in(area-variable)] 
[SET (pointer-variable)]; 


FREE based-variable 
(IN(area-variable)1; 


Assignment: 
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AREA to AREA 
POINTER/OFFSET to POINTER/OFFSET 
Attributes: 
AREA[(expression)] 
BASED(pointer) 
OFFSET (based-variable) 
POINTER 
REFER(identifier) 
Built-in functions: 
ADDR 
EMPTY 
NULL 
NULLO 
Condition: 
AREA 
Operation: 


-» in 60-character set 
PT in 48-character set 


ASYNCHRONOUS OPERATIONS AND MULTITASKING: 
The following language is now 
supported: 

Statements and options: 
CALL statement with TASK, EVENT, 
and PRIORITY options in any 
combination 


WAIT Statement extended to allow 
array names in the event list 


DISPLAY statement with REPLY and 
EVENT options 


UNLOCK statement 
NOLOCK option in READ statement 
Assignment: 
EVENT to EVENT 
Attributes: 
EVENT 
EXCLUSIVE 
TASK 
Built-in functions/pseudo-variíiables: 
COMPLETION 
PRIORITY 
STATUS 


Multitasking is supported by the MVT 
system 


Multiprocessing 


DATA INTERCHANGE: The COBOL option in the 
ENVIRONMENT attribute; the 
ALIGNED/UNALIGNED attributes (for 
FORTRAN data interchange). 


ASSEMBLER SUBROUTINES: A variable-length 
argument list can be passed to 
assembler subroutines invoked by a 
PL/I program. 


STRING HANDLING: The STRINGRANGE 
condition for use with SUBSTR; the 
STRING function. 


STREAM I/O: LINESIZE, SKIP, and COLUMN in 
non-PRINT files; PUT DATA with no 
data list. 


RECORD I/O: Some types of VARYING string 
may be used with the INTO or FROM 
options; the KEY option in the 
DELETE statement is now optional. 
The DELETE statement is now 
supported for INDEXED data sets 
using SEQUENTIAL access. The new 
ENVIRONMENT options (INDEXAREA, 
NOWRITE, and REWIND) provide 
improved performance. 


COMPILER OPTIONS: SIZE and SORMGIN have 
been changed, and four new options 
(OPLIST, EXTDIC, MACDCK, and NEST) 
have been added. 


COMPILE-TIME OPTIMIZATION: 
Macro-processor concatenations are 
improved. 


OBJECT PROGRAM OPTIMIZATION: Constant 
subscript and constant expression 
evaluation; some instances of 
VARYING strings in assignment; 
in-line code for some VARYING 
string operations; prologue 
optimization; in-line handling of 
certain data conversions and some 
bit-string assignments; 
rounding-off (instead of 
truncation) for E- and F-format 
outpüt; dope vector initialization 
improved; optimization of some IF 
Statements 


LISTING IMPROVEMENTS: More details in 
attribute listings; aggregate 
listing in alphabetical order; 
sizes of the STATIC and program 
control sections are given; the 
size of each DSA is given; 
statement number provided in 
diagnostic message for invalid 
pictures; improvements in aggregate 
length table for BASED items. 


PROGRAM RESTART: The operating system 
checkpoint/restart facility is 
available under PCP. 


EVALUATION OF EXPRESSIONS: The order of 
priority is changed; concatenation 
now comes before the comparison and 
logical operators in the sequence 
of priority. 


PL/I SORT: The operating system sort 
program is available for use with 
PL/I programs. | 


Note: In multitasking the action taken by 
the conditions ERROR and FINISH, and the 
statements EXIT and STOP vary significantly 
between the third and fourth versions. The 
following descriptions refer to the fourth 
version. | 


ERROR condition: if raised in a major 
task, FINISH is raised; if in any 
other task, that task is 
terminated. 


FINISH condition: execution of the 
interrupted statement is resumed. 


EXIT statement: causes immediate 
termination of the task containing 
this statement, and all tasks 
attached by this task. If ina 
Major task, it has the same effect 
as STOP. 


STOP statement: raises FINISH and causes 
immediate termination of the major 
task and all subtasks. 


Changes at Fourth Version, Release 17 


The most significant changes for the fourth 
version at Release 17 are: 


RECORD І/О: Spanned records (VS- or 
VBS-format) can be specified to 
span blocks. 


Generic keys (GENKEY option) can be 
specified to access groups of 
records on an INDEXED data set. 


PL/I SORT: User control or SORT ddnames 
for multiple use of PL/I SORT 
within a single job step is 
provided. 


MULTIPROCESSING: More than one PL/I task 
may be executed simultaneously by a 
multiprocessing system. 


PROGRAM RESTART: Improved 
checkpoint/restart facilities are 
supported by PCP and MVT systems. 


CATALOGED PROCEDURES: Changes to some 
condition codes and to the dsnames 
for temporary data sets have been ^ 
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incorporated into the PL/I 
cataloged procedures. 


Changes at Fourth Version, Release 18 


The most significant changes for the fourth 
version at Release 18 are: 


COMPILER STATISTICS: Additional 
information is given in the listing 
to facilitate the automatic 
collection of statistics about the 

use of the operating system. 


DEDICATED WORKFILES: With the МУТ control 
program, a dedicated workfile can 
be substituted for workspace data 
sets. 


LINKAGE LOADER: A new operating system 
service program, the linkage 
loader, can be used as an 
alternative to the linkage editor. 

CATALOGED PROCEDURES: Two new cataloged 
procedures are introduced: PLILFCG 
and PLILFG; both for use with the 
linkage loader. 

MULTIPLE CONSOLE SUPPORT (MCS): For an 
installation that has MCS, system 
messages can be displayed on one or 
more consoles. 

MESSAGE LEVEL PARAMETER: The MSGLEVEL 


parameter in the JOB statement can 
have additional values. 


Changes at Fifth Version 


The most significant changes for the fifth 
version are: 


TELEPROCESSING: The following language is 
now supported: 


File attributes: 


ENVIRONMENT Options: G(max. 
length) R(max. length) 


TRANSIENT 
ON-conditions: 
PENDING 


ASYNCHRONOUS OPERATIONS AND MULTITASKING: 
The following is now supported: 


Task management: 
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Protection between tasks when 
executing 'soft' code іп a 
multiprocessing environment 


PRTY parameter in the EXEC 
Statement 


PRIORITY pseudo-variable enables 
priority of any task to be changed 


OBJECT PROGRAM OPTIMIZATION: Optimization 
of DO-loops for faster operations; 
implementation of halfword binary; 
some in-line conversions; improved 
assignment code for fixed decimal 
data; improved edit I/O for F- and 
E-formats; improved register 
allocation. 


OBJECT PROGRAM TERMINATION: The specified 
task asynchronous exit (STAE) 
feature for abnormal terminations 
in single and multitasking. 


DATA SET DESCRIPTION: TRKOFL (track 
overflow) and NCP (number of | 
channel programs) have been added 
to the list of options in the 
ENVIRONMENT attribute. 


PROGRAM RESTART: The operating system 
checkpoint/restart facility is now 
available under PCP, MFT, and MVT. 


IMPROVED FLOATING-POINT ENGINEERING 
CHANGE (IFPEC): Implementation of 
this feature has produced increased 
precision and faster execution for 
computational subroutines. 


DATA EDITING: 
Built-in functions: 


TRANSLATE 
VERIFY 


PL/I LIBRARY: Selected library modules 
may now be stored permanently in 
main storage for MFT and MVT. 


STRING HANDLING: STRING pseudo-variable. 


FUNCTION REFERENCES: Mandatory RETURNS 
attribute on PROCEDURE and ENTRY 
Statements. 


BASED STRUCTURES: Improved precision for 
FIXED BINARY data used with the 
REFER option. 


CATALOGED PROCEDURES: New cataloged 
procedures (PL1ILFG and PLILFCG); 
dedicated workfiles. 


ABBREVIATIONS: The following 
abbreviations for file attribute 
keywords are accepted: 


Keyword Abbreviations 1 
BUFFERED BUF 
EXCLUSIVE EXCL 
SEQUENTIAL SEQL 
UNBUFFERED UNBUF : 


Changes at Fifth Version, Release 19 


The most significant changes for the fifth 
version at Release 19 are: 


In-stream procedure: Provision to test 
programmer-written procedures as 
in-stream procedures before being 
placed in the procedure library. 


Model 195 support: New compiler options 
to support Model 195. 


Step Abend facility: Enables system to 
issue a STEP ABEND after an 
abnormal termination from any task 
when the termination is caused by 
the ERROR condition, and no ERROR 
on-unit is established. 


Syntax Check option: Provision made to 
terminate compilation after the 
syntax checking is completed, 
conditional on the error severity 
specified. 


7 track tape default: Default changed 
from 200 b.p.i., to 800 b.p.i. ц. 


Changes at Fifth Version, Release 20 


All changes at the fifth version for 

Release 20 are minor changes resulting 
from maintenance of the compiler and this 
publication. 1 
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the PL/I Library and Compiled Code 2. 


Certain changes and improvements have been 
made to PL/I, the compiler, and the library 
between the five versions of the compiler. 
As a result, certain incompatibilities have 
unavoidably arisen between library modules 
of the different versions., The purpose of 
this compatibility statement is to make 
clear to the user what incompatibilities 
exist, and how the problems raised by them 
can be overcome. 


Several changes in the fifth version 


prevent this version from being completely 
compatible with earlier versions: 
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Fixed binary variables with a 
precision less than 16 are now aligned 
on halfword boundaries and are two 
bytes long. Fixed binary variables 
with a precision of 16 or more are 
aligned, as before, on fullword 
boundaries and are four bytes long. 
Therefore, the boundary alignments 
obtained in this version of the 
compiler for fixed binary data with a 
precision of less than 16 may differ 
from those obtained in a previous 
version. Programs based on previous 
versions may have to be recompiled if 
they contain fixed binary data, or | 
make calls to modules IHESRT, IHEDUM, 
IHESAR, and IHETSA. These modules 
should have their fixed binary 
arguments re-declared with a precision 
greater than 15. 


A change to the multitasking support 
in this version will provide faster 
execution for the PL/I user in a 
multiprocessing environment. 
Re-compilation is not necessary; 
re-link-edit is. 


If a function reference returns a 
value, the entry-point name for the 
function reference must be declared 
with the RETURNS attribute. Programs 
compiled by earlier versions of the 
compiler without such a declaration 
will generate a warning message. 


The restrictions on fixed binary 
variables in the REFER option have now 
been lifted, and such variables may be 
fixed binary integer variables of any 
precision. Both variables must be of 
the same precision. 


Two definite compatibility statements 
can be made about the compilers in general: 


Compiled code from any version of the 
compiler must always be executed using 
a library of the same version or a 
later version. 


Library modules of different versions 
can be mixed only in the following 
circumstances: 


a. А11 link-edited modules must be of 
the same version as each other, 
and 


b. А11 dynamically linked or loaded 
modules must be of the same 
version as each other and must be 
Of at least as late a version as 
the link-edited modules. 


| Unless a user has link-edited PL/I 
external procedures with modules from a 
PL/I library and placed them in a private 
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library for future use with main programs 
compiled by a later version of the 
compiler, these incompatibilities should 
cause no problems. Provided the user has 
installed the latest compiler and library 
components, all future link-editing 
operations will result in the incorporation 
of the correct library modules. If, 
however, he has link-edited some of his 
external procedures, then, if he intends to 
use them in conjunction with a main program 
containing later- version library modules, 
he must remove the earlier-version library 
modules from them. 


Two methods may be employed to carry 
this out, one temporary and the other 2. 
permanent: 


1. The linkage editor map for the 
external procedure is examined to see 
whether any library modules have been 
incorporated in the load module; these 
can be identified by the initial 
letters IHE. If there are no library 
modules present in the load module, no 
further action is required. If 
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library modules are present, then 
every time a main program needs to use 
the external procedure, it should be 
link-edited with it, using INCLUDE 
cards naming the library modules which 
are to be replaced (i.e., all of them) 
and an INCLUDE card naming the 
external procedure itself. (The 
latter must be a separate card and it 
must follow the INCLUDE card for the 
library modules.) This will result in 
the incorporation of the correct 
later-version library modules and then 
the external procedure itself. This 
method is temporary. 


The permanent method is to link-edit 
the external procedure using the 
replace facility on the NAME card. In 
other words, the linkage editor is 
executed using the INCLUDE cards 
naming the library modules which are 
to be replaced, followed by an INCLUDE 
card naming the external procedure, 
followed by a NAME card naming the 
external procedure with the replace 
option. 


Control Program Options 


Figure D-1 shows the control program 
options which may be added in order to 
provide greater performance and/or 
programming flexibility for the various 
features of PL/I. These exclude 
input/output features. 


| 
|TIME, DATE, 
| DELAY 


Timing: B. Interval timing 


(mereen 5 == memi ee пинаа ain ge 1 
{PL/I Feature | Control Program Optiont* 
CEN NOUIS: A -------- 
| WAIT | Multiple WAIT 

| 
| Tasking | МУТ 

| 
{TIME, DATE | Timing: A. Time 

| 

| 

| 

1 


|*See the publication IBM System/360 


| Operating System: Storage Estimates 
| for further details of these options. 


Figure D-1. Control Program Options 
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Machine Requirements 


The PL/I (F) compiler requires an IBM 
System/360 Model 30 or higher with at least 
64K bytes of main storage, of which at 
least 44K bytes should be allocated to the 
compiler by means of the SIZE compiler 
option. The PL/I (F) compiler also 
requires at least one direct-access device, 
and an operator console. 


The use of certain operating system 
features requires additional main storage 
and resources. А table listing the minimum 
requirements of such features is given 
below (Figure D-2). 


Appendix D: System Requirements 267 


re — — — — — --- — — 


PRS dcmum eee in ee quum 3 digsim CERE CE EE {oe quum een metis e = е == esie ger aa i 
| Facilities | Control | Маіп storage | System/360 | Resources required | 
| | program | required | model | 
------------------ %------------ %------------ %------------- -------------------------- 
| | | |1. Central processing unit| 
| і | | Operator's console 
| PCP | 64K { 30F | Card reader punch | 
| | | | Direct-access storage | 
| | | | device | 
Batched processing| | | | Printer | 
-------------- %------------- %------------ %-------------------------- 1 
| МЕТ | 128K | 40G {2. As for 1 | 
-------------- %------------- %------------- і-------------------------- 
| МУТ | 256К | 4OH |3. As for 1, with interval| 
| | | | timer | 
PEE ERU ON [----—---------------------4-2-2-----------A.-2-----------------------] 
| | PCP | Not available; QTAM requires MFT or MVT | 
{ ------------- Ғ------------- т------------- Т-------------------------- 1 
| | | | |8. As for 2, with | 
| | | | | Direct-access storage | 
| | | | | device for message | 
| Teleprocessing | MFT | 128k | 40G | queues | 
| | | (see Ғі9.2-3) | | Communication terminals | 
| | | | | with adapter or control | 
| | | | | units | 
| }------------- $--------—---- $------------- %-------------------------- 
| | МУТ | 256К | 40H [5. As for 4, with interval| 
| | | (see Fig.D-3) | 50I | timer | 
[------------------ %------------ %------------- 1------------- 1.-------------------------- 1 
| | РСР | Not available; MCS requires MFT ос МУТ | 
| === +е----——------ qra- E a 
[Batched processing| MFT | 128K | 0С |6. As for 2, with up to 31| 
|with multiple | | | | extra operator's | 
[console support | | | | consoles | 
| (мс) ------------ %------------- %------------- ------------------------- 1 
| | МУТ || 256K | 40H |7. As for 6 | 
------------------і-------------і-------------1------------- %-------------------------- 1 
| Multiprocessing | МУТ | 2x256K | 2x40H |8. As for 3 except that | 
| | | | | two CPUs апа two | 
| | | | | operator's consoles | 
B | | | | are required | 
------------------- сыла атал зы Жылыш неш Б Ен Ee Жала салы eee 1 
[Notes on resources: | 
| | 
|1. Direct-access storage devices for PCP, MFT, and MVT. | 
| | 
{2. Printer: 1403 and 1443, with chain (HN, PN, or QN) or bar (S2H or 63-character). | 
| | 
|3. Character set: EBCDIC or USACII-8. | 
| | 
|^. Operator's console: 1052 printer keyboard model 7 (with dual case printing element) | 
| with 2150 console or with 1052 adapter; composite consoles currently supported; | 
| 2250 console; model 85 integrated operator's console 220C. | 
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Note: the MFT and MVT diagram show the possible configurations with the teleprocessing 
facility. As teleprocessing requires a minimum of two partitions or regions, the space 
available in the dynamic area may not be sufficient with the minimum configuration. 


Figure D-3. Possible Minimum Configurations of Main Storage 
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Appendix E: PL/I Library Subroutines 


The following list comprises all the library modules provided for Version 5 of the PL/I 
(F) compiler. It gives the length in bytes of each module; and a brief description of 
its function. All the modules are resident in system libraries in auxiliary storage, 
either in the PL/I subroutine library (SYS1.PL1LIB), or in the link library 
(SYS1.LINKLIB). Those modules marked * reside in the link library. 


Module Length Description 

IHEABN 12 ABEND option 

IHEABU 184 ABS (complex fixed-point binary) 

IHEABV 544 ABS (complex fixed-point decimal) 

IHEABW 128 ABS (complex short floating-point) 

IHEABZ 128 ABS (complex long floating-point) 

IHEADD 216 ADD (real fixed-point decimal) 

IHEADV 96 ADD (complex fixed-point decimal) 

IHEAPD 360 Conversion (real fixed-point decimal) 

IHEATL 536 АТАМ and ATAND (real long floating-point) 
IHEATS 408 ATAN and ATAND (real short floating-point) 
IHEATW 304 ATAN and ATANH (complex short floating-point) 
IHEATZ 296 ATAN and ATANH (complex long floating-point) 
IHEBEG 136 Messages to operator 

IHEBSA 296 AND (byte-aligned bit strings) 

IHEBSC 272 Comparison (byte-aligned bit strings) 

IHEBSD 192 Comparison (bit strings, any alignment) 
IHEBSF 480 BOOL 

IHEBSI 296 INDEX (bit strings) 

IHEBSK 472 Bit-string (assignment, concatenation, REPEAT) 
IHEBSM 384 Bit-string (assignment, padding) 

IHEBSN 192 NOT (byte-aligned bit string) 

IHEBSO 312 OR (byte-aligned bit strings) 

IHEBSS 240 SUBSTR (bit string) 

IHEBST 512 TRANSLATE (bit string) 

IHEBSV 408 VERIFY (bit string) 

IHECFA 160 ONLOC 
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Module 


IHECFB 
IHECFC 
IHECKP 
IHECLS 
IHECLT 
IHECNT 
IHECSC 
IHECSI 
IHECSK 
IHECSM 
IHECSS 
IHECST 
IHECSV 
IHECTT 
IHEDBN 
IHEDCN 
IHEDDI 
IHEDDJ 
IHEDDO 
IHEDDP 
IHEDDT 
IHEDIA 
IHEDIB 
IHEDID 
IHEDIE 
IHEDIL 
IHEDIM 
IHEDMA 
IHEDNB 
IHEDNC 
IHEDOA 
IHEDOB 


IHEDOD 


Length 


576 
88 
184 
922 
1298 
72 
200 
168 
320 
280 
224 
304 
198 
1718 
344 
495 
1248 
448 
648 
640 
760 
584 
280 
448 
456 
48 
528 
248 
248 
632 
224 
328 


296 


Description 


ONCODE 

ONCOUNT 

Checkpoint (CALL IHECKPT) 

Closing files (Versions 1, 2, and 3 only) 
Closing files 

COUNT/LINENO 

Comparison (two character strings) 

INDEX (character string) 

Character string (concatenation, REPEAT) 
Character string (assignment, HIGH, LOW) 
SUBSTR (character string) 

TRANSLATE (character string) 

VERIFY (character string) 

Closing files 

Conversion (bit string to arithmetic) 
Conversion (character string to arithmetic) 
Stream-oriented transmission 

Array handling 

Data-directed output 

Array handling 

Data-directed output 

Edit-directed input 

Edit-directed input 

Edit-directed input 

Edit-directed input 

Edit-directed input 

Edit-directed input 

Conversion (arithmetic data) 

Conversion (arithmetic to bit string) 
Conversion (arithmetic to character string) 
Edit-directed output 

Edit-directed output 


Edit-directed output 
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Module 


IHEDOE 
IHEDOM 
IHEDSP 
IHEDUM 
IHEDVU 
IHEDVV 
IHEDZW 
IHEDZZ 
IHEEFL 
IHEEFS 
* IHEERD 
* IHEERE 
* IHEERI 
* IHEERN 
* IHEERO 
* IHEERP 
IHEERR 
* IHEERS 
* IHEERT 
* IHEESM 
* IHEESS 
IHEEXL 
IHEEXS 
IHEEXW 
IHEEXZ 
IHEHTL 
IHEHTS 
IHEIBT 
IHEIGT 
IHEINT 
IHEIOA 
IHEIOB 


IHEIOC 


272 


Length 


224 
584 
612 
280 
408 
576 
104 
104 
736 
384 
720 
1704 
896 
4096 
856 
1208 
1816 
848 
712 
1768 
1960 
456 
256 
136 
136 
272 
192 
576 
1340 
436 
360 
480 
288 


Description 


Edit-directed output 

Edit-directed output 

Messages to operator 

Main storage dump (CALL IHEDUMC, IHEDUMJ, IHEDUMP, IHEDUMT) 
DIVIDE (complex fixed-point binary) 

DIVIDE (compled fixed-point decimal) 
Division (complex short floating-point) 
Division (complex long floating-point) 

ERF, ERFC (real long floating-point) 

ERF, ERFC (real short floating-point) 
Execution-time error messages 
Execution-time error messages 
Execution-time error messages 
Execution-time error messages (Versions 1 and 2 only) 
Execution-time error messages 
Execution-time error messages 

Error and interrupt handling 
Execution-time messages (SNAP) 
Execution-time error messages 
Execution-time messages (SNAP, CHECK) 
Execution-time messages (SNAP, CHECK: Version 2 only) 
EXP (real long floating-point) 

EXP (real short floating-point) 

EXP (complex short floating-point) 

EXP (complex long floating-point) 

ATANH (real long floating-point) 

ATANH (real short floating-point) 
Stream-oriented output (PUT) 
Record-oriented transmission (multitasking) 
Record-oriented transmission (multitasking) 
Stream-oriented input (GET) 

Stream-oriented output (PUT) 


Stream-oriented transmission (STRING) 


Module 


IHEIOD 
IHEIOE 
IHEIOF 
IHEIOG 
IHEIOH 
IHEIOJ 
IHEION 
IHEIOP 
IHEIOX 
IHEITB 
ІНЕІТС 
IHETTD 
IHEITE 
IHEITF 
IHEITG 
IHEITH 
IHEITJ 
IHEITK 
IHEITL 
IHEITP 
IHEJXI 
IHEJXS 
IHEKCA 
IHEKCB 
IHEKCD 
IHELDI 
IHELDO 
IHELNL 
IHELNS 
IHELNW 
IHELNZ 
IHELSP 


ІНЕМ91 


Length 


640 
176 
736 
1104 
200 
1992 
248 
488 
328 
3772 
2604 
2270 
1760 
1845 
1122 
2610 
2650 
622 
492 
874 
320 
104 
1560 
1464 
256 
2072 
1048 
360 
256 
268 
288 
1064 


344 


Description 


Edit-directed transmission 

Implicit OPEN (Versions 1,2,3 only) 
Stream-oriented input 

Record-oriented transmission 

BDAM/BISAM housekeeping (Version 2 only) 
BSAM housekeeping (Versions 2,3 only) 
Record I/O transmitter 

PAGE option/format 

SKIP option 

BSAM/CONSECUTIVE or REGIONAL UNBUFFERED interface 
BSAM/REGIONAL SEQUENTIAL (output) interface 
QISAM/INDEXED SEQUENTIAL interface 
BISAM/INDEXED DIRECT interface 
BDAM/REGIONAL DIRECT interface 
QSAM/CONSECUTIVE RECORD BUFFERED interface 
BISAM/INDEXED DIRECT (multitasking) interface 
BDAM/REGIONAL DIRECT (multitasking) interface 
QSAM/READ spanned records 

QSAM/WRITE spanned records 
QTAM/teleprocessing interface 

Initialize and address arrays 

Finds first and last elements of array 
Checks decimal picture specifications 
Checks sterling picture specifications 
Checks character picture specifications 
List-directed input director 

List-directed output director 

LOG(x) (real long floating-point) 

LOG(x) (real short floating-point) 

LOG(z) (complex short floating-point) 
LOG(z) (complex long floating-point) 

List processing storage management 


Model 91 execution-time error routines 
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Module Length Description 


IHEMAI 8 Addresses IHEBEG if no main procedure 
IHEMPU 240 MULTIPLY (complex fixed binary) 
IHEMPV 288 MULTIPLY (complex fixed decimal) 
IHEMSI 32 'STIMER unavailable' message 
IHEMST 32 "ТІМЕН unavailable' messageé 
IHEMSW 136 I/O event counter (multitasking) 
IHEMXB 96 MAX (real fixed-point binary) 
IHEMXD 120 MAX (real fixed-point decimal) 
IHEMXL 96 MAX (real long floating-point) 
IHEMXS 96 MAX (real short floating-point) 
IHEMZU 240 Z4*Z3 (complex fixed-point binary 
IHEMZV 672 Z4*Zza3 (complex fixed-point decimal) 
IHEMZW 64 Z4*za3 (complex short floating-point) 
IHEMZZ 64 Z4*z3 (complex long floating-point) 
IHENL1 280 ALL or ANY for simple array 
IHENL2 192 ALL or ANY for interleaved array 
IHEOCL 1338 Explicit/implicit open/close (non-multitasking) 
IHEOCT 2190 Explicit/implicit open/close (multitasking) 
* IHEOPN 920 Implicit/explicit open routine 
* IHEOPO 1828 Implicit/explicit open routine 
* IHEOPP 1874 Implicit/explicit open routine 
ж ІНЕОРО 1296 Implicit/explicit open routine 
* IHEOPZ 992 Format director: REGIONAL DIRECT output 
IHEOSD 216 Obtain current date 
IHEOSE 80 Terminate current task abnormally 
IHEOSI 72 Invoke STIMER (with WAIT if required) 
IHEOSS 56 Terminate job step abnormally 
IHEOST 88 Obtain time of day 
IHEOSW 1060 EVENT counter (non-multitasking) 
IHEPDF 144 PROD (real fixed-point binary/decimal) interleaved array 
IHEPDL 88 PROD (real long floating-point) interleaved array 
IHEPDS 88 PROD (real short floating-point) interleaved array 
IHEPDW 120 PROD (complex short floating-point) interleaved array 
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Module 


IHEPDX 
IHEPDZ 
IHEPRT 
IHEPSF 
IHEPSL 
IHEPSS 
IHEPSW 
IHEPSX 
ІНЕР52 
ІНЕРТТ 
IHERES 
IHESAP 
IHESHL 
IHESHS 
IHESIZ 
IHESMF 
IHESMG 
IHESMH 
IHESMX 
IHESNL 
IHESNS 
IHESNW 
IHESNZ 
THESQL 
IHESQS 
IHESQW 
IHESQZ 
IHESRC 
IHESRD 
IHESRT 
IHESSF 
IHESSG 


IHESSH 


Length 


272 
120 
656 
160 
72 
72 
96 
256 
96 
768 
100 
2088 
248 
192 
16 
136 
128 
128 
224 
416 
320 
320 
368 
160 
168 
152 
144 
344 
128 
1348 
168 
104 


104 


Description 


PROD (complex binary or decimal) interleaved array 
PROD (complex long floating-point) interleaved array 
COPY/error message via SYSPRINT 

PROD (real fixed-point binary/decimal) simple array 
PROD (real long floating-point) simple array 

PROD (real short floating-point) simple array 

PROD (complex short floating-point) simple array 
PROD (complex binary or decimal) simple array 

PROD (complex long floating-point) simple array 
COPY/error message via SYSPRINT (multitasking) 
Checkpoint/restart interface 

Storage management (non-multitasking) 

SINH (real long floating-point) 

SINH (real short floating-point) 

Length of PRV in Register 1 

SUM (real binary or decimal) interleaved array 

SUM (real short floating-point) interleaveđ array 
SUM (real long floating-point) interleaved array 
SUM (complex binary or decimal) interleaved array 
SIN (real long floating-point) 

SIN (real short floating-point) 

SIN (complex short floating-point) 

SIN (complex long floating-point) 

SORT (real long floating-point) 

SQRT (real short floating-point) 

SQRT (complex short floating-point) 

SQRT (complex long floating-point) 

Passes data to condition functions 

Passes data to ONKEY function 

Sort/merge interface 

SUM (real fixed-point binary/decimal) simple array 


SUM (real short floating-point) simple array 


SUM (real long floating-point) simple array 
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Module 


IHESSX 
IHESTA 
IHESTG 
IHESTP 
IHESTR 
* IHESUB 
IHETAB 
IHETCV 
IHETEA 
IHETER 
IHETEV 
* IHETEX 
IHETHL 
IHETHS 
IHETNL 
IHETNS 
IHETNW 
IHETNZ 
* IHETOM 
IHETPB 
IHETPR 
IHETSA 
IHETSE 
IHETSS 
IHETSW 
IHEUPA 
IHEUPB 
IHEVCA 
IHEVCS 
IHEVFA 
IHEVFB 


IHEVFC 


IHEVFD 
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Length 


216 
1124 
1108 
1432 
1592 
16 
16 
208 
248 
272 
240 
1464 
280 
200 
344 
272 
184 
184 
493 
56 
268 
5720 
88 
72 
1520 
192 
232 
272 
480 
232 
224 
40 


88 


Description 


SUM (complex fixed-point binary/decimal) simple array 
Abnormal termination error message 

Length of structure string 

Assigns bit/character string to string pseudo-variable 
Structure address and length 

Subtask initialization interface 

Default table for tabulation 

Controlled variable storage (multitasking) 

Event variable assignment 

ON-field search (multitasking) 

COMPLETION pseudo-variable 

Active task terminated message 

TANH (real long floating-point) 

TANH (real short floating-point) 

TAN (real long floating-point) 

TAN (real short floating-point) 

TAN (complex short floating-point) 

TAN (complex long floating-point) 

Operator messages 

PRIORITY built-in function 

PRIORITY pseudo-variable 

Object program management (multitasking) 
Abnormally terminates current task 

Terminates PL/I program abnormally (multitasking) 
EVENT counter (multitasking) 

Complex data item 

Complex numeric field 

Defines attributes of arithmetic data in character form 
Conversion director (complex data-string) 

Radix conversion: binary to decimal 

Conversion (long-float to fixed-point binary) 
Conversion (long-float to floating-point variable) 


Conversion (fixed-point binary to long floating-point) 


Module 
IHEVFE 
IHEVKB 
IHEVKC 
IHEVKF 
IHEVKG 
IHEVPA 
IHEVPB 
IHEVPC 
IHEVPD 
IHEVPE 
IHEVPF 


IHEVPG 


IHEVPH 
IHEVOA 
ІНЕУОВ 
ІНЕУОС 
ІНЕУ5А 
IHEVSB 
IHEVSC 
IHEVSD 
IHEVSE 
IHEVSF 
IHEVTB 
IHEXIB 
IHEXID 
IHEXIL 
IHEXIS 
IHEXIU 
IHEXIV 
IHEXIW 
IHEXIZ 
IHEXXL 


IHEXXS 


Length 
32 
736 
720 
1504 
1248 
352 
408 
492 
264 
616 
72 
560 


184 
208 
1004 
600 
320 
208 
176 
416 
352 
240 
136 
88 
136 
152 
152 
120 
192 
256 
256 
152 
144 


Description 


Conversion 
Conversion 
Conversion 
Conversion 
Conversion 
Conversion 
Conversion 
Conversion 
Conversion 
Conversion 
Conversion 


Conversion 


(float-point to long floating-point) 
(float-point decimal to packed decimal) 
(sterling to packed decimal) 

(packed decimal to fixed/floating-point) 
(packed decimal to sterling) 

(packed decimal to long floating-point) 
(packed decimal to F-format) 

(packed decimal to E-format) 

(packed decimal to decimal) 

(F-, E-format to packed decimal) 
(decimal to packed decimal) 


(binary fixed/floating-point to long 


floating-point) 


Conversion 
Conversion 
Conversion 
Conversion 
Assignment 
Conversion 


Assignment 


. Conversion 


Assignment 


Conversion 


(bit string to long floating-point) 
(floating-point to binary) 


(decimal constant to coded arithmetic) 


(coded arithmetic to F-, E-format/character string) 


(bit string to bit string) 

(bit string to character string) 
(character string to character string) 
(character string to bit string) 
(character string to picture string) 


(bit string to picture string) 


Float-point table for conversions 


X**n (binary to integer) 


X**n (decimal to integer) 


X**n (long floating-point to integer) 


X**n (short floating-point to integer) 


Z**n (complex binary to integer) 


Z**n (complex decimal to integer) 


Z**n (complex short floating-point to integer) 


Z**n (complex long floating-point to integer) 


X**Y (long floating-point) 


X**Y (short floating-point) 
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Module 
IHEXXW 
IHEXXZ 
ІНЕҮСЕ 
IHEYGL 
IHEYGS 
IHEYGW 
IHEYGX 
IHEYGZ 
* IHEZZA 
* IHEZZB 
* IHEZZC 


* IHEZZF 


278 


Length 


280 
280 
432 
240 
240 
280 
688 
280 
1296 
1704 
2960 
1596 


Description 
Z4**Z2 (complex short floating-point) 
Z4**Z5 (complex long floating-point) 
POLY (binary or decimal) 
POLY (long floating-point) 
POLY (short floating-point) 
POLY (complex short floating-point) 
POLY (complex binary or decimal) 
POLY (complex long floating-point) 
SNAP dump index (I) (Version 3 only) 
SNAP dump index (II) (Version 3 only) 
SNAP dump control routine 


Save-area trace for SNAP 


Introduction 


The shared library feature enables certain 
preselected PL/I subroutine library modules 
to be shared between two or more PL/I 
programs being executed under the control 
of an MFT or MVT control program of the 
operating system. 


The preselécted group of modules is made 
resident in main storage (in the resident 
access method area for MFT, and in the 
link-pack area for MVT). 


To create a shared library you must 
specify the modules that you require when 
you generate your operating system. You do 
this by means of a system generation macro 
instruction. The system generation process 
will link-edit these modules together with 
a transfer vector module, into a load 
module which is given the entry-point name 
IHELTVA, and stored in auxiliary storage in 
the link library, SYS1.LINKLIB. 


The load module can be subsequently 
loaded permanently into main storage during 
initial program load. This load module is 
a reentrant load module and your 
installation must be able to make this type 
of module resident during initial program 
load+. 


To execute a PL/I program using the 
shared library, you must ensure that a 
dummy transfer vector module is link-edited 
to your program in order to resolve all 
references to the shared library modules. 
You do this by specifying the entry-point 
name IHELTTA for your PL/I program. This 
dummy transfer vector module is also 
created during system generation and is 
also stored in auxiliary storage in the 
PL/I subroutine library, SYS1.PL1LIB. 


You can use the shared library by either of 
two methods: 


+For more information on making reentrant 
load modules resident during initial 
program load refer to IBM System/360 


Operating System: System Generation, and 


IBM System/360 Operating System: System 
Programmer's Guide. 
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1. By using standard IBM-supplied 
cataloged procedures and overriding 
the link-edit and loader job steps. 


2. By providing your own cataloged 
procedures. 


These methods and their required coding are 
described below. 


How to Create a Shared Library 


The PLILIB System Generation Macro 
Instruction 


TO create a shared library, you must 
specify the modules that you require when 
you generate your operating system. You do 
this by means of a system generation macro 
instruction, PLILIB?. 


TO facilitate selection of modules 
required for your shared library, the PL/I 
subroutine library modules have been 
divided into 36 groups. Each group 
comprises modules that have associated 
functions, as shown in Figure F-1. 


You cannot specify modules in Group 1 
because these are housekeeping, string 
function, or stream input/output modules 
that cannot be used in a shared library; 
they are termed 'non-shareable' modules. 


Group 2 modules will be included 
automatically during system generation if 
you have specified a multitasking shared 
library, or group 3 modules if you have 
specified a non-multitasking shared 
library. 


You can specify any of the remaining 
groups (Groups 4 through 36) in any 
combination to form a shared library to fit 
your needs. You should specify only 
frequently used groups of modules to make 
best use of the shared library feature. 


2 For more information on the PLILIB macro 
instruction refer to IBM System/360 


Operating System: System Generation 
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SH tiq ч ее mes emer ee verd iud m m M рр scr eum eie eme 
| GROUP | MAIN FUNCTIONS OF GROUP 

}------- -—————————— 
| 1 | Non-shareable modules 

| 2 | Multitasking storage management 

| 3 | Non-multitasking storage mangement 

| 4 | Error handling (ON-units) 

| 5 | List processing and structure mapping 

| 6 | Basic conversion package 

| 7 | Edit conversions 

| 8 | Complex conversions 

| 9 | Bit-string conversions 

{ 10 | Character-string conversions 

| 11 | Picture conversions 

| a2 | Sterling conversions 

| 13 | Optimization-1 special conversions 

| 14 | Bit-string built-in functions 

| 15 | Character-string built-in functions 

| 16 | STRING built-in function and pseudo-variable 
{ 17 | Real non-interleaved arrays 

| 18 | Real interleaved arrays 

| 19 | Complex non-interleaved arrays 

| 20 | Complex interleaved arrays 

{ 21 | Real arithmetic operators 

| 22 | Complex arithmetic operators 

| 23 | Real short arithmetic built-in functions 

| 24 | Real long arithmetic built-in functions 

| 25 | Complex short artihmetic built-in functions 
| 26 | Complex long arithmetic built-in functions 

| 27 | Non-multitasking data-directed I/O 

| 28 | Non-multitasking list-directed I/O 

| 29 | Non-multitasking edit-directed I/O 

| 30 | Multitasking data-directed I/O 

| 31 | Multitasking list-directed I/O 

| 32 | Multitasking edit-directed I/O 

| 33 | Non-multitasking record I/O 

| 34 | Multitasking record I/O 

| 35 | Non-multitasking record I/O wait 

| 36 | Multitasking record I/O wait 

Loco P FU та тшш ышы Ынна шшш a c ылық 


Figure F-1.  Shared-Library Module Groups 


Initial Program Load (IPL) 


Once created, your shared library load 
module is given the entry-point name 
IHELTVA and is stored in auxiliary storage 
in the link library, SYS1.LINKLIB. TO 
Store this load module permanently in main 
storage you must first build a new 
reentrant load module user list for it in 
the parameter library, SYS1.PARMLIB; and 
second, you must ensure that the use of 
this list by the system is specified during 
initial program load. You can give this 
user list a name of the form IEAIGGxx, 
where xx are any two digits other than 00. 
The following example of coding suggests 
how you create such a list by means of the 
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IEBUPDTE* utility program; the method of 
specifying its use by the system is given 
in the following paragraph. For 
illustration purposes, the example has been 
given the user list name IEAIGGO1. 


//BLDLIST EXEC PGM-IEBUPDTE,PARM-NEW 


//SYSPRINT DD SYSOUT-A 

//SYSUT2 DD DSN-SYS1.PARMLIB, 

77 UNIT=2314, 

// VOL= (, RETAIN, SER=MVT111), 

4/ DISP=OLD 

//SYSIN DD * 

./ ADD NAME=IEAIGGO1, LIST=ALL 

"P4 NUMBER NEW=01, INCR=02 
SYS1.LINKLIB  IHELTVA 

of ENDUP 

/% 


1For more information about the IBM utility 
program IEBUPDTE refer to IBM System/360 


Operating System: Utilities 


The ADD statement identifies your shared 
library load module, IHELTVA, in the new 
reentrant load module list (IEAIGGO1).+ 
When the nucleus initialization program 
(NIP) requests the system parameters, the 
operator reponds by specifying 'RAM-01' 
(the digits 01 correspond to the last two 
digits of the user list name IEAIGGO1). 
This response causes your load module to be 
loaded into the relevant area of main 
storage. 


If you require both the standard and 
shared library load module lists, you must 
instruct the operator to respond to the NIP 
request for system parameters by specifying 
'RAM-00,01'. You should note the following 
points: 


e If your installation standard reentrant 
load module list (IEAIGGOO) refers to 
SYS1.LINKLIB and not SYS1.SVCLIB, you 
can add your module entry-point name 
(IHELTVA) to this list. In this case 
you do not need to create a new 
procedure library list; your 
shared-library load module will be. 
automatically stored in main storage at 
initial program load. 


e If your installation standard reentrant 
load module list (IEAIGGOO) does not 
refer to SYS1.LINKLIB, your system must 
have been generated with the ability to 
communicate with the operator during ~ 
initial program load. This is because 
the operator must specify the use of 
the alternative list as described 
above. 


How to Use a Shared Library 


When executing programs using the shared 
library you must ensure that the first 
module to be processed by the linkage 
editor or loader is the dummy transfer 
vector module IHELTTA. Also ensure that 
the entry-point name of the resulting load 
module is specified as IHELTTA. You should 
note the following points: . 


—— um mu es «лы сы, ыл AP uM mum m жаңы SPUR AID мош dum cmm up A «м» 


4For more information about reentrant load 
module lists refer to IBM/360 Operating 


System: System Programmer's Guide. 


e You can have a shared library for 


either non-multitasking or multitasking 
programs. You cannot, however, use a 
multitasking program with a 
non-multitasking shared library and 
conversely, you cannot use a 
non-multitasking program with a 
multitasking shared library. You 
should find out whether your 
installation has a multitasking or 
non-multitasking shared library. 


A load module created for use with one 
shared library will not execute with a 
different shared library. You will 
have to link-edit the object module 
again, including the dummy transfer 
vector module IHELTTA for the different 
shared library. 


You must remember that the linkage 
editor or loader require a large amount 
of main storage for external symbol 
dictionary tables while processing the 
dummy transfer vector module IHELTTA. 
If you specify SIZE-200K in the PARM 
field of your EXEC statement for the 
linkage editor or loader (and use a 
region or partition of equivalent 
size), you will get sufficient main 
storage for processing with the largest 
possible shared library. 


Your PL/I program may take slightly 
longer to execute when using a shared 
library, because all library calls have 
to pass through the transfer vectors. 
However, your main storage requirements 
for a region will be greatly reduced if 
you have carefully selected your shared 
library modules to suit the operating 
environment. 


The address of your shared library 
module in the link-pack area of main 
storage is found by IHELTTA issuing a 
LOAD macro instruction. If the 
shared-library load module IHELTVA was 
not made resident in main storage at 
initial program load, and you try to 
run your program with shared-library 
job control statements, the 
shared-library module will be loaded 
into the region or partition. Your job 


. Will still execute, but you will need 


to specify a larger region size(MVT), 
or use a larger partition (MFT). 
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USING STANDARD IBM CATALOGED PROCEDURES 


In this method you make use of standard IBM-supplied cataloged procedures that contain a 
link-edit job step or that use the linkage loader. If you use this method you must 
override certain statements in the link-edit or loader job step of the cataloged 
procedure to ensure that the shared-library transfer module (IBELTTA) is the first module 
to be included by the linkage editor or loader, and that its entry point in the resulting 
load module has the name IHELTTA. 


The methods for doing this for each individual cataloged procedure differ slightly and 
are described below. 


Cataloged Procedures usinq the Linkage Editor 
Compile and Link-Edit (PL1ILFCL) 


You may use this cataloged procedure by reversing the order of concatenation of the 
data sets defined in the DD statement with the name SYSLIN. This ensures that the first 
module specified is IHELTTA. The suggested method of doing this is as follows: 


778 ЕХЕС PLiLFCL 
//LKED. SYSLIN DD DDNAME-LIN 
//LKED. OBJ DD DSN-&S&6LOADSET,DISP- (OLD, DELETE) 
//LKED. LIN DD * 
INCLUDE SYSLIB(IHELTTA) 
INCLUDE OBJ 
ENTRY IHELTTA 


(add further input here) 
/* 

You can add other linkage-editor control statements by placing them as indicated. If, 
for example, you wish to give the resulting load module the name MINE, you should add the 
statement: 

NAME MINE (К) 
between the ENTRY and /* statements. 
Note: You must not use DDNAME=SYSIN in the LKED.SYSLIN DD statement as this would be 


concatenated with an identical DD statement provided by the cataloged procedure and cause 
the input stream to be processed twice. 


Compile, Link-Edit and Execute (PLILFCLG) 


This cataloged procedure can be modified for use with a shared library in exactly the 
Same way as described for PLILFCL above. 


Link-Edit and Execute (PLILFLG) 


You may use this cataloged procedure by specifying the compiled object module as the 
member DECK of the partitioned data set PL1.OBJECT, as follows: 
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//5 ЕХЕС PLiLFLG 
//LKED. OBJ DD DSN=PL1. OBJECT (DECK) , DISP=SHR 


//LKED.SYSIN DD * 
INCLUDE SYSLIB (IHELTTA) 
INCLUDE OBJ 
ENTRY IHELTTA 


(add further input here) 
/* 


Note: Since PLILFLG does not specify a concatenated data set for the SYSLIN DD statement 
of the LKED step, but only specifies DDNAME-SYSIN, you can specify all the link-edit 
control statements by the LKED.SYSIN DD * statement. 


Cataloged Procedures using the Linkage Loader 


Compile, Load-and-Execute (PLILFCG) 


You may use this cataloged procedure by overriding the PARM parameter of the GO step 
to add the specified entry-point IHELTTA. You must also override the SYSLIN DD statement 
to permit the transfer vector module IHELTTA to be processed by the compiler object 
module. The suggested method for doing this is as follows: 


//5 EXEC  PLÍLFCG,PARM.GO-'MAP,PRINT,EP-IHELTTA' 
//GO.SYSLIN DD DSN=SYS1.PLILIB(IHELTTA) , DISP=SHR 
/” рр DSN=& & LOADSET , DISP= (OLD, DELETE) 


Load-and-Execute (PL1LFG) 


You may use this cataloged procedure by specifying the compiled object module as the 
member DECK of the partitioned data set PL1.OBJECT, as follows: 


//5 EXEC PL1LFG,PARM.GO='MAP, PRINT, EP=IHELTTA' 
//GO.SYSLIN DD DSN-SYS1.PL1LIB(IHELTTA),DISP-SHR 
ГА рр DSN=PL1. OBJECT (DECK) , DISP=SHR 


PROVIDING YOUR OWN CATALOGED PROCEDURES 


You can provide your own cataloged procedures for use with a shared library. Тһе 
following examples suggest how you might write these, basing them on the standard 
IBM-supplied cataloged procedures. 


For illustration purposes, the names PL1LSCL, PLILSCLG, etc., have been chosen, but 
you could use any names you choose. Once you have written your cataloged procedures you 
add them to the procedure library (SYS1.PROCLIB) at your installation by using the IBM 
utility program IEBUPDTE. 
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Cataloged Procedures using the Linkage Editor 


Compile and Link-Edit (PL1ILSCL) 


statements: 


INCLUDE 
ENTRY 


When you write this cataloged procedure, you should remember that it needs a special 
member in the procedure library to hold the input control data to the linkage editor. 
the example, this member is called PL1ILSLD and includes the following linkage editor 


SYSLIB(IHELTTA) 
IHELTTA 


Your cataloged procedure might look like this: 


//PLÁL 
//SYSPRINT 
// SXSLIN 
/” 
//SYSUT3 
/” 
//SYSUT1 


//SYSLIB 
//SYSLMOD 
/” 
//SXSUT1 
// 
//SYSPRINT 
//SXSLIN 
7” 

/” 


ЕХЕС 
DD 
DD 
DD 
DD 
EXEC 


DD 
DD 


DD 


DD 
DD 
DD 
DD 


PGM=IEMAA, PARM=* LOAD, NODECK* , REGI ON= 


SYSOUT=A 


DSN=& &LOADSET, DISP=,MOD, PASS. , UNIT=SYSDA, 


SPACE= (80, (250,100) ) 


DSN=& &SYSUT3, UNIT=SYSDA, SPACE= (80, (250,250)), 
DCB=BLKSIZE=80 

DSN=& &SYSUT1, SPACE= (1024, (60,60), ,CONTIG), 
UNIT=SYSDA, SEP= (SYSUT3, SYSLIN) , DCB=BLKSIZE=10 24 
PGM=IEWL, PARM=* XREF, LIST’ , COND=(9,LT,PLIL), 


REGION=96K 


DSN=SYS1.PLILIB, DISP=SHR 


DSN=& &GOSET (GO) , UNIT=SYSDA, DISP=(MOD, PASS), 


SPACE= (1024, (50, 20,1) ,RLSE) 


DSN=&&SYSUT1, UNIT=SYSDA, SPACE=(1024, (200,20)), 
SEP=(SYSLMOD, SYSLIB) , DCB=BLKSI ZE=10 24 


SYSOUT=A 


DSN=SYS1.PROCLIB(PLILSLD) , DISP=SHR 


DSN=6 SLOADSET, DISP= (OLD, DELETE) 


DDNAME=SYSIN 


Compile, Link-Edit and Execute (PLILSCLG)  - 


284 


//PL1L 

// SYSPRINT 
//SYSLIN 
"74 
//SYSUT3 
/” 
//SYSUT1 


//SYSLIB 
//SYSLMOD 
// 
//SYSUT1 
/” 
//SYSPRINT 
//SYSLIN 
EA 

7” 

4/60 
//SYSPRINT 


EXEC 
DD 
DD 
DD 
DD 
EXEC 


DD 
DD 


DD 


PGM=IEMAA, РАКМ= * LOAD, NODECK* , REGION=52K 


SYSOUT=A 


DSN=6 &LOADSET , DISP= (MOD, PASS) , UNIT=SYSSOQ, 


You can write this cataloged procedure in a similar way to that described above for 
PLILSCL, remembering that again you require the special member PLÍLSLD. 


SPACE=(80, (250,100) ) 


DSN=& &SYSUT3, UNIT=SYSDA, SPACE= (80,250, 250)), 
DCB-BLKSIZE-80 

DSN=6 &SYSUT1, SPACE= (1024, (60,60), ,СОМТтІС), 
UNIT=SYSDA, SEP= (SYSUT3,SYSLIN) , DCB=BLKSIZE=1024 
PGM=IEWL, PARM=' XREF, LIST', COND=(9,LT, PLIL), 


REGION=96K 


DSN=SYS1.PL1LIB, DISP=SHR 


DSN=& &GOSET (GO) , UNIT=SYSDA, DISP=(MOD, PASS), 


SPACE=(1024, (50, 20,1) , RLSE) 


DSN= &SYSUT1, UNIT=SYSDA, SPACE= (1024, (200,20)), 
SEP=(SYSLMOD, SYSLIB) , DCB=BLKSI ZE=1024 


SYSOUT=A 


DSN-SYS1.PROCLIB (PL1LSLD),DISP-SHR 


DSN-68$LOADSET,DISP-,OLD,DELETE. 


DDNAME-SYSIN 
PGM-*.LKED.SYSLMOD,CONDz((9,LT,LKED), (9,LT,PL1L)) 


SYSOUT-A 


In 


Link-Edit and Execute (PL1LSLG) 


Again you need the special member PLILSLD in SYS1.PROCLIB. 


//LKED EXEC  PGM-IEWL,PARM-'XREF,LIST',REGION-96K 
// SYSLIB DD DSN-SYS1.PL1LIB,DISP-SHR 
//SYSLMOD DD DSN=&&GOSET (GO) , UNIT=SYSDA, DISP=(MOD, PASS), 


11 SPACE= (1024, (50, 20,1) , RLSE) 
//SXSUTL DD DSN=§&SYSUT1, SPACE= (1024, (200,20)), 
/” UNIT=SYSDA, SEP= (SYSLMOD, SYSLIB) , DCB=BLKSIZE=1024 


//SXSPRINT DD SYSOUT=A 


//SYSLIN DD DSN=SYS1.PROCLIB(PLILSLD) , DISP=SHR 


// рр DDNAME=SYSIN 


//GO EXEC PGM-*.LKED.SYSLMOD,-(9,LT,LKED) 


//SXYSPRINT DD SYSOUT-A 


Cataloqed Procedures using the Linkage Loader 


In cataloged procedures that use the linkage loader, SYSLOUT is the ddname of the 


diagnostic message output data set. 


This name should have been specified at system 


generation; if it has not, you should specify PARM - 'NOPRINT' in your EXEC statement. 

If you do not specify this, and the loader was generated without the ddname SYSLOUT, the 
System gives the loader diagnostic message output data set the default name SYSPRINT, 
which is also the standard diagnostic message output data set name for PL/I programs. If 


both the loader and a PL/I program attempt to execute DD statements with this ddname 


under an MFT or MVT control program, you may lose your output or input/output errors may 
occur when an output writer attempts to print it. 


You do not need the special member PLILSLD in the procedure library because you must 


name the entry point of the resulting load module in the PARM parameter of your EXEC 


Statement. 


Compile, Load-and-Execute (PL1LSCG) 


In this cataloged procedure, your compiled object module is stored in the temporary 
set &&LOADSET which is concatenated with the transfer vector module IHELTTA. 


//PLIL EXEC PGM=IEMAA, PARM=' LOAD, NODECK',REGION-52K 


//SYSPRINT DD SYSOUT=A 


//SYSLIN DD DSN=& SLOADSET, DISP= (MOD, PASS) , ОМІ Т=5Ү550, 


// SPACE=(80, (250,100) ) 

//SXSUT3 DD DSN-&&6SYSUT3,UNIT-SYSDA,SPACE-(80,(250,2500), 
// . DCB=BLKSIZE=80 | 

//SYSUT1 DD DSN=6 &SYSUT1, SPACE= (1024, (60,60), ,CONTIG), 

/” : UNIT=SYSDA, SEP= (SYSUT3, SYSLIN) , DCB=BLKSIZE=10 24 
7/60 EXEC PGM=LOADER, PARM="'MAP, PRINT, EP=IHELTTA', 

/” REGION=96K, COND= (9, LT, PL1L) 

// SYSLIB DD DSN=SYS1.PL1LIB, DISP=SHR 

// Ор DSN=6 &LOADSET, DISP= (OLD, DELETE) 


//SYSLOUT DD SYSOUT-A 
//SYSPRINT DD SYSOUT-A 


Load-and-Execute (PL1LSG) 


In this cataloged procedure, your compiled object module is the member DECK in the 
partitioned data set PL1.0BJECT, and you may define this in the GO step as follows: 


//GO.LOADIN DD DSN=PL1. OBJECT (DECK) , DISP=SHR 


data 


Note: You might use the ddname LOADIN instead of SYSIN to define input to the loader, 
because SYSIN may be required to define the PL/I (F) default input data set for the 


program being loaded. 
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Your cataloged procedure may look like this: 


//GO EXEC  PGM-LOADER,PARM-'MAP,PRINT,EP-IHELTTA', 
А REGION=96K 

//SYSLIB DD DSN=SYS1.PL1LIB, DISP=SHR 

// SYSLIN DD DSN-SYS1.PL1LIB(IHELTTA),DISP-SHR 

/” рр DDNAME=LOADIN 

//SYSOUT DD SYSOUT-A 

//SYSPRINT DD SYSOUT=A 
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Appendix С: 


Note: In the following discussion, the 
terms exception and interrupt are used. An 
exception is a hardware occurrence (such as 
an overflow error) which can cause a 
program interrupt. An interrupt is a 
suspension of normal program activities. 
There are many possible causes of 
interrupts, but the following discussion is 
concerned only with interrupts resulting 
from hardware exceptions. 


IBM System/360 Models 91 and 195 are 
high-speed processing systems in which more 
than one instruction is executed 
concurrently. As a result, an exception 
may be detected and an interrupt occur when 
the address of the instruction which caused 
the exception is no longer held in the 
central processing unit. Consequently, the 
instruction causing the interrupt cannot be 
precisely identified.  Interrupts of this 
type are termed imprecise. When an 
exception occurs, the machine stops 
decoding further instructions and ensures 
that all instructions which were decoded 
prior to the exception are executed before 
honoring the exception. Execution of the 
remaining decoded instructions may result 
in further exceptions occurring. An 
imprecise interrupt in which more than one 
exception has occurred is known as a i 


multiple-exception imprecise interrupt. 


The (F) compiler permits processing of 
imprecise interrupts only when the compiler 
Option OBJIN is in effect. The option must 
always apply when the compiler is used to 
produce object programs for execution on a 
Model 91 or 195. The effect of the option 
is: 


1. To cause the compiler to insert 
'no-operation' instructions at certain 
points in the program to localize 
imprecise interrupts to a particular 
segment of the program, thus ensuring 
that interrupt processing results in 
the action specified in the source 
program. (A 'no-operation' 
instruction is an assembler language 
instruction of the form BCR x, 0 
(where x is not equal to zero). This 
instruction is implemented in Models 
91 and 195 in such a way that its 
execution is delayed until all 
previously decoded instructions have 
been executed.)  'No-operation' 
instructions are generated: 


a. Before an ON-statement. 


b. Before a REVERT statement. 
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с. Before compiled code to set the 
SIZE condition. 


d. Before compiled code to change 
prefix options. 


e. For a null statement. (This 
feature provides the programmer 
with source language control over 
the timing of program interrupts.) 


f. Before every statement if the STMT 
compiler option applies. (This is 
an important debugging tool.) 


Note: The average PL/I program can be 
executed on a Model 91 or 195 without 
significant degradation in execution time 
or storage requirements. However, the use 
of the STMT compiler option will cause both 
the execution time and the object-code 
storage requirements to increase in direct 
proportion to the number of statements in 
the program. The benefits obtained as a 
result of the debugging aid that this 
option gives should offset and justify 
these increases. 


2. To create an external symbol 
dictionary (ESD) entry for the PL/I 
library module IHEM91 (required only 
when an object program is to be 
executed on a Model 91 or 195). Тһе 
module is included when the object 
module is link-edited, and it is 
called when an imprecise interrupt is 
detected. Module IHEM91 provides the 
facilities for: 


a. Detecting multiple-exception 
imprecise interrupts. 


b. Setting the value that is returned 
by the ONCOUNT built-in function. 


c. Raising the appropriate PI/I 
conditions. 


The order of processing the exceptions 
is as follows: 


1. PL/I conditions in the order: 
UNDERFLOW 
FIXEDOVERFLOW or SIZE 
ERROR if system action is required for 


either FIXEDOVERFLOW or SIZE 
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OVERFLOW 

ERROR if system action is required for 
OVERFLOW 

ZERODIVIDE 


ERROR if system action is required for 
ZERODIVIDE. 


Notes The conditions FIXEDOVERFLOW and 
SIZE cannot occur together, since the 
same hardware condition raises both of 
them. 
2. Hardware exceptions in the order: 
data 
specification 
addressing 
protection 
Conditions and exceptions are raised іп 
the above order until one of the following 
Situations occurs: 
1. A GO TO statement in an ON-unit is 


executed. All other exceptions will 
then be lost. 
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2. The ERROR condition is raised. If the 
program is terminated as a result of 
this action (i.e., system action 
causing the ERROR condition to be 
raised, followed by the FINISH 
condition), messages will be printed 
to indicate the nature of the 
unprocessed exceptions. The 
exceptions themselves will not be 
processed. 


When an interrupt results from multiple 


exceptions, only one of the PL/I conditions 


is raised for each type of exception that 
has occurred. 


When a multiple-exception imprecise 
interrupt occurs, the ONCOUNT built-in 
function provides a binary integer count of 
the number of exception types, including 
the current one, remaining to be processed. 
(The count does not include PL/I 
ON-conditions.) ТЕ the ONCOUNT built-in 
function is used when only a single. 
exception has occurred, or if it is used 
outside an ON-unit, a count value of zero 
is indicated. 


Programs compiled with the OBJIN 
compiler option can be executed on other 
IBM System/360 models supported by the IBM 
System/360 Operating System. 
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NET TER Me D M I ee 
| SYSPUNCH | 80 * S bytes | 
-------- 4------------------------------------------------------------------------------4 
|SYSLIN | 80 * 5 bytes | 
}-------- %----т----------- т------------------------------------------------------------ 1 
| | | | NUMBER OF TRACKS REQUIRED | 
|svsuri | s | PL/I (F) [|-------------- Т-----------------1-------------- т------------ 4 
| | | Operating | 2301 | 2311 | 2314 | 2321 | 
| | | in | Drum Storage | Disk storage | Disk Drive | Data cell | 
| ----і----------- %------------- і----------------- %-------------- ------------- 1 
| | | 44K I 4 | 8 | 4 | 22 (2%) | 
| | 150 | 100K | 0 | 0 | 0 | 0 І 
| | | 200K | 0 | 0 | 0 | 0 | 
| --------------- %------------- І----------------- %------------- ----------- 1 
| | | 44K | 14 | 31 | 16 | 92 (99) | 
| | 500 | 100K | 9 (11) | 18 (22) 1 9 | 27 (33) | 
| | | 200K | 0 | 0 | 0 | 0 | 
| -----і----------- %-------------- %----------------- %-------------- %----------- 1 
| | | 44K | 28 | 64 | 32 | 192 (202) | 
| {1000 | 100K | 34 (37) | 68 (74) | 34 | 102 (111) | 
| | | 200K | 9 (12) | 15 (20) | 6 | 27 (28) | 
| + ee ae «кемен hh a ee ew a ee ee 1 ——— Р БЕЛИНЕН 1.........------““--- LlI———————- 1 
| | Numbers in parentheses are for the EXTDIC option. Since it is not | 
| | advisable to use this option if SIZE=44K, the figures for this value must be | 
| | taken as applying to a 48K main storage size. Source programs which are | 
| | large enough to cause the SYSUT1 data set to be used will compile more | 
| | efficiently if this data set is on a drum or in a contiguous area on a disk. | 
}-------- ——————————— 1 
| SYSUT3 | 2 * К * P bytes 48-character processing | 
| | T bytes Compile-time processing | 
| | 2 * T bytes Compile-time and 48-character processing | 
-------- І------------------------------------------------------------------------------ 1 
| SYSPRINT | 120 * (Q + R + 10*S + U + U + 30) bytes | 
| B | | | | | | | 
| | | | | | | .------ if EXTREF option specified | 
| | | | | | | | | 
| | | | | | .----------- if XREF option specified | 
| | | | | | | 
| | | | | ...-.-.-.--------- if ATR option specified | 
| | | | | | | 
| | | | (..------------------ if LIST option specified | 
| | | | | 
| | | ..------------------------- if SOURCE option specified | 
| | | | | 
| | —----------——----------------- if SOURCE2 option specified | 
-------- E TERM TECUM ч с SUN саса EET SR 1 
| Кеу: Р = Average length of record (in bytes). | 
| | 
| Q = Number of input records (records containing source text + records | 
| included through the compile-time INCLUDE statement). | 
| | 
| R = Number of records containing source statements after compile-time | 
1 processing completed. | 
| | 
| S = Number of source statements after compile-time processing completed. | 
| | 
| Т = Size (in bytes) of program after compile-time processing. | 
| ҰЙЫ | 
| 0 = Number of variables іп the program. | 
бышы sewn ecw eee eee eee ee ee ee a a i ee Ae ees 1 
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Appendix I: 


ON-Codes 


The ONCODE built-in function may be used by 
the programmer in any ON-unit to determine 
the nature of the error or condition which 
caused entry into that ON-unit. 


An ON-unit, which has been established 
by the execution of an ON-statement, is 
entered when the associated ON-condition is 
raised during execution of PL/I compiled 
code or of a PL/I library module. Thus, 
for example, a FIXEDOVERFLOW ON-unit would 
be entered whenever any of the conditions 
occur for which the language demands the 
raising of the FIXEDOVERFLOW condition. 
Two ON-conditions, ERROR and FINISH, 
require special explanation. 


The ERROR condition is raised: 


1. Upon execution of a SIGNAL ERROR 
Statement. è 


2. As a result of system action for those 
ON-conditions for which the language 
specifies system action to be ‘comment 
and raise the ERROR condition.' 


3. As a result of an error (for which 
there is no ON-condition) occurring 
during program execution. 


The FINISH condition is raised: 


1. Upon execution of a SIGNAL 
FINISH,STOP, or EXIT statement. 


2. Upon normal completion of the MAIN 
procedure of a PL/I program. 


3. Upon completion of the action 
associated with the raising of the 
ERROR condition, except when a GO TO 
statement in the ON ERROR unit has 
resulted in transfer of control out of 
that unit. 


As a general rule, the value of the code 


returned by the ONCODE built-in function is 
that of the specific condition which caused 
entry into the ON-unit. Thus, in an ON 
CONVERSION unit, the programmer can expect 
an ON-code corresponding to one of the 
conversion conditions which cause the 
CONVERSION condition to be raised in PL/I. 
However, this is not necessarily true when 
executing an ON-error or an ON FINISH unit; 
the values are as follows: 
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ON, Return, and User Completion Codes 


1. When entered as a result of a SIGNAL 
ERROR or a SIGNAL FINISH, STOP, or 
EXIT statement, or as a result of 
normal termination, the ON-codes will 
be those of ERROR or FINISH 
respectively. 


2. When entered for any other reason, the 
ON-code will be that associated with 
the error or condition which 
originally caused the ERROR condition 
to be raised. 


Several separate but related occurrences 
may cause a particular PL/I ON-condition to 
be raised. For example, the TRANSMIT 
condition may be raised: 


1. By execution of a SIGNAL TRANSMIT 
statement. 


2. Ву occurrence of an input TRANSMIT 
error. 


3. By occurrence of an output TRANSMIT 
error 


Although it is often useful to know 
precisely what caused an ON-condition to be 
raised, at times it will be sufficient 
simply to know which ON-condition was 
raised. This will apply particularly if 
the ONCODE built-in function is used in an 
ERROR ON-unit after system action has 
occurred for an ON-condition. The ON-codes 
have therefore been grouped, each group 
containing the codes associated with a 
particular ON-condition. 


From time to time it may become 
necessary or desirable to add new ON-codes 
into a group. Perhaps a group containing 
one ON-code only may be expanded. This 
fact must be remembered when the ONCODE 
built-in function is used to determine if a 
particular PL/I ON-condition has been 
raised. It is important to test to see 
whether the ON-code is within the range 
specified, even if there is only one 
ON-code in the range; otherwise, when a new 
set of library modules is used, it may 
become necessary to recompile the program. 


The ON-codes and their associated 
conditions and errors are shown below. The 
groups and their ON-code ranges are shown 
in Figures I-1 and I-2. (Language 
ON-conditions are shown in capitals, others 
in lower case letters.) 
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---------------------.-.-.-...--- 1 Code Condition/Error 
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prec m meet T 
| Капде | Group | 
ы ----------- ф----------------------------- 1 22 RECORD (record variable larger than 
| 3-5 | As for 1000-9999 | record size) 
{ 10-199 | I/O ON-conditions | 23 RECORD (attempt to write zero 
| 300-399 | Computational ON-conditions | length record) 
| 500-549 | program check-out conditions | 24 RECORD (zero Length record read) 
| 600-899 | Conversion conditions | 40 TRANSMIT (signaled) 
| 1000-9999 | Error conditions (also 3-5) | 41 TRANSMIT (output) 
ba ——— Ек нн кн ннен к к нн кк нк ннен 1 42 TRANSMIT (input) 
Figure I-1. Main ON-Code Groupings 50 KEY (signaled) 
51 KEY (keyed record not found) 
г----------- т----------------------------- 1 52 KEY (attempt to add duplicate key) 
| Range | Group | 53 KEY (key sequence error) 
E----------- +----------------------------- 1 54 KEY (key conversion error) 
0 | ONCODE | 55. KEY (key specification error) 
3 | Source program error | 56 KEY (keyed relative record/track 
4 | FINISH | outside data set limit) 
9 | ERROR | 57 KEY (no space available to add 
10-19 | NAME | keyed record) 
20-39 | RECORD | 70 ENFILE 
0-49 | TRANSMIT | 80 UNDEFINEDFILE (signaled) 
50-69 | KEY | 81 UNDEFINEFILE (attribute conflict) 
70-79 | ENDFILE | 82 UNDEFINEDFILE (access method not 
80-89 | UNDEFINEDFILE | supported) 
90-99 | ENDPAGE | 83 UNDEFINEDFILE (block size not 
100-299 | (Unallocated) | specified) 
300-309 |OVERFLOW | 84 UNDEFINEDFILE (file cannot be 
310-319 | FIXEDOVERFLOW | opened, no DD card) 
320-329 | ZERODIVIDE | 85 UNDEFINEDFILE (error initializing 
330-339 |UNDERFLOW | REGIONAL data set) 
340-349 |SIZE | 90 ENDPAGE 
350-359 |STRINGRANGE | 300 OVERFLOW 
360-369 |AREA | 310 FIXEDOVERFLOW 
370-499 | (Unallocated) | 320 ZERODIVIDE 
500-509 | CONDITION | 330 UNDERF LOW 
510-519 | CHECK | 340 SIZE (normal) 
520-529  |SUBSCRIPTRANGE | 341 512Е (І/О) 
530-599 | (Unallocated) | 350 STRINGRANGE 
600-899 | CONVERSION | 360 AREA raised in ALLOCATE statement 
900-999 | (Unallocated) | 361 AREA raised in assignment statement 
1000-1199 |I/O errors | 362 AREA (signaled) 
1200-1499 | (Unallocated) | 500 CONDITION 
1500-1699 |Data processing errors | 510 CHECK (label) 
1700-1999 | (Unallocated) | 511 CHECK (variable) 
2000-2099 |Unacceptable statement errors | 520 SUBSCRIPTRANGE 
2100-2999 | (Unallocated) | 600 CONVERSION (internal) (signaled) 
3000-3499 |Conversion errors 1 601 CONVERSION (I/O) - 
3500-3799 | (Unallocated) | 602 CONVERSION (transmit) 
3800-3899 |Structure and array errors | 603 CONVERSION (error in F-format 
3900-3999 |Tasking errors | input) 
4000-8090 | (Unallocated) | 604 CONVERSION (error in F-format 
8091-8199 |Program interrupt errors | input) (I/O) 
8200-8999 | (Unallocated) | 605 CONVERSION (error in F-format 
9000-999 |System errors | input) (transmit) 
-ə---------- 1-----------------------------1 606 CONVERSION (error іп E-format 
Figure I-2. Detailed ON-Code Groupings input) 
607 CONVERSION (error in E-format 
Code Condition/Error input) (I/O) 
608 CONVERSION (error in E-format 
0 ONCODE function used out of context input) (transmit) 
3 Source program error 609 CONVERSION (error in B-format 
4 FINISH | input) 
9 ERROR 610 CONVERSION (error in B-format 
10 NAME input) (1/0) 
20 RECORD (signaled) 611 CONVERSION (error in B-format 
21 RECORD (record variable smaller input) (transmit) 


than record size) 
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Code 
612 
613 
614 
615 
616 
617 


618 
619 


620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
1000 
1001 
1002 
1003 


1004 
1005 


1006 
1007 
1008 


1009 
1010 
1011 
1012 
1013 


1014 
1015 
1016 


1017 
1018 


Condition/Error 


CONVERSION (character string to 


arithmetic) 

CONVERSION (character string to 
arithmetic) (1/0) 

CONVERSION (character string to 
arithmetic) (transmit) 

CONVERSION (character string to bit 
string) 

CONVERSION (character string to bit 
string) (I/O) 

CONVERSION (character string to bit 
string) (transmit) 

CONVERSION (character to picture) 
CONVERSION (character to picture) 
(I/0O) i 
CONVERSION (character to picture) 
(transmit) 

CONVERSION (P-format input - 
decimal) 

CONVERSION (P-format input - 
decimal) (1/0) 

CONVERSION (P-format input - 
decimal) (transmit) 

CONVERSION (P-format input - 
character) 

CONVERSION (P-format input - 
character) (I/O) 

CONVERSION (P-format input - 
character) (transmit) 

CONVERSION. (P-format input - 
sterling) 

CONVERSION (P-format input - 
sterling) (I/O) 

CONVERSION (P-format input - 
sterling) (transmit) 

Attempt to read output file 
Attempt to write input file 
GET/PUT string length error 
Unacceptable output transmission 
error 

Print option on non-print file 
Message length for DISPLAY 
Statements zero 

Illegal array datum data-directed 
input 

REWRITE. not immediately preceded by 
READ | 

GET STRING: unrecognizable data 
name 

Unsupported file operation 

File type not supported 
Inexplicable I/O error 
Outstanding READ for update exists 
No completed READ exists - 
incorrect NCP value 

Too many incomplete I/O operations 
EVENT variable already in use 
Implicit-OPEN failure - cannot 
proceed 

Attempt to REWRITE out of Sequence. 
ERROR condition raised if 
end-of-file is encountered before 
the delimiter while scanning 
list-directed or data-directed 


input, or if the field width in the 


format list of edit-directed input 


Appendix I: 


Code 


ON, 


Condition/ rror 


would take the scan beyond the 
end-of-file. 

Attempt to close file not opened in 
current task 

Short SQRT error 

Long SQRT error 

Short LOG error 

Long LOG error 

Short SIN error 


. Long SIN error 


Short TAN error 

Long TAN error 

Short ARCTAN error 

Long ARCTAN error 

Short ARCTANH error 

Long ARCTANH error 

Invalid exponent in short float 
integer exponentiation 

Invalid exponent in long float 
integer exponentiation 

Invalid exponent in short float 
general exponentiation 

Invalid exponent in long float 
general exponentiation 

Invalid exponent in complex short 
float integer exponetiation 
Invalid exponent in complex long 
float integer exponentiation 
Invalid exponent in complex short 
float general exponentiation 
Invalid exponent in complex long 
float general exponentiation 
Invalid argument in short float 
complex ARCTAN or ARCTANH 
Invalid argument in long float 
complex ARCTAN or ARCTANH 
Unacceptable DELAY statement 
Unacceptable use of the TIME 
built-in function 
E-format conversion error 
F-format conversion error 
A-format conversion error 
B-format conversion error 
A-format input error 

B-format input error 

Picture character string error 
ONSOURCE or ONCHAR out of context 
Improper return from CONVERSION 
ON-unit 

Structure length 2 16**6 bytes 
Virtual origin of array > 16**6 or 
< -16**6 

Attempt to wait on inactive and 
incomplete event 

Task variable already active 
Event already being waited on 
Wait on more than 255 incomplete 
events 

Active event variable as argument 
to COMPLETION pseudo-variable 
Invalid task variable as argument 
to PRIORITY pseudo-variable 

Event variable active in assignment 
Statement 

Event variable already active 
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code Condition/Error 


3908 Attempt to wait on an I/O event in 
wrong task 

8091 Invalid operation 

8092 Privileged operation 

8093 EXECUTE statement executed 

8094 Protection violation 

8095 Addressing interruption 

8096 Specification interruption 

8097 Data interruption 

9000 Too many active ON-units and entry 
parameter procedures 

9002 Invalid free storage (main 


procedure) 


Return Codes and User Completion Codes 


PL/I programs can terminate abnormally in 
six different ways: 


1. EXIT (abnormal termination of a task) 


2. STOP (abnormal termination of the 
program) 


3. ТЕ the ERROR condition is raised and 
there is neither an ERROR on-unit nor 
a FINISH on-unit with a GO TO 
Statement. 


4. CALL IHEDUMP or CALL IHEDUMT. 


5. ТЕ an interrupt occurs during 
execution of the error-handling 
routine. This results in execution of 
the ABEND macro. 


6. An operating system abnormal 
termination in the major task. 


In cases (1) to (4) above, a special 
return code is generated by the PL/I 
library and passed to the return code 
register of the operating system. The code 
generated is the sum of: 


a. а basic code associated with the 
cause of termination, and 


b. the ordinary return code. (The 
ordinary return code is either 
that set by the programmer or the 
default value, zero.) 


The basic codes associated with the 
cause of termination are: 
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EXIT and STOP 1000 
ERROR 2000 
CALL IHEDUMP or IHEDUMT and 

when an error occurs in 

IHEDUMC or IHEDUMJ 3000 
Error-handling xoutine interrupt 4000 


There are two instances in which 
execution of the PL/I program does not 
commence but a return code is generated: 


4004 
4008 


Pseudo-register vector too long 
No main procedure 


In cases (5) and (6) above, a full 
storage dump will be printed, provided that 
a SYSABEND or SYSUDUMP DD statement has 
been used. If not, and MFT or PCP is being 
used, an indicative dump will be printed. 
Case (5) results in a completion code of 
4000. When a program terminates abnormally 
with a completion code of 4000, this means 
that a disastrous error has occured, such 
as a control block being overwritten. 


When a program terminates abnormally 
with a completion code of 3333, this means 
that a disastrous error has occurred in the 
dump output modules. It can also mean that 
a program interrupt has occurred during the 
execution of a non-PL/I routine which does 
not have its own error handler and which 
has modified the value of register 12. 
(Non-PL/I routines include data management, 
sort, and any user-written routines invoked 
from a PL/I routine.) 


When the operating system terminates a 
program, the user completion code is zero, 
and the system completion code is the 
operating system completion code. 


All the 4000-series codes mentioned 
above are accompanied by a message at the 
operator's console. (For further 
explanation of the underlying causes of 
these messages, refer to the explanations 
given for each message in "Object-Time 
Error Messages" in Appendix K. 


A user completion code of 4092 may 
result if: 


1. A call to IHEREST is made to force a 
restart. 


2. А user completion code of 4092 was not 
specified at system generation time as 
eligible for automatic restart, or no 
RD parameter or RD-NR was specified in 
the JOB statement, or if the operator 
replies "NO" when the system asks 
whether the job should restart. 


See Chapter 14 and IBM System/360 


Operating System: Checkpoint/Restart for 
further information. 


Prior to Release 16 of the operating 
system, in the case of EXIT, STOP, and 
ERROR, instead of a return code an ABEND 
macro was issued, with a completion code 
equal to the return code which is now 
returned. The effect of the change is that 
now only the PL/I program is terminated 
when EXIT,STOP, or ERROR occur, and not the 
whole job step; this gives the programmer 
the ability to select the subsequent course 
of action according to the cause of 
termination of his PL/I program. He does 
SO either in a program which calls the PL/I 
program, or in the next job step by using 
the COND parameter of the EXEC statement. 


STEP ABEND FACILITY 


Using the standard default module IHEABND 
in the PL/I library (data set SYS1.PL1LIB), 
error handling will be as stated above. 

The STEP ABEND facility is available 
however by using a user-written module 
IHEABND. Replacing the standard module 
results in a STEP ABEND being issued when- 
ever the ERROR condition is raised or 
signalled in the absence of an ERROR 
ON-unit. 


Module form: 


Changing Standard Module IHEABND 


To change the standard module IHEABND to 
Obtain the STEP ABEND facility the return 
code in register 15 must be set to 
non-zero. TO become an installation 
standard this module must be link-edited 
into the PL/I library (data set 
SYS1.PL1LIB) to replace the standard module 
IHEABND. For use in one program only, the 
object deck is link-edited with that 
program. 


The purpose of this module is to set a 
non-zero return code in register 15. The 
error handling module IHEERR calls IHEABND 
and examines the return code held in 
register 15 to decide whether STEP ABEND or 
normal action is required. (The standard 
default module IHEABND in SYS1.PL1LIB sets 
a zero return code in register 15). If the 
return code is non-zero then a STEP ABEND 
is issued. 


RETURN CODES 


Return codes are set by use of the 
Statement CALL IHESARC, or CALL IHETSAC 
(multitasking). 


Set return code in register 15 


IHEABN CSECT 
ENTRY  IHEABND Define entry 
USING %,15 Addressability 
IHEABND  EQU * Entry point 
L 15, NONZERO 
BR 14 Return оп register 14 
NONZERO DC F'1' Non-zero return code 
END 
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Appendix J: 


AREA Attribute | 


The size of an area is limited to 32,767 
bytes. In this implementation, the AREA 
size is provided by the value associated 
with the AREA attribute or by the default 
value of 1000 bytes. 


Aggregates 


The length of an aggregate is limited to 
8,388,607 bytes. 


Array Bounds 


Arrays are limited, for each dimension, to 
a lower bound of -32,768 and to an upper 
bound of 32,767. 


BASED Attribute 


The implementation of offsets and pointers 
does not support bit addressing. This 
restriction has no practical effect on 
ALIGNED bit strings. With UNALIGNED bit 
strings belonging to arrays or structures, 
however, only offset or pointers to major 
structures or minor structures with byte 
(or higher) alignment should be used. 


Based Variable Declaration 


A pointer variable must be included in a 
based variable declaration. (This is the 
pointer that will be set in the absence of 
a SET option from a LOCATE or an ALLOCATE 


Statement referring to the based variable.) 


Based Variables 


The pointer variable explicitly or 


implicitly qualifying a based variable must 
be a non-based unsubscripted scalar pointer 


identifier. 


Implementation Conventions and Restrictions 


The BASED attribute must be followed by 
a pointer identifier in parentheses. 


The OFFSET attribute must be followed by 
an identifier in parentheses. 


The variable named in the OFFSET 
attribute must be an unsubscripted level 1 
based area. 


Offset variables may not be used in any 
SET option or in any explicit or implicit 
based variable qualifier. 


A based variable may not have the 
INITIAL attribute. 


A based label array cannot be 
initialized by means of subscripted label 
prefixes. 


A based structure can have either: 
1. Опе adjustable array bound, or 


2. One adjustable-length bit or character 
string. 


Based Structure with One Adjustable Array 
Bound: This is permitted only when there 


are no adjustable strings in the structure. 
The bound must conform to the following 
rules: 


1. It must be of the form: 
X REFER (Y) 


where X is an unsubscripted fixed 
binary integer variable, 


Y is an unsubscripted fixed 
binary integer variable, of the 
same precision as X, which is: 


a. part of the structure, and 


b. not associated with an 
explicit pointer qualifier. 


2. It must be the upper bound of the 
leading dimension (including inherited 
dimensions) of the element with which 
it is declared. 


3. The structure member with which the 
bound is declared must be, or must 
contain, the last base element in the 
structure. 
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Example: 


DCL 1 PARTS LIST BASED(P), 
FIRM_NAME CHAR(40), 
REF_NO FIXED BINARY, 
FIRM_ADDRESS, 
3 STREET TOWN CHAR(50), 
3 COUNTRY CHAR(30), 
2 STOCK(20:N REFER(REF NO), 100:200), 
3 NUMBER, 
4 HERE FIXED(10,0), 
4 ORDERED, 
5 PROVISIONAL FIXED(10,0), 
5 CONFIRMED FIXED(10,0), 
3 COsT FIXED(5,0); 


NNN 


Based Structure with One Adjustable-Length 


Bit or Character String: This is permitted 
only when there are no adjustable array 


bounds in the structure. The string must 
conform to the following rules: 


1. It must be an element. 


2. It must be the last element in the 
structure. 


3. The length must be declared in the 
form: 


X REFER (Y) 
where X and Y are as described above. 
Example: 
DCL 1 TYPE OF HOUSE BASED(P), 
NUMBER OF FLOORS FIXED(2,0), 


AREA FIXED BINARY, 
RATES CODE CHAR(N REFER(AREA)); 


ммм 


Note: Pointer and area data types must be 
aligned. 


Block Size 


The maximum size of a block must not exceed 
32,760 bytes. 


See IBM System/360 Operating System: 
PL/I (Е) Language Reference Manual for 


details of data aggregate size requirements 
necessary in calculating the block size for 
data sets using RECORD I/O. 


Blocks in a Compilation 


The number of PROCEDURE, BEGIN, and 
iterative DO-groups, plus the number of 
ON-statements, must not exceed 255. 
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Buffers 


The number of buffers must not exceed 255. 


Built-In Functions 


The default value for the second argument 
of the FIXED built-in function is 15 for 
binary data, and 5 for decimal data. 


The default value for the second 
argument of the FLOAT built-in function is 
21 for binary data, and 6 for decimal data. 


The length of the bit string which is 
the value returned by the UNSPEC built-in 
function is defined by the type of the 
argument. 

Argument e Length of Bit String 
16 if p « 16 

32 if p » 15 

FIXED DECIMAL (p,q) 8*FLOOR ((P+2)/2) 


FIXED BINARY (p,q) 


FLOAT BINARY (p) 32 if p < 21 
64 if p = 22 

FLOAT DECIMAL (p) 32 if p < 6 
64 if p2 7 

CHARACTER (n) 8*n 

BIT (n) n 

POINTER 32 

OFFSET 32 


AREA (Number of bytes 


allocated * 16)*8 


The length of the string returned by the 
ONSOURCE and DATAFIELD built-in functions 
is subject to an implementation maximum of 
255 characters. 


Character Code 


Input to the object program is assumed to 
be in EBCDIC mode. 


CHECK Condition 


If an identifier that is read in by a GET 
DATA statement is included in a CHECK list 
anywhere in the program, then the CHECK 
condition is raised, and will be treated as 
enabled unless the block containing the GET 
DATA statement has an explicit NOCHECK 
prefix. If the CHECK condition is raised, 
system action will be taken unless the GET 
DATA statement lies within the dynamic 
scope of an ON CHECK statement for the 
identifier in question. 


If a READ statement with the EVENT 
option has a KEYTO or an INTO variable for 
which the CHECK condition is enabled, the 
value of the variable will be printed 
immediately after execution of the READ 
statement, not after the WAIT statement. 
Consequently, the printed values of the 
variable will be the old, not the new 
values. 


The CHECK condition is not raised for 
the name of a procedure when: 


1. Тһе procedure that enables the CHECK 
condition also invokes the named | 
procedure, and 


2. The invoking procedure and the named 
procedure have been placed in 
different program segments (overlays) 
by the linkage editor. 


CHECK Lists 


The maximum number of entries in a CHECK 
condition, whether in a prefix list or in 
an ON-statement, is 510. 


The maximum number of data items being 
checked at any point in the compilation 
varies between 2078-2n and 3968-2n, where n 
is the number of currently checked items 
which have the attribute EXTERNAL. 


If a structure or part of a structure is 
in a CHECK condition, the number of items 
in this restriction must include all 
elements of the structure. 


COBOL Option 


If an ON-condition arises during a READ 
INTO, then: 


1. The INTO variable may not be used in 
the ON-unit. 


2. If the completed INTO variable is 
required, there must be a normal 
return from the ON-unit. 


Collating Sequence 


In the execution of PL/I programs, 
comparisons of character data will observe 
the collating sequence resulting from the 
representations of characters in bytes of 
IBM System/360 storage in extended binary 
coded decimal interchange code (EBCDIC). 


COLUMN Format Item in Non-Print Files 


For input files, if the value of the 
expression is greater than the current 
record length, a value of 1 is assumed. 


For both input and output files, if the 
value is less than the current position on 
the line, the file is positioned at 
COLUMN(value) on the next line. 


For output files, all characters from 
the current position in the line to the 
next position are blanked out. For U- or 
V-format records, if another record is 
required, a short record is put out subject 
to the rules described under the SKIP 
format item. 


Concatenated Data Sets 


Concatenation of data sets with 'unlike 
attributes' (device type, record format, 
etc.,) is not supported at object time. 


Constants 


The precision or length of constants may 
not be greater than the precision or length 
of the corresponding type of variable. 


‘Constants, Floating-Point 


The exponents of floating-point numbers are 
restricted to a maximum of 2 digits for 
decimal or 3 digits for binary. 


Constants Returned by Procedures 


If a procedure has more than one entry 
point, and each entry point returns a 
value, code is generated to convert each 
value returned to each of the data types 
for the entry points. If any of these 
values is a constant, it is possible that 
this constant cannot be converted to all 
the data types specified. A severe error 
message will be put out, and execution will 
be unsuccessful. 


This situation can be avoided by 
assigning the constant to a variable of the 
same data type, and then returning this 
variable. For example: 
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DCL A ENTRY RETURNS(CHAR(8)), 
B ENTRY RETURNS(FIXED DECIMAL(15)), 
C ENTRY RETURNS (BIT (64)), 
ATEMP СНАК (8); 


A: ENTRY СНАК (8); 
АТЕМР= А08 '; 
RETURN (ATEMP) ; 
В: ENTRY FIXED DECIMAL(15); 
RETURN (108); 
C: ENTRY ВІТ(64); 
RETURN ("10101 °В); 


The use of АТЕМР avoids the interrupt 
caused by the CHARACTER->FIXED DECIMAL and 
the CHARACTER->BIT conversions. However, 
execution may still be unsuccessful, anda 
warning message is put out to remind the 
user. 


Constants, Sterling 


The maximum number of digits allowed in the 
pounds field of a sterling constant is 13. 


The number of digits following the 
decimal point in the pence field must not 
exceed 13 minus the number of digits in the 
pounds field. 


Constants, Strinq 


The number of characters in a string 
constant, after expansion of iteration 

. factors, may not exceed the size of a 
dictionary block minus 14. The size of a 


dictionary block will vary with the storage 


available to the compiler in the same way 
as does text block size, but will not be 
less than 1,024 bytes. 


Data-Directed Input/Output 


а) 
The maximum lengtH of a qualified name, 
. including the separating periods, is 255 
characters. 


Data-Directed List 


The maximum number of elements permitted in 
a list for data-directed input is 320. 
Each base element of a structure counts as 
a separate 115%” element. - 
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DECLARE Statement . (compile-time) 


No more than three levels of factoring are 
permitted in a compile-time DECLARE 
Statement. 


DEFINED Attribute 


The DEFINED attribute is always evaluated 
on entry to the declaring block. 

Overlay defining is not permitted if the 
base is either subscripted or is declared 
CONTROLLED. Correspondence defining is not 
permitted if the base is declared | 
CONTROLLED. 


Example: 
DCL B CONTROLLED, C(10) AUTOMATIC; 


/*INVALID*/ 7 


DCL A DEFINED B, 
E DEFINED C(I), /*INVALID*/ 
F(10) DEFINED C; /*VALID*/ 


No correspondence defining may be used 
with arrays of structures. 


Example: 
DCL 1 А(10), 2 B, 2 С; 


DCL 1 D(5) DEFINED A, 2 E, 2 F; /*INVALID*/ 
DCL D(5) DEFINED B; /*VALID*/ 


Dimensions 


The maxiumum number of dimensions 
permitted, including dimensions inherited 
from containing structures, is 32. 


DISPLAY Statement 


The maximum lengths of character string 
acceptable are 72 characters for the 
message and 126 characters for the reply. 
The reply string's current length is set 
equal to its maximum length and padded with 
blanks if necessary. 


Dummy Arguments 


The maximum number of dummy arguments 
permitted at each invocation of a procedure 
is 64. 


Edit-Directed Input/Output 


In the output format item E(w,d,s), s must 
be less than 17 digits. In the output 
format item E(w,d), d must be less than 16 
digits. 


If the number of significant digits in 
E-format is greater than 16, then: 


CONVERSION condition 
raised 


E-format input: 


E-format output: ERROR Condition raised 


When either a repetitive specification 
appears in an edit-directed format list or 
an iteration factor is used in a format 
list, the data items are associated with 
their format items during execution rather 
than compilation. The compiler will 
therefore include library modules that can 
handle all the possible pairings of data 
and format items. Some of these modules, 
however, will never be invoked should the 
circumstances that demand their use never 
arise. 


ENTRY Names as Arguments and ON-Statements 


in Recursive Contexts 


In the first version of the (F) compiler, 
ENTRY parameters were invoked with the 
environment existing at the time of 
invocation. In subsequent versions, they 
will be invoked with the environment 
existing at the time when the ENTRY name 
was passed as an argument. 


Example: 


P1: PROC RECURSIVE; 
B=1; 

CALL P4&(P3); 
RETURN; 

P4: ENTRY (РР); 
B=2; 
CALL PP; 

P3: PROC; 

PUT DATA(B); 
END; 
END; 


Note: For the first version, the above 
procedure gave B=2;, for subsequent 
versions it gives B=1;. 


In the first version of the (F) 
. compiler, ON-units in recursive contexts 
were entered with the environment existing 
when the condition occured. In subsequent 
versions, the ON-unit will be entered with 
the environment which was in existence when 
the ON-statement was executed. 


Example: 


Р: PROC RECURSIVE; 
DCL I STATIC ІМІТ(0),М AUTOMATIC; 
I=I+1; 
M=I3 
IF I=1 THEN DO; 
ON OVERFLOW PUT DATA(M); 
END; | 
ТЕ I=3 THEN SIGNAL OVERFLOW; 
ELSE CALL P; 
END; 


Note: In the first version, the procedure 
gave M=3;, subsequent versions give M=1;. 


These modifications of semantics can 
affect only those programs which contain 
both recursive procedures and either entry 


‚ parameters or ON-statements. 


EVENT Option 


The EVENT option is implemented for RECORD 
input/output statements used as follows: 


Access Data-Set Organization 
SEQUENTIAL CONSECUTIVE, REGIONAL 
UNBUFFERED 

DIRECT CONSECUTIVE, INDEXED 


or REGIONAL 


Note: The EVENT option should not be used 
on a WRITE statement if V- or U- format 
records are being added to a REGIONAL (3) 
data set which is being accessed ina 
direct update mode. If the EVENT option is 
specified in the DISPLAY statement, it must 


follow the REPLY option. 


Exponentiation 


The expression X**(-N) for М>0 is evaluated 
by taking the reciprocal of X**N. This may 
cause the OVERFLOW condition to occur as 
the intermediate result is computed, which 
corresponds to UNDERFLOW in the original 
expression. 


Expression Evaluation 


The maximum number of temporary results 
which may exist during the evaluation of an 
expression or during an assignment 
statement is 200. 
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An estimate of the number of temporary 
results which may exist during the 
evaluation of an expression can be obtained 
from the following: 


At each level of parenthesis, count one 
for each operator which is forced to be 
evaluated before an inner level of 
parentheses. For each such operator, 
count one for each operand which 
requires conversion before use, count 
one for each nested function, count one 
for each subscripted variable used as a 
target in a assignment statement, and 
finally, count one for each 
pseudo-variable and each argument of a 
pseudo-variable. 


Factoring of Attributes 


The total number of pairs of parentheses 
used for factoring attributes in DECLARE 
Statements within a compilation is 
dependent upon the SIZE option, as follows: 


Text Block Size Factor Bracket Limit 


1K 146 
2K 292 
4K 585 
8K 1171 
16K 2340 


For relationship between SIZE option and 
block size, see "Control Options" in 
Chapter 5: Compilation. 


FLOAT Attribute 


Floating-point precision specified as 
FLOAT (*) in a parameter description within 
the GENERIC attribute, is not permitted. 


Floating-Point Magnitude 


The magnitude of a normalized 
floating-point variable or intermediate 
result must lie in the range from 

2.4 * 10-79 to 7.2 * 1075. 


Function Values 


The maximum number of different data types 
or precisions returned by one function may 
not exceed 256. 
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GENERIC Attribute 


There is a limitation on the number of 
family members and argumants which may be 
associated with a GENERIC entry name. the 
value given by evaluating the following 
formula must not exceed 700: 


n 
3n * 837A; + 8МАХ(а),а2,...аһ) + 3d 
1i 


where n - the number of family members. 
a; = the number of arguments relating 
to the ith family member. 
d the greatest function nesting 
depth at which an invocation of 
the GENERIC entry name appears. 


Halfword Binary Facilities 


With previous versions of the compiler, 
fixed binary variables of any precision 
were always mapped as fullwords (requiring 
four bytes of storage). The fifth version 
of the compiler will map fixed binary 
variables of precision less than 16 as 
halfwords (requiring only two bytes of 
storage), and will use IBM System/360 
halfword instructions to process them. 
Note that variables of default precision 
will be mapped as halfwords. 


The change does not apply to fixed 
binary constants or fixed binary 
intermediate targets (i.e., compiler 
created temporaries for holding 
intermediate results of operations). 


These 
will continue to occupy fullwords. 


Identifiers, Length 


The following types of identifiers should 
contain not more than seven characters: 


EXTERNAL data identifiers 

EXTERNAL PROCEDURE and ENTRY labels 
EXTERNAL Files 

CONDITION identifiers 


If this restriction is exceeded, the 
first four characters are concatenated with 
the last three to form an abridged 
identifier. 


In, addition, such identifiers must not 
Start with the letters IHE, in case they 
conflict with the names of library modules. 


Identifiers, Subscripted 


For subscripted identifiers, the maximum 
number of characters in the subscript is 
limited to 255 characters. This figure 
includes the first left parenthesis, the 
commas, and the final right parenthesis; it 
excludes redundant characters such as 
blanks and plus signs. 


INCLUDE Statement (compile-time) 


Included text must be from a member of a 
partitioned data set. If a single 
identifier is specified, either as 
(identifier) or identifier then it is 
assumed to be the name of a member of the 
partitioned data set with the ddname 
SYSLIB. If identifier, (identifier.) is 
written, then identifier, is the ddname and 
identifier, is the member name. DD 
statements must be provided for partitioned 
data sets used. Records in these data sets 
must have a fixed length of not more than 
100 characters. The maximum blocking 
factor is 5. The source margin and 
character set options on the EXEC statement 
also apply to included text. 


INDEXAREA Option 


The index-area-size parameter to this 
option is a decimal constant and must not 
exceed 32,767. 


INITIAL Attribute 


An INITIAL attribute given for CHARACTER or 
BIT data of STATIC storage class may not 
specify ‘complex expressions’ as initial 
values. | 


Example: 
DCL C CHAR(10) 


STATIC INIT(3+41); /*INVALID*/ 
DCL C CHAR(10) 
STATIC INIT('34U0I');  /*VALID*/ 


Only the INITIAL CALL form of the 
INITIAL attribute is allowed in pointer 
declarations. 


INTO Option.of READ Statement 


When the record variable of a READ 
Statement is a variable length bit-string, 
the byte count, not the bit count, is 
stored as the current length. This is 
because all variable length bit-strings are 
not both byte aligned and multiples of 
eight. 


LABEL Attribute 


The number of statement-label constants 
specified by the LABEL attribute is limited 
to 125 in any particular label list. 


Qualified names may not be used as label 
prefixes. Reference to arrays of label 
variables initialized by means of 
subscripted labels must not require 
explicit structure qualification. 


Example: 
DCL 2(3) LABEL, 
18, 
2 Y(3) LABEL, 
1 51, 
2 Ү(З) LABEL, 
1 52, 

2 X(3) LABEL; 
2(1):; 7*VALID*/ 
5.Ү(1): ; /*INVALID*/ 
X(1): ; /*VALID*/ 


LABEL Variables in Structures with the LIKE 
Attribute 


Initialization of LABEL variables in these 
structures requires careful handling 
particularly as the implementation does not 
provide the result specified by the 
language. А structure А is declared, using 
the LIKE attribute, to be identical to a 
structure B. Structure В contains a LABEL 
variable that is initialized, using the 
INITIAL attribute, to the value of a LABEL 
constant. The initial value of the 
corresponding LABEL variable in A is the 
initial value of the LABEL constant known 
in the block containing the declaration of 
B, not A. 
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‘Example: 


DCL 1 B, 
2 L LABEL INIT(L1); 


L1: H /*B.L-L1*/ 


s s г e . . 
- 


BEGIN; 
DCL A LIKE B; 
Lis . ; /*A.L IS GIVEN THE VALUE OF 
L1 IN STRUCTURE B*/ 


Label Constants in Recursive Procedures 


‘When a label constant in a recursive 
‘procedure is the object of a GOTO 
‘Statement, the branch will be taken to the 
label in the most recent invocation of the 
procedure. The most recent invocation is 
‘used irrespective of the environment that 
invoked the recursive procedure and of the 
‘environment that invoked the procedure 
‘containing the GOTO statement. 
Consequently, if the GOTO statement is in a 
‘procedure which was passed as an entry name 
‘parameter, the branch will be to the most 
recent invocation rather than to the 
‘invocation that was active when the entry 
name parameter was passed. 


In the following example, the first 
invocation ОҒ A invokes A recursively; the 
second invocation of A invokes procedure B. 
The GOTO statement in procedure B causes a 
-branch to the label L in the most recent 
invocation of procedure A rather than to 
‘the previous invocation. 


Х: PROC OPTIONS (MAIN) ; 
CALL A(A); 


| A: PROC(E) RECURSIVE; 
DCL E ENTRY, 
SW BIT(1) STATIC INIT('O'B); 


В: PROC 
GOTO L; 


END B; 


IF SW THEN CALL E 
SW="1'B; 
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CALL A(B); 


END A; 


END X; 


Label Variables in Recursive Procedures 


вна на 


ТЕ a label variable is assigned а label 
constant in a particular invocation of a 
recursive procedure, a GOTO statement 
associated with the invocation will 
transfer control to the label constant 
within that invocation. Consequently, if 
the GOTO statement is in a procedure which 
was passed as an entry name parameter, the 
branch will be to the label constant 
assigned to the label variable in the 
environment that was active when the entry 
name was passed. 


In the following example, the first 
invocation of procedure A invokes A 
recursively; the second invocation of A 
invokes procedure B. The GOTO statement in 
procedure B causes a transfer to the label 
L in the invocation of A that was active 
when the entry name parameter B was passed, 
i.e., the first invocation of A. 


X: PROC OPTIONS (MAIN) ; 
CALL A(A); 


A: PROC (E) RECURSIVE; 
DCL E ENTRY; 
DCL SW BIT(1) STATIC INIT('O'B); 
DCL LAB LABEL INIT(L); 


В: PROC; 
GOTO LAB 
END B; 


IF SW THEN CALL E; 
SW-'1'B; 
CALL A(B); 


END A; 


+ 


END X; 


Level Numbers 


The maximum declared level number permitted 
in a structure is 255. The maximum true 
level number permitted in a structure is 
63. 


Line Numbering (Compile-Time) 


Where constants or comments span more than 
one line, the output line numbering refers 
to the first input line number of the 
string or comment. 


LINESIZE Format Item 


The maximum amd minimum line size depend on 
the record format. : 


pee porc uc meme mer 
| | LINESIZE | 
| Record [------------------ Т------------- 1 
| Format | Minimum | Maximum | 
| V |Non-PRINT file: 10| 32,751 | 
| |PRINT file: 9 | | 
ағаны (ana: соң эрак. 
| U,F [1 | 32,759 | 
Жаа LONE FEIN шысы Niet ce det 1 


If a line size is not specified, the 
defauit values are: 


PRINT file: 120 characters 
Non-PRINT output file: no default value 


The LINESIZE value determines the 
logical-record length in the data set 
(i.e., the value of LRECL): 


F- and U-format records: LRECL = LINESIZE 
V-format records: LRECL = LINESIZE + 4 


For PRINT files, an extra byte (for the 
ANS control character) is added to each of 
the above LRECL values. 


If BLKSIZE is specified, its value and 
the LRECL value must be compatible. If 
BLKSIZE is not specified, its value is 
calculated from the LINESIZE value. 


Evaluation of the expression gives an 
integer that must be within the limits 
described above. For V- and U-format 
records, LINESIZE is the maximum size of a 
line. If a variable LINESIZE is required, 
the maximum value must be specified as the 
BLKSIZE in the DD statement or in the 


ENVIRONMENT attribute. Short lines are 
padded with blanks for F-format records 
only. 


MACRO Compiler Option (compile-time) 


The MACRO option should be included among 
the complete set of options for the 
compiler invocation if the program contains 
compile-time statements. 


MAIN Option 


A single parameter may be passed by the 
EXEC statement for the execution job step 
to the MAIN procedure. If this facility is 
used, the first parameter to the MAIN 
procedure should be declared as a VARYING 
character string; the maximum length is 
100, and the current length is set equal to 
the parameter length at object time. The 
parameter can also be a fixed-length 
character string. 


MAX,MIN,MOD, Built-In Functions 


When the arguments to these functions have 
different attributes, all the arguments are 
converted, before the function is invoked, 
to the highest characteristics. Contrary 
to the language specification, both the 
precision and the scale factor of an 
argument will be adjusted. If all the 
arguments are FIXED, application of the 
highest-characteristics rule may, in 
conjunction with the maximum precision 
defined by the implementation, cause 
truncation and hence an inaccurate result. 
For example: 


DCL X FIXED DECIMAL(12,1), 
Y FIXED DECIMAL(12,9); 
Z-MOD(X, Y) ; 


Here Z (whatever its attributes) will be 
wrong. X and Y are stored in a temporary 
field which would have, according to the 
precisions of the operands, a precision 
larger than the implementation permits. 
Therefore the implementation-defined 
maximum is applied, resulting in a 
precision of (15,9). Y can be stored 
satisfactorily inside such a field but X is 
truncated, with the loss of its five 
high-order digits. 


When the MOD built-in function is used 
with FIXED arguments of different scale 
factors, the results may be truncated. If 
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SIZE is enabled, an error message will be 
printed; if SIZE is disabled, no error 
message will be printed and the result is 
‘undefined. 


Multiple Assignments and Pseudo-Variables 


Multiple assignments are limited by the 
following rule: 


Count 11 for each target of a multiple 
assignment, add 3 for each 
pseudo-variable, and then add 11 for 
each argument of a pseudo-variable. 
The total must not exceed 4,085. 


‘Names Generated by the Compiler 


‘The number of names generated by the 
compiler must not exceed 11,264 in a 
‘compilation. One name is generated for 
| each PROCEDURE, BEGIN, or ON-block, for 
each variable declared as CONTROLLED 
.INTERNAL, and for each INTERNAL file. 


‘Names, Qualified 


The number of characters in a qualified 
пате, which is to be used either for 
;data-directed input/output or in CHECK 
‘lists, must not exceed 256. 


Note that if the DATA option without a 
list is used for data-directed input, this 
will include all structure elements in the 
compilation. 


Nesting Limitations 


There must not be more than 50 levels of 
nesting at any point in the compilation. 
‘The degree of nesting at any point is the 
number of PROCEDURE, BEGIN or DO 
‘Statements, without a corresponding END 
‘statement, plus the number of currently 
active IF compound statements, plus the 
number of currently unmatched left 
parentheses, plus the number of dimensions 
in each active array expression, plus the 
maximum number of dimensions in each active 
structure expression. 


The number of nested iteration factors 
in a format list must not exceed 20. The 
maximum nesting of ENTRY attributes within 
an ENTRY or GENERIC attribute'is 3. 
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Nesting and Depth of Replacement 


At any point in the program the combined 
level of nesting and depth of replacement 
is restricted to 50. However, since not 
all nested or replacement items require the 
same amount of space, a program may run 
with a greater actual nesting or 
replacement depth than 50 levels. Depth of 
replacement is self-defining, but nesting 
level requires some clarification. A 
nesting level is required for: 


1. Each pair of parentheses, either 
explicit or implied by hierarchy of 
operation. 


2. Each IF, DO or PROCEDURE statement. 


3. Each member of a parenthesized list, 
such as factor lists in DECLARE 
Statements or argument lists of 
procedures. | 


OFFSET and POINTER Puilt-In Functions 


The OFFSET and POINTER built-in functions 
cannot be specified explicitly. However, 
if the value of an offset variable is 
assigned to a pointer variable, or a 
pointer value to an offset variable, the 
necessary conversion is implicit in the 
assignment. 


ON-Units and Entry Parameter Procedures 


There is an implementation limit to the 
number of ON-units and/or entry parameter 
procedures which can be active at any time. 
An entry parameter procedure is one that 
passes an entry name as parameter to a 
procedure it calls. rhe total permissible 
number of these ON-units and/or entry 
parameter procedures is 127. 


ONCOUNT Built-In Function 


This built-in function is supported only 
for Model 91 requirements. 


PAGESIZE Option 


The maximum size of a page is 32,767 lines; 
the minimum is 1 line. If the page size is 
not specified a value of 60 lines is 
assumed. 


Parameters 


The maximum number of parameters permitted 
at any entry point is 64. 


PICTURE Attribute 


The maximum length of a PICTURE describing 
a numeric field, after expansion of 
iteration factors, is 255. 


The maximum length of a PICTURE | 
describing a character string, after 


expansion of iteration factors, is the size 


ОЁ a dictionary block, less 14. The size 
of a dictionary block will vary with the 
storage available to the compiler in the 
same way as does text block size, but will 
not be less than 1,024 bytes (or 768 bytes 
if the EXTDIC option is in use). 


POSITION Attribute 


The maximum value of the integer constant 
in the POSITION attribute is 32,767. 


Precision 
The precision, N, for a compile-time 
variable declared FIXED is restricted to 5. 


The maximum precision of a variable or 
Of an intermediate result is: 


53 for FLOAT BINARY 
16 for FLOAT DECIMAL 
31 for FIXED BINARY 
15 for FIXED DECIMAL 


Procedures (compile-time) 


There may be no more than 254 compile-time 
procedures per compilation. Further, each 
procedure is limited to a maximum of 15 
parameters. 


Record Size 


The maximum size of a record must not 
exceed 32,760 bytes. See ТЕМ System/360 


Operating System: PL/I (F) Language 
Reference Manual, for details of data 


. other. 


aggregate size requirements necessary in 
calculating the record size for data sets 
using RECORD I/O. 


REFER Option 


The restriction on the two variables in the 
REFER option of the BASED attributes has 
been eased to permit fixed binary integer 
variables of the same precision as each 
This will allow the user the choice 
of either continuing to use fullword binary 
or using halfword binary for the 
controlling fields in self-defining 
structures. 


Scale Factor 


The scale factor of a variable, or of an 
intermediate result of type FIXED, must be 
in the range -128 arid *127. 


Size of Compile-Time Processor Input 


The user's program is maintained internally 
as blocks of text. Block size is assigned 
at the start of processing and is a 
function of machine size as specified by 
the SIZE option on the EXEC card.The total 
size of internal text is restricted to 90 
times the size of a text block. The 
minimum system configuration results in a 
block size of 1K, so a total of 90K is 
allowed for internal text. This minimum 
figure is roughly equivalent to 1000 source 
input statements. 


Size of Individual Statement 


All statements, other than a DECLARE 


Statement, are limited to 3,500 source 
characters, i.e., equivalent to 50 cards. 
The 'content' of any statement, other than 
a DECLARE statement, is limited by the size 
ОЁ a text block; this varies, as described 
in the preceding paragraphs, with the 
Storage available, but will not be less 
than 1,024 bytes. 


The contect of a statement can be 
calculated by ignoring nonsignificant 
blanks and comments, expanding iteration 
factors in string constants and pictures, 
and then adding one byte for each 
occurrence of an identifier, and three 
bytes for each occurrence of a constant. 
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To this, for binary constants add the 
iterations of any CHARACTER or BIT strings 
(note that at this point BIT strings are 
treated as characters, not bits), since the 
(F) compiler expands the strings as if the 
programmer had written then in full, and 
two decimal digits for decimal constants. 
At most, these restrictions will limit a 
statement to six cards, but the limit will 
normally be between 20 and 30 cards, even 
for a text block of 1,024 bytes. 


These restrictions also apply toa 
DECLARE statement for the text between any 
two commas which are not contained within 
parentheses. 


SKIP Format Item in Non-Print Files 


For output files, SKIP action depends on 
the record format: 


F-format: On a short line, SKIP fills 
out the remainder of the line with 
blanks. 


V-format: SKIP puts out the current 
line as a short record. If the byte 
count of the line is less than 14 (18 
with control bytes), the line will be 
blanked up to that size. Successive 
lines will be of the same minimum 
length, padded with blanks. 


U-format: SKIP will put out the current 
line as a short record. 


Statements 


The total size of the internal text, at any 
point in the compilation, is restricted to 
90 times the size of a text block. Тһе 
size of a text block is itself dependent on 
the amount of main storage available to the 
compiler, as specified by the SIZE option. 
The minimum block size is 1,024 bytes (1K), 
giving a maximum size for the internal text 
of 92,260 (90K). This is equivalent to 
roughly 280 executable statements. 


The maximum block size is 16,382 bytes, 
giving a maximum of 1,474,560 bytes for the 
size of internal text. This is equivalent 
to roughly 14,000 executable statements. 


The figures given for numbers of 
Statements are necessarily approximate, 
since the number of bytes per statement 
will vary between different types of source 
programs. 
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STRING Built-In Function 


лл. ertet жел. operan Аена s ET тоға. Aa rot OS UNIS PS RE t 


The argument may be an element array, or 
Structure variable that consists of one of 
the following: 


1. Bit strings 
2. Character strings 
3. Decimal numeric pictures 
ц. А mixture of (2) and (3) 
It cannot be in operational expression. 


The argument can be ALIGNED or 
UNALIGNED; if it is ALIGNED, padding is not 
included in the result. 


The concatenated string in the result 
has a maximum length of 32,767 bytes. 


String Lengths 


The length, in characters or bits, of a 
string variable or intermediate string 
result is limited to 32,767. 


String Lengths in Intermediate Result 
Fields 


When non-adjustable VARYING strings, or 
functions which return non-adjustable 
VARYING strings, are used in an expression, 
the lengths of the intermediate result 
fields are calculated from the maximum 
lengths of the operands. If these lengths 
are at or near the maximum permitted by the 
implementation (32767 bytes or bits), the 
length of the intermediate fields may be 
greater than the implementation maximum; if 
so, they will be truncated on the left. 
This situation can occur with 
concatenation, the UNSPEC function with a 
character-string argument, the REPEAT 
function, and the STRING function. 


The use of adjustable VARYING strings 
сап create a similar problem. When an 
operand of the concatenate operator or the 
argument of the UNSPEC function is an 


. adjustable VARYING string, the length of 


the intermediate result field is not 
tested, and execution will fail. This 
Situation can also occur with SUBSTR if the 
third argument is not a constant, because 
in this case the result is an adjustable 
VARYING string. 


Similarly, when a VARYING string is 
passed as an argument to a fixed-length 
string parameter, the length of the 
temporary argument created is the maximum 
length. If the user wishes to pass the 
current length of the VARYING string (in, 
for example, Y=X(A)), a possible method is: 


DCL ATEMP CHAR(*) CTL; 

ALLOCATE ATEMP CHAR (LENGTH (A)); 
ATEMP=A; 

FREE ATEMP; 


Structure and Array Expressions 


The level of nesting in structure and array 
expressions is limited by the following 
rule: 


For each level of nesting of structure 
or array expressions, add 2 for the 
maximum number of dimensions in the 
structure or array, add 2 for the 
maximum level in a structure 
expression, add 3 for each subscript or 
argument list in the expression or 
assignment, and finally, add 15. 


The total for the whole nest should not 
exceed 900. 


Structures 


No references can be made to cross sections 
of arrays of structures; the whole of an 
array Of structures may be referenced, or a 
single element of the array may be 
referenced, but not a cross section. 


Example: 


DCL 1 А(10,10), 2 B, 2 С(10,10); 
DCL 1 Х(10), 2 Y, 2 2(10,10); 


A(#,J) =X; /*INVALID*/ 
А=А+1; /*VALID*/ 
А (І,Ј)=Х(І); / *VALID*/ 


A cross-section of an EVENT array is not 
permitted to appear in a WAIT statement. 


Example: 


DCL EVT(10,10,2) EVENT; 
WAIT(EVT) 200; /*VALID*/ 
WAIT(EVT(I,J,2)) 100;  /*VALID*/ 


WAIT(EVT(1,*,1)) 10; /*INVALID*/ 

No structure or array of structures may 
be passed as an argument to either a 
built-in function (except STRING, ADDR, and 


ALLOCATION), or to a procedure declared 
with the attribute GENERIC. 


Example: 
DCL 1 А(10), 2 B; 


/*INVALID*/ 
/*VALID*/ 


A-SIN(A); 
B-SIN(B); 


No reference may be made to both a 
structure and an array of structures in the 
same expression or assignment. 


Example: 


DCL 1 А(10), 2 В, 2 C, 
1 Ғ(10), 2 В, 2С, 
1Р, 2 0, 2 Б; 


A=P; /*INVALID*/ 
-F; : /*VALID*/ 
А(Т)=Р; /*VALID*/ 
A-F, BY NAME; /*VALID*/ 
A=F(I), BY NAME; 7* INVALID*/ 


TITLE Option 


If the TITLE option specified exceeds eight 
characters, then the first eight are used. 
If there is no TITLE option, the file name 
(padded or truncated to eight characters) 
is used as the ddname. 


TRANSIENT Attribute 


The following rules apply specifically to 
the use of TRANSIENT with the (F) compiler: 


1. The TRANSIENT attribute can be 
specified only for RECORD KEYED 
BUFFERED files with either the INPUT 
or the OUTPUT attribute. 


2. The ENVIRONMENT attribute with one of 
the two teleprocessing format options 
(б and R) must be declared for 
TRANSIENT files. 


3. Input сап be specified only by a READ 
statement with the KEYTO option and 
either the INTO option or the SET 
option. 


ц. Output сап be specified only by a 
WRITE statement or a LOCATE statement, 
either of which must have the KEYFROM 
option. 


5. The EVENT option is not permitted 
since TRANSIENT files are always 
BUFFERED. 
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6. The ‘data set' associated with a 
TRANSIENT file is in fact a queue of 
messages maintained automatically in 
main storage by a separate message 
control program using the QTAM (Queued 
Telecommunications Access Method) 
facilities of the operating system. 
The queue is always accessed 
sequentially. 


7. The name or title of a TRANSIENT INPUT 
file must be the name of a recognized 
queue set up by the message control 
program. For TRANSIENT OUTPUT files, 
any name can be declared, since the 
file is reassociated for each output 
operation with a queue determined by 
the terminal name. 


8. The element expression specified in 
the KEYFROM option must have as its 
value a recognized terminal or process 
queue identification. 


Variables 


The maximum number of variables in the 
source program depends on the total size of 
the dictionary, which (for NOEXTDIC) is 
restricted to approximately 65,000 bytes. 
This is equivalent to a restriction of 
roughly 1,200 variables for a scientific 
user and to 1,000 for a commercial user. 

In computing these figureas a reasonable 
allowance has been made for constants, 
Statement labels, and other items which may 
require dictionary entries. 


If the EXTDIC option is specified, the 
maximum size of the dictionary is 
approximately 1.5 times 65,000 bytes for a 
block size of 1K, and approximately 3.5 
times 65,000 bytes for other block sizes. 


The figures for variables are 
necessarily approximate, since the size of 
a dictionary entry varies with the type of 
variable, length of identifier, whether it 
is a structure element, and so on. 


Variables at Compile-Time 


The maximum number of compile-time 
variables which can be used in a program 
depends on the total size of the 
dictionary, which (for NOEXTDIC) is 
restricted to 65,000 bytes. Assuming an 
average dictionary entry size of 28 bytes, 
this restricts the processor to 
approximately 2,300 items. An entry is - 
made in the dictionary for each macro 
variable, macro procedure name, INCLUDE 
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identifier, macro label, and unique 
compile-time constant. In addition, two 
dictionary entries are created for each 
iterative DO, one for each THEN or ELSE 
clause, and one for each compile-time 
procedure. Error message references are 
also entered into the dictionary. The 
dictionary is cleared at the end of 
compile-time processing; it is therefore 
unnecessary to keep the above 
considerations in mind if estimating 
available dictionary space during actual 
program compilation. Under EXTDIC the 
number of variables can be increased by a 
factor of 1.5 for 1K blocks, or 3.5 for 
largér block sizes. 


VARYING Attribute T 


The only form of varying strings permitted 
in the INTO or FROM options in RECORD I/O 
are unsubscripted level 1 varying strings 
that are not members of arrays or 
structures. 


Varying Strings passed as Arquments 


If a structure passed as an argument 
includes a varying string, the length of 
the string cannot be changed within the 
invoked procedure unless a dummy argument 
is created. 


Example: 


DCL 1 P(10), 
2 Q(10), 
3 R FIXED(5,0), 
3 8 CHAR(5) VAR, 
2 T FIXED(5,0); 


/*INVALID*/ 

/*VALID; ARRAY OF 
STRUCTURES PASSED 
WITH REQUIRED 
SUBSCRIPTS*/ 


CALL PROC1(P.Q(4,4)); 
CALL PROC1(P.0,4,4); 


WAIT Statement 


If the user wishes to specify more than one 
event name in a WAIT statement, the 
multiple-wait option must have been 
specified at SYSGEN time. 


If a WAIT statement is executed and the 
events required to satisfy the WAIT contain 
a mixture of I/O and non-I/O events all 
non-I/O events will be set complete before 
any of the I/O events. 


48-Character Set is undefined and may not, therefore, Бе 
what the user intended. 


48-character set 'reserved' words (e.g., 

GET, LE, CAT, etc.,) must be preceded and A record containing part or all of a 
followed by a blank or a comment. If they 48-character-set reserved word must be 3 
are not, the interpretation by the compiler Characters or more in length. 
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Source Program Diagnostic Messages: 


All source program diagnostic messages 
produced are written in a group following 
the source program listing and any other 
listings specified as a parameter on the 
EXEC statement card. 


Each message number is of the form 
IEMnnnnI, where the code ТЕМ indicates the 
PL/I (F) compiler, and nnnn the number of 
the message. The letter I is a system 
standard action code indicating an 
informative message for the programmer. 


There are four types of diagnostic 
. message: warning, error, severe error, and 
termination error. 


A Warning is a message that calis 
attention to a possible error, although the 
Statement to which it refers is 
syntactically valid. In addition to 
alerting the programmer, it may assist him 
in writing more efficient programs in the 
future. 


An Error message describes an attempt to 
correct an erroneous statement; the 
programmer is informed of the correction. 
Errors do not normally terminate processing 
of the text. 


A Severe error message indicates an 
error which cannot be corrected by the 
compiler. The incorrect section of the 
program is deleted, but compilation is 
continued. Where reasonable, the ERROR 
condition will be raised at object time, if 
execution of an incorrect source statement 
is attempted. 


A Termination error message describes an 
error which, when discovered, forces the 
termination of the compilation. 


The choice of the severity level at and 
above which diagnostic messages appear on 
the output is an option which may be 
selected by the programmer.  FLACW is 
assumed if no level is specified. 


In the list of diagnostic messages 
below, the abbreviations W, E, S, and T, 
respectively, are used to indicate the 
severity of the message, and appear 
immediately before the number of the 
message. They do not appear in this way in 
the compiler output listings; instead, the 
messages are printed in separate groups 
according to severity. 


Appendix K: Diagnostic Messages 


In the following text, messagés are 
followed where necessary by an explanation, 
a description of the action taken by the 
system, and the response required from the 
user. "Explanation" and "System Action" 
are given only when this information is not 
contained in the text of the message. When 
no "Programmer Response" is stated 
explicitly, the programmer should assume 
that he must correct the error in his 
source program unless the action taken by 
the system makes it unnecessary for him to 
do so. However, even when system action 
successfully corrects an error, the 
programmer should remember that if he 
subsequently recompiles the same program, 
he will get the same diagnostic message 
again unless he has corrected the source 
error. 


If a problem arises in using the PL/I 
(F) Compiler, do the following before 
calling IBM for programming support: 


e If the compiler preprocessor has been 
used and the problem occurs in the 
processor stage, use the "МАСОК! option 
to obtain the macro deck output; this 
ensures that source code from INCLUDE 
libraries is available. Otherwise, 
retain the source input to the 
compiler. (Note: if the problem occurs 
in the preprocessor stage, ensure that 
all source data in libraries as well as 
the primary input is available.) 


e Obtain listings of SYS1.LINKLIB and of 
SYS1.PL1LIB, and listings of program 
temporary fixes (PTF's) using IMAPTFLS 
against these libraries. 


e Specify MSGLEVEL-(1,1) on the job 
Statement. 


e Include a SYSUDUMP DD statement for the 
failing job step. 


e If the problem is associated with a 
compiler termination message, recompile 
with compiler options 'S,DP-(PIE,Z22)' 
to obtain a formatted dump of the 
compiler. 


Note: It may be necessary to override the 
default queue space for SYSOUT for the 
SYSPRINT data set in order to prevent a 
"B37" ; abend. 


e.g. //PLIL.SYSPRINT DD SYSOUT-A, 


SPACE= (629, (2000, 20) ) 
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E IEMOO03I 


E ІЕМ0004Т 


E ІЕМ0005І 


E IEMOO06I 
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INVALID PREFIX OPERATOR IN 


STATEMENT NUMBER xxx. REPLACED 
BY PLUS. 
Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPERATOR .NOT. IN STATEMENT 
NUMBER xxx USED AS AN INFIX 
OPERATOR. IT HAS BEEN REPLACED 
BY .NE. 


Probable 
program 


Programmer Response: 
user error. Correct 


and recompile. 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED 
AFTER SINGLE PARENTHESIZED 
EXPRESSION IN STATEMENT NUMBER 
XXX 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED AT 


END OF SUBSCRIPT, ARGUMENT OR 
CHECK LIST IN STATEMENT NUMBER 
XXX 


Programmer Response:  Pxobable 
user error. Correct program 
and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


If the problem . 


S IEMOO07I 


E ІЕМ00081 


W IEM0009I 


E ІЕМ00101 


e Have the source program 
listing available. 


IDENTIFIER MISSING IN STATEMENT 
NUMBER ххх . A DUMMY 
IDENTIFIER HAS BEEN INSERTED. 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED AT 
END OF CALL ARGUMENT LIST OR 
OTHER EXPRESSION LIST IN 
STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


A LETTER IMMEDIATELY FOLLOWS 
CONSTANT IN STATEMENT NUMBER 
xxx. AN INTERVENING BLANK IS 
ASSUMED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
IDENTIFIER yyyy IN OR NEAR 
STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN SHORTENED. 


Explanation: Implementation 
restriction. Identifiers may 


not exceed 31 characters in 
length. 


System Action: Identifier has 
been shortened by concatenating 
first 16 characters with last 
15. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


W ТЕМ00111 


E ІЕМ00121 


E IEMOO13I 


E IEMOOL4SI 


E IEMOOLSI 


* Have the source program 
listing available. 


CONSTANT IMMEDIATELY FOLLOWS 
IDENTIFIER IN STATEMENT NUMBER 
XXX. AN INTERVENING BLANK IS 
ASSUMED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMOO16I 


e Have the source program 
listing available. 


EXPONENT MISSING IN 
FLOATING-POINT CONSTANT 
BEGINNING yyyy IN STATEMENT 
NUMBER xxx . ZERO HAS BEEN 
INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMOO17I 


e Have the source program 
listing available. 


INTEGER yyyy TOO LONG IN 
STATEMENT NUMBER xxx . IT HAS 
BEEN TRUNCATED ON THE RIGHT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMOO18I 


e Have the source program 
listing available. 


EXPONENT TOO LONG IN 
FLOATING-POINT CONSTANT 
BEGINNING yyyy IN STATEMENT 
NUMBER xxx . IT HAS BEEN 
TRUNCATED. 

Programmer Responses Probable E IEMOO19I 
user error. Correct program 

and recompile. If the problem 

recurs, do the following before 

calling IBM for programming 

support: 


e Have the source program 
listing available. 


SOLITARY DECIMAL POINT FOUND IN 
OPERAND POSITION IN STATEMENT 
NUMBER ххх. А FIXED-POINT 
ZERO HAS BEEN INSERTED. 
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Programmer Responses  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FLOATING-POINT CONSTANT 
BEGINNING yyyy IN STATEMENT 
NUMBER xxx IS TOO LONG AND HAS 
BEEN TRUNCATED ON THE RIGHT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ZERO INSERTED IN FLOATING-POINT 
CONSTANT BEGINNING .E IN 
STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ZERO INSERTED IN PENCE FIELD OF 
STERLING CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 


Programmer Responses:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


POUNDS FIELD IN STERLING 
CONSTANT BEGINNING yyyy IN 

STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN TRUNCATED. 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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E ІЕМ00201 


E ІЕМ00211 


E ІЕМ00221 


Е IEM00231 


СЕ IEMOO2UI 
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ZERO INSERTED IN POUNDS FIELD 
OF STERLING CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DECIMAL POINT IN EXPONENT FIELD 


OF CONSTANT BEGINNING yyyy IN 
STATEMENT NUMBER xxx . FIELD 
TRUNCATED AT DECIMAL POINT. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DECIMAL PENCE TRUNCATED IN 
STERLING CONSTANT BEGINNING 
уууу STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LETTER L MISSING FROM STERLING 
CONSTANT BEGINNING yyyy IN 
STATEMENT NUMBER xxx 


System Action: None 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SHILLINGS FIELD TRUNCATED IN 
STERLING CONSTANT BEGINNING 
yyyy IN STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 


E IEMOO25I 


E IEMOO261 


E IEMOO27I 


S ІЕМ0028І 


S IEMOO29I 


calling IBM for programming 
support: 


e Have the source program 
listing available. 


ZERO INSERTED IN SHILLINGS 

FIELD OF STERLING CONSTANT 

BEGINNING yyyy IN STATEMENT 
NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER IN APPARENT 
BIT STRING. yyyy IN STATEMENT 
NUMBER xxx . STRING TREATED AS 
A CHARACTER STRING. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FIXED-POINT CONSTANT BEGINNING 
уууу iN STATEMENT NUMBER xxx 
HAS BEEN TRUNCATED ON THE 
RIGHT. | 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL REFERENCED ON END 
STATEMENT NUMBER xxx CANNOT BE 
FOUND. END TREATED AS HAVING 
NO OPERAND. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID CHARACTER IN BINARY 
CONSTANT IN STATEMENT NUMBER 


S ТЕМООЗОТ 


S ТЕМООЗ1Т 


Е ТЕМООЗЗТ 


, user error. 


Programmer Response: 


XXX . CONSTANT TREATED AS 
DECIMAL CONSTANT. 


Programmer Response:  Probable 
Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: | 


e Have the source program 
listing available. 


POINTER QUALIFIER FOLLOWS 
EITHER A SUBSCRIPT OR ANOTHER 
POINTER QUALIFIER IN STATEMENT 
NUMBER ххх. 


System Action: As stated ina 
further message referring to 
the same statement. 


Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


OPERAND MISSING IN OR FOLLOWING 
STATEMENT NUMBER ххх. DUMMY 
OPERAND INSERTED. 


Explanation: Something invalid 
has been found in an 
expression, or where an 
expression was expected but not 
found. In order that further 
diagnosis can be made, the 
compiler has inserted a dummy 
operand. This may cause 
further error messages to 
appear for this statement. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN INVALID PICTURE CHARACTER 
IMMEDIATELY FOLLOWS TEXT yyyy 
IN STATEMENT NUMBER xxx. THE 
PICTURE HAS BEEN TRUNCATED AT 
THIS POINT. 


Programmer Response: Probable 
user error. Correct program 

and recompile. If the problem 
recurs, do the following before 


W IEMOO3UI 


E ІЕМ00351І 


E IEMOO37I 


E IEMOO38I 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


A LETTER IMMEDIATELY FOLLOWS A 
CONSTANT AT nnnn SEPARATE 
POSITION(S) IN STATEMENT NUMBER 
xxx. AN INTERVENING BLANK HAS 
BEEN ASSUMED IN EACH CASE. 


Programmer Response: Probable 
user error. Check that the 


system action will have the 
required effect. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


е Have the source program 
listing available. 


LETTER F IS NOT FOLLOWED BY 
LEFT PARENTHESIS IN PICTURE IN 


STATEMENT NUMBER xxx. ONE HAS 
BEEN INSERTED. 
Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ZERO INSERTED IN SCALING FACTOR 
IN PICTURE yyyy IN STATEMENT 
NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


ә Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED 
AFTER SCALING OR REPLICATION 
FACTOR IN PICTURE yyyy IN 
STATEMENT NUMBER ххх 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





ә Have the source program 
listing available. 
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E IEMOO39I 


E ІЕМ00401І 


S IEMOOU3I 


E IEMOOUUI 
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NO CHARACTER FOLLOWS 
REPLICATION FACTOR IN PICTURE 
yyyy IN STATEMENT NUMBER xxx. 
THE PICTURE HAS BEEN TRUNCATED 
AT THE LEFT PARENTHESIS OF THE 
REPLICATION FACTOR. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


A REPLICATION FACTOR OF 1 HAS 
BEEN INSERTED IN PICTURE yyyy 
IN STATEMENT NUMBER xxx 


Programmer Responses: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER xxx 


Explanation: Right parenthesis 
missing from length attached to 
character or bit string. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER ххх 
PRECISION NOT AN INTEGER 


Explanation: Precision should 
be an unsigned integer 


System Action: The action 
taken depends on whether the 
precision is found in a DECLARE 
Statement or a PROCEDURE 
Statement. A further message 
will be produced. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMOOUSI 


E IEMOO46I 


E IEMOOUS8I 


E IEMOO49I 


e Have the source program 
listing available. 


і 


. ZERO INSERTED ІМ FIXED 


PRECISION SPECIFICATION IN 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED 
AFTER PRECISION SPECIFICATION 
IN STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
FILE NAME LIST IN STATEMENT 
NUMBER xxx | 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE COMMENT FOLLOWING THE 
LOGICAL END OF PROGRAM HAS NOT 
BEEN TERMINATED. 


Explanation: A /* was found 
following the logical end of 
the program and was interpreted 
as the start of a comment, but 
end-of-file was reached before 
the comment was terminated. 


System Action: All text 
following the /* is read as a 
comment. 


Programmer Response: Probable 
user error. Check if this is a 


delimiter in the wrong column 
of the record. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


S ТЕМ00501І 


W ІЕМ00511 


S ІЕМ00521 


М IEM0053I 


5 ІЕМ0058І 


е Have the source program 
listing available. 


INVALID STATEMENT LABEL 
CONSTANT IN LABEL ATTRIBUTE IN 
STATEMENT NUMBER xxx. THE 
STATEMENT LABEL. CONSTANT LIST 
HAS BEEN DELETED. 


Programmer Response:  Probable. 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MISSING RIGHT PARENTHESIS 
INSERTED FOLLOWING STATEMENT 
LABEL CONSTANT IN LABEL 
ATTRIBUTE IN STATEMENT NUMBER 
XXX 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID ATTRIBUTE IN RETURNS 
ATTRIBUTE LIST IN STATEMENT 
NUMBER xxx. THE INVALID 
ATTRIBUTE HAS BEEN DELETED FROM 
THE LIST. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SURPLUS COMMA HAS BEEN FOUND IN 
DECLARE OR ALLOCATE STATEMENT 
NUMBER xxx. THIS COMMA HAS 
BEEN DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


ILLEGAL FORM OF CALL STATEMENT. 
STATEMENT NUMBER xxx DELETED. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
W IEMOO55I LABEL OR LABELS ON DECLARE 
STATEMENT NUMBER xxx HAVE BEEN 
IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
E ІЕМ0056І NULL PICTURE FORMAT ITEM IN 
STATEMENT NUMBER xxx. THE 
CHARACTER 9 HAS BEEN INSERTED 
IN THE PICTURE. 


Explanation: The null picture 
may be the result of the 
compiler truncating an invalid 
picture. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 

E ІЕМ0057І INVALID CHARACTER FOLLOWING 
ITERATION FACTOR IN PICTURE 
BEGINNING yyyy IN STATEMENT 
NUMBER xxx. THE PICTURE HAS 
BEEN TRUNCATED AT THE LEFT 
PARENTHESIS OF THE ITERATION 
FACTOR. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
E IEMOO581 ITERATION FACTOR IN PICTURE 
BEGINNING yyyy NOT AN UNSIGNED 
INTEGER IN STATEMENT NUMBER 
ххх. THE PICTURE HAS BEEN 
TRUNCATED AT THE LEFT 
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E ІЕМ00591 


E IEMOO6OI 


E IEMOO61I 


W IEMOO62I 
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PARENTHESIS OF THE ITERATION 
FACTOR. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MISSING RIGHT PARENTHESIS 
INSERTED IN POSITION ATTRIBUTE 
IN STATEMENT NUMBER xxx. 


Progxammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


POSITION MISSING IN POSITION 
ATTRIBUTE IN STATEMENT NUMBER 
XXX. | POSITION OF 1 INSERTED. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MISSING LEFT PARENTHESIS 
INSERTED IN POSITION ATTRIBUTE 
IN STATEMENT NUMBER XXx. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for pregeeuming 
support: 


e Have the source program 
listing available. 


THE ATTRIBUTE 'PACKED' IN 
DECLARATION STATEMENT NUMBER 
xxx IS NOW OBSOLETE, AND HAS 
BEEN IGNORED. 


PACKED has been 
the 


Explanation: 
removed from the language; 


complementary attribute to 
ALIGNED is now UNALIGNED. 


System Action: Since PACKED 
applied only to arrays and 
major structures, the new 


E IEMOO63I 


5 IEMOO6UI 


E IEMOO67I 


T ІЕМ00691 


alignment defaults will be 
compatible with those of 
earlier versions of the 
compiler, except for bit string 
arrays that are not members of 
structures. 


Programmer Response:  Probable 
user error. Correct source, 


and recompile if necessary. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


MISSING LEFT PARENTHESIS 
INSERTED IN RETURNS STATEMENT 
NUMBER ххх. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


ә Have the source program 
listing available. 


ILLEGAL STATEMENT FOLLOWS THE 
THEN IN STATEMENT NUMBER XXX. 
SEMICOLON HAS BEEN INSERTED 
AFTER THE THEN. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


EQUAL SYMBOL HAS BEEN INSERTED 
IN Do STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM CONTAINS TOO 
MANY BLOCKS. 
System Action: Compilation is 
terminated 


Programmer Responses Probable 
user error. Rewrite program 


Т ТЕМОО7ОТ 


T ІЕМ00711 


with fewer blocks, or divide 
into more than one separate 
compilation. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S, DP=(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages. ) 


e Have the associated job 
stream and source program 
listing available. 


BEGIN STATEMENT NUMBER xxx IS 
NESTED BEYOND THE PERMITTED 
LEVEL. COMPILATION TERMINATED. 


Programmer Response: Probable 
user error. Reduce level of 


nesting of blocks to 50 or 
less. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages. ) 


e Have the associated job 
stream and source program 
listing available. 


TOO MANY PROCEDURE, BEGIN, 
ITERATIVE DO, ON STATEMENTS IN 


THIS PROGRAM. COMPILATION 
TERMINATED. 
Explanation: There is an 


implementation restriction on 
the number of blocks in a 
compilation. Refer to Appendix 
J of this publication for 
details. 


Programmer Response:  Probable 
user error.  Subdivide program 


into two or more compilations. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 
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e Have the associated job 
Stream and source program 
listing available. 


DO STATEMENT NUMBER xxx 
REPLACED BY BEGIN STATEMENT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THEN INSERTED IN IF STATEMENT 
NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO STATEMENT FOLLOWS THEN IN IF 


STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO STATEMENT FOLLOWS ELSE IN OR 
FOLLOWING STATEMENT NUMBER XXX 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ELSE DELETED IN OR FOLLOWING 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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IMPLEMENTATION RESTRICTION. 
TOO MANY CHARACTERS IN INITIAL 
LABEL ON STATEMENT NUMBER ххх. 
LABEL IGNORED. 


Explanation: There is an 
implementation restriction on 
the number of characters in the 
subscript of a subscripted 
identifier. The maximum 
permissible number is 225. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


EQUAL SYMBOL HAS BEEN INSERTED 
IN ASSIGNMENT STATEMENT NUMBER 
ххх 


Programmer Response; Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABELS OR PREFIX OPTIONS BEFORE 
ELSE TRANSFERRED TO STATEMENT 
NUMBER xxx 


Explanation: Labels or prefix 
options illegal before ELSE and 
therefore transferred to 
following statement. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPERAND MISSING IN CHECK LIST 
IN OR FOLLOWING STATEMENT 
NUMBER xxx. DUMMY INSERTED. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


S ІЕМ0083І 
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ON-CONDITION INVALID OR MISSING 
IN STATEMENT NUMBER xxx. ON 
ERROR HAS BEEN ASSUMED. 


System Action: ON ERROR 
inserted in place of invalid 
condition 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE I/O ON-CONDITION IN 
STATEMENT NUMBER xxx HAS NO 


FILENAME FOLLOWING IT. SYSIN 
IS ASSUMED. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COLON MISSING AFTER PREFIX 
OPTION IN OR FOLLOWING 


STATEMENT NUMBER xxx. ONE HAS 
BEEN ASSUMED. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THERE ARE NO COMPLETE 
STATEMENTS IN THIS PROGRAM. 
COMPILATION TERMINATED. 


Programmer Responses Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP=(PIE,2Z)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 
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e Have the associated job 
Stream and source program 
listing available. 


RECORD IN OR FOLLOWING 
STATEMENT NUMBER xxx IS SHORTER 
THAN THE SPECIFIED SOURCE 
START. THE OUTPUT RECORD HAS 
BEEN MARKED WITH AN ASTERISK 
AND IGNORED. ! 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL ON STATEMENT NUMBER xxx 
HAS NO COLON. ONE IS ASSUMED. 


Explanation: The compiler has 
encountered an identifier which 
appears to be a statement 
label, but without a colon. 
System Action: A colon is 
inserted 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SEMI-COLON NOT FOUND WHEN 
EXPECTED IN STATEMENT NUMBER 
XXX . ONE HAS BEEN INSERTED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID CHARACTER HAS BEEN 
REPLACED BY BLANK IN OR 
FOLLOWING STATEMENT NUMBER xxx. 
THE CONTAINING OUTPUT RECORD IS 
MARKED BY AN ASTERISK. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


S IEMOO99I 
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e Have the source program 
listing available. 


LOGICAL END OF PROGRAM OCCURS 
AT STATEMENT NUMBER xxx. THIS 
STATEMENT HAS BEEN IGNORED SO 
THAT SUBSEQUENT STATEMENTS MAY 
BE PROCESSED. 


Explanation: Although the 
compiler has detected the end 
of the program, there is more 
text following it. The 
programmer appears to have made 
an error in matching END 
statements with PROCEDURE, 
BEGIN, DO or ON statements. 


System Action: The END 
statement is ignored 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


END OF FILE FOUND IN OR AFTER 
STATEMENT NUMBER xxx, BEFORE 
THE LOGICAL END OF PROGRAM. 


System Action: If the 
statement is incomplete, it is 
deleted. Whether or not the 
statement is incomplete, the 
required number of END 
statements are added to the 
program so that compilation can 
continue. 


Programmer Response: Probable 
user error. Correct the source 


code. Possible causes of this 
error include: 


1. Unmatched quote marks 


2. Insufficient END 
statements 


3. Omission of final 
semicolon. 


If the problem recurs, do the 
following before calling IBM 
for programming supports: 


e Have the source program 
listing available. 


PARAMETER MISSING IN STATEMENT 


NUMBER xxx . A DUMMY HAS BEEN 
INSERTED. 
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Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL MISSING FROM PROCEDURE 
STATEMENT NUMBER xxx. A DUMMY 
LABEL HAS BEEN INSERTED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


е Have the source program 
listing available. 


LABEL MISSING FROM ENTRY 
STATEMENT NUMBER XXx 


Programmer Response: Prokable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL STATEMENT FOLLOWS ELSE 
IN STATEMENT NUMBER xxx 


System Action: Null statement 


inserted 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL STATEMENT FOLLOWS ON IN 
STATEMENT NUMBER xxx 


Null statement 


System Action: 
inserted 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


T IEMO1061 
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IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM CONTAINS TOO 
MANY BLOCKS. 


System Action: Compilation is 


terminated 


Proqrammer Response:  Probable 
user error.  Rewrite program 


with fewer blocks, or divide 
into more than one separate 
compilation. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRIC TIPN. 
STATEMENT NUMBER ххх,15$ TOO 
LONG. THIS STATEMENT MAY 


. CONTAIN UNMATCHED QUOTE MARKS. 


Programmer Response: Probable 
user error. Subdivide 
statement and recompile. If 
the problem recurs, do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP=(PIE,22)" to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnIi messages.) 


e Have the associated job 
stream and source program 
listing available. 


ENTRY STATEMENT NUMBER xxx IN 
AN ITERATIVE DO GROUP HAS BEEN 
DELETED. 


Programmer Responses:  Probable 


user error. Correct prograin 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: ^ 


e Have the source program 
listing available. 


S IEMO109I 


S IEMO111I 


t 


S IEM0112I 


5 


S IEMO113I 


E IEMO11UI 


"Programmer Response: 


TEXT BEGINNING yyyy IN OR 
FOLLOWING STATEMENT NUMBER xxx 
HAS BEEN DELETED. 


Explanation: The source error 
is detailed in another message 
referring to the same 
statement. 


Programmer Response: Probable E IEMO115I 
user error. Correct program 

and recompile. ТЕ the problem 

recurs, do the following before 

calling IBM for programming 


support: | 


e Have the source program 
listing available. 


FIRST STATEMENT NOT A PROCEDURE 
STATEMENT. A DUMMY PROCEDURE 
STATEMENT HAS BEEN INSERTED‘. 

| E IEMO116I 
Probable 

user error. Correct program 

and recompile. If the problem 

recurs, do the following before 

calling IBM for programming 

support: 


e Have the source program 
listing available. 
i 


1 
ENTRY STATEMENT NUMBER xxx IN 
BEGIN BLOCK HAS BEEN DELETED. 


x 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMO117I 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER xxx 


Explanation: Parenthesized 
list in ON statement is either 
not closed or contains an error 
and has been truncated. 

S IEMO118I 
Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: : 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
PREFIX OPTION IN OR FOLLOWING 
STATEMENT NUMBER xxx 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LEFT PARENTHESIS INSERTED AFTER 
WHILE IN STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PREFIX OPTION FOLLOWS LABEL IN 


STATEMENT NUMBER xxx. PREFIX 
OPTION IS IGNORED. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA ATTRIBUTE LIST IN 
PROCEDURE OR ENTRY STATEMENT 
NUMBER xxx IS NOT PRECEDED BY 
RETURNS ATTRIBUTE AND IS NOT 
PARENTHESIZED. RETURNS AND 
PARENTHESES HAVE BEEN ASSUMED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OFFSET ATTRIBUTE NOT FOLLOWED 
BY PARENTHESIZED BASED VARIABLE 


IN STATEMENT NUMBER xxx. THE 
ATTRIBUTE IS IGNORED. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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Programmer Response: 


THE RETURNS ATTRIBUTE IN 
PROCEDURE OR ENTRY STATEMENT 
NUMBER xxx IS NOT FOLLOWED BY A 
PARENTHESIZED DATA ATTRIBUTE 
LIST. RETURNS HAS BEEN 
IGNORED. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA ATTRIBUTE LIST FOLLOWING 
RETURNS IN PROCEDURE OR ENTRY 
STATEMENT NUMBER xxx IS NOT 
PARENTHESIZED.  PARENTHESES 
HAVE BEEN ASSUMED. 


Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


THE ATTRIBUTE USES OR SETS IN 
STATEMENT NUMBER xxx IS 
OBSOLETE AND HAS BEEN IGNORED 
TOGETHER WITH ITS PARENTHESIZED 
ITEM LIST. | 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: m 


e Have the source program 
listing available. 


THE ATTRIBUTE NORMAL OR 
ABNORMAL IN STATEMENT NUMBER 
xxx IS OBSOLETE AND HAS BEEN 
IGNORED. | 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE DATA ATTRIBUTE LIST IN 
PROCEDURE OR ENTRY STATEMENT 
NUMBER xxx HAS NO CLOSING 


S ІЕМ0124І 
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PARENTHESIS. ONE HAS BEEN 


ASSUMED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID ATTRIBUTE IN DECLARE OR 
ALLOCATE STATEMENT NUMBER xxx. 
ATTRIBUTE TEXT DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID USE OF LABEL yyy ON 
ON-UNIT BEGINNING AT STATEMENT 
XXX. LABEL HAS BEEN DELETED. 


Explanation: An on-unit cannot 
be referenced by a label. 


System Action: The label is 


ignored. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx HAS TOO 
MANY ERRORS TO BE INTERPRETED. 
THE STATEMENT HAS BEEN DELETED. 


Programmer Responses Probable 
user errors. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID TEXT IN PREFIX OPTIONS 
LIST. THE TEXT BEGINNING yyy 

TO THE END OF THE OPTIONS LIST 
HAS BEEN IGNORED. 


S IEMO128I 
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Programmer Response: 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LENGTH OF BIT OR CHARACTER 
STRING MISSING IN STATEMENT 
NUMBER xxx. LENGTH 1 INSERTED. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID WAIT STATEMENT NUMBER 
xxx DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPERAND MISSING. COMMA DELETED 
IN WAIT STATEMENT NUMBER xxx 


Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error.. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


DUMMY OPERAND INSERTED IN 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


S IEMO134I 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
TOO MANY LEVELS OF REPLICATION 
IN INITIAL ATTRIBUTE IN 
STATEMENT NUMBER xxx. THE 
ATTRIBUTE HAS BEEN DELETED. 


Explanation: The 
implementation restriction on 
levels of nesting has been 
contravened. For details, 
refer to Appendix J of this 
publication. 


Programmer Response:  Probable 
user error. Rewrite INITIAL 


attribute with lower level of 
replication. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN EXPRESSION APPEARS ILLEGALLY 
ON THE LEFT HAND SIDE OF AN 
ASSIGNMENT STATEMENT. 

STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


'IN' CLAUSE IN STATEMENT NUMBER 
xxx HAS NO ASSOCIATED 'SET' 
CLAUSE. 


Explanation: An IN clause must 
be accompanied by a SET clause 
in the same statement. 


System Action: The IN clause 


is ignored 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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SOLITARY I FOUND WHERE A 
CONSTANT IS EXPECTED IN INITIAL 
ATTRIBUTE IN STATEMENT NUMBER 
ххх. FIXED DECIMAL IMAGINARY 
11 HAS BEEN ASSUMED. 


Explanation: The programmer 
has initialized an element 
using the variable I where the 
constant 11 was expected. 


System Action: 1I is assumed 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


TEXT IMMEDIATELY FOLLOWING yyyy 
IN INITIAL ATTRIBUTE IS 
ILLEGAL. INITIAL ATTRIBUTE 
DELETED IN STATEMENT NUMBER ххх 


Explanation: A language 
feature has been used that is 
not supported by this version 
of the compiler. For details, 
refer to Appendix J of this 
publication. Although the 
message states that the error 
follows the quoted text, the 
quoted text may itself be 
invalid, and the compiler may 
have attempted to correct the 
source error. In this case, 
there will usually be another 
diagnostic message associated 
with the statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO IDENTIFIER FOUND IN DECLARE 
STATEMENT NUMBER XXX. . 
STATEMENT REPLACED BY NULL 
STATEMENT. 


Explanation: Either no 
identifiers appear in the 
DECLARE statement or, as a 
result of previous compiler 
action, all identifiers have 
been deleted from the 
statement. 


S IEMO1UUI 


5 ІЕМ0145І 


S ІЕМ0147І 


System Action: 


Null statement 
assumed. | 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RETURNS ATTRIBUTE IS NOT 
FOLLOWED BY A DATA DESCRIPTION 
IN STATEMENT NUMBER xxx. THE 
RETURNS ATTRIBUTE HAS BEEN 
DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DUMMY IDENTIFIER INSERTED IN 
GENERIC ATTRIBUTE LIST IN 
STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


THE USE OF REFER IN STATEMENT 
NUMBER xxx IS EITHER INVALID OR 
IS NOT IMPLEMENTED IN THIS 
RELEASE 


Explanation: The 
implementation of the REFER 


option is restricted; see 
Appendix J, 'Implementation 
Conventions and Restrictions'. 


System Action: Ignore the 
REFER clause. A further 


message identifying the invalid 
text will usually accompany 
this message. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 
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e Have the source program 
listing available. 


LEFT PARENTHESIS MISSING IN 
STATEMENT NUMBER Xxx 


System Action: See further 
messages relating to this 
Statement 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the ргођ1еш 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMMA HAS BEEN DELETED FROM 
LIST IN STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATEMENT NUMBER xxx IS AN 
INVALID FREE STATEMENT. THE 
STATEMENT HAS BEEN DELETED. 


Explanation: The format of the 
statement is invalid 


Programmer Response: Probable 
user error. Correct program 


and recompile, If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SEMI-COLON INSERTED IN 
STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
‘listing available. 


TEXT BEGINNING yyyy IN 
STATEMENT NUMBER xxx HAS BEEN 
DELETED. 
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Explanation: The source error 
may be detailed in another 
message referring to the same 
statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
"listing available. 


THE ATTRIBUTED BASED HAS BEEN 
ASSUMED IN STATEMENT NUMBER xxx 
WHERE CONTROLLED WAS SPECIFIED. 


Explanation: The PL/I feature 
CONTROLLED (pointer) has been 
changed to BASED (pointer). 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION IN 
STATEMENT NUMBER xxx. BASED 
MUST BE FOLLOWED BY AN 
IDENTIFIER IN PARENTHESIS. 


System Action: Text is 
deleted. See further error 


message for this statement. 


Programmer Response: Probable 
user error. Correct source 


statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ZERO STRUCTURE LEVEL NUMBER 
DELETED IN DECLARE STATEMENT 
NUMBER xxx 


Explanation: Zero level number 
not allowed 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


. æ' Have the source program 
listing available. 
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5 IEMO163I 


S IEMO166I 


E ІЕМ01721 


E ІЕМ01801 
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SIGN DELETED PRECEDING 
STRUCTURE LEVEL NUMBER IN 
DECLARE STATEMENT NUMBER xxx 


Explanation: The level number 
must be an unsigned integer 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FORMAT LIST MISSING, (A) 
INSERTED IN STATEMENT NUMBER 
XXX 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


OPERAND MISSING IN GO TO 


STATEMENT NUMBER xxx. DUMMY IS 
INSERTED. 
Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LEFT PARENTHESIS INSERTED IN 
DELAY STATEMENT NUMBER xxx 


Explanation: The expression in 
a DELAY statement should be 
contained in parentheses 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


EQUAL SYMBOL HAS BEEN INSERTED 
IN DO SPECIFICATIONS IN 
STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


E ІЕМ01811 


S IEMO182I 


S IEMO185I 


S ІЕМ0187І 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SEMICOLON INSERTED IN STATEMENT 
NUMBER XXX 


Explanation: An error has been 
discovered. А semi-colon is 
therefore inserted and the rest 
of the statement is skipped. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


TEXT BEGINNING yyyy SKIPPED IN 
OR FOLLOWING STATEMENT NUMBER 
XXX 


Explanation: The source error 
is detailed in another message 
referring to the same 
statement. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPTION IN GET/PUT STATEMENT 
NUMBER xxx IS INVALID AND HAS 
BEEN DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA LIST MISSING IN STATEMENT 
NUMBER xxx. OPTION DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


S IEMO1911 


E IEMO193I 


E ІЕМ0194І 


S IEMO195I 


S IEMO198I 


e Have the source program 
listing available. 
DUMMY OPERAND INSERTED IN DATA S IEMO202I 
LIST IN STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
DATA LIST IN STATEMENT NUMBER 
XXX 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. E IEMO207I 

MISSING RIGHT PARENTHESIS 

INSERTED IN FORMAT LIST IN 

STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. E IEMO208I 

INVALID FORMAT LIST DELETED IN 

STATEMENT NUMBER xxx. (A) 

INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 


listing available. T IEMO209I 


.COMPLEX FORMAT ITEM yyyy IN 


STATEMENT NUMBER xxx IS INVALID 
AND HAS BEEN DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


DEFERRED FEATURE. STATEMENT 
NUMBER xxx NOT IMPLEMENTED IN 
THIS VERSION. 


Explanation: The statement 

referred to is of a type not 
supported by this version of 
the compiler. For details, 

refer to Appendix J of this 

publication. 


System Action: Compilation 
continues 
Programmer Response: Probable 


user error. Rewrite source 
program avoiding use of 
unsupported feature. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


COMMA REPLACED BY EQUAL SYMBOL 
IN ASSIGNMENT STATEMENT NUMBER 
XXX 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 
1 
© Have the source program 
listing available. 


LEFT PARENTHESIS INSERTED IN 
CHECK LIST IN STATEMENT NUMBER 
XXX 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
COMPLEX 


Explanation: The level of 
nesting exceeds the 
implementation restriction. 
Refer to Appendix J of this 
publication for details. 


System Action: Terminates 


compilation 
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Programmer Response:  Probable 
user error. Divide statement 


into two or more statements. 

If the problem recurs, do the 
following before calling IBM 

for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source progxam 
listing available. 


LEFT PARENTHESIS INSERTED IN 
STATEMENT NUMBER xxx 


Programmer Responses  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MULTIPLE TASK OPTIONS SPECIFIED 
IN STATEMENT NUMBER xxx. THE 
FIRST ONE IS USED. 


System Action:  Ignores options 
other than the first 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MULTIPLE EVENT OPTIONS 
SPECIFIED IN STATEMENT NUMBER 
ххх. THE FIRST ONE IS USED. 


System Action: Ignores options 
other than the first 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


E IEMO21UI 


E IEMO216I 


E IEMO217I 


W IEMO218I 


S IEMO219I 


MULTIPLE PRIORITY OPTIONS 
SPECIFIED IN STATEMENT NUMBER 
XXX. THE FIRST ONE IS USED. 


System Action:  Ignores options 
other than the first 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID EVENT OPTION IGNORED IN 
STATEMENT NUMBER XXX 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: ; 


e Have the source program 
listing available. 


INVALID PRIORITY OPTION IGNORED 
IN STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


REPETITION FACTOR MISSING AFTER 
ITERATION FACTOR IN STATEMENT 
NUMBER xxx. REPETITION FACTOR 
OF 1 INSERTED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


KEYWORD 'CONDITION' NOT 
SPECIFIED IN SIGNAL STATEMENT 
NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


S IEMO220I 


S IEMO221I 


S IEMO222I 


S IEMO223I 


e Have the source program 
listing available. 


IDENTIFIER MISSING OR INCORRECT 
AFTER OPTION IN STATEMENT 
NUMBER xxx. OPTION DELETED. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NUMBER OF LINES NOT GIVEN AFTER 
LINE OPTION IN STATEMENT NUMBER 
XXX. (1) INSERTED. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DEFERRED FEATURE. THE IDENT 
OPTION ON OPEN/CLOSE STATEMENT 
NUMBER xxx IS NOT IMPLEMENTED 
BY THIS VERSION. 


Explanation: A language 
feature has been used that is 
not supported by this version 
of the compiler. Refer to 
Appendix J of this publication 
for details. 


System Action: Option ignored 


Programmer Response; Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


EXPRESSION MISSING AFTER 
IDENT/TITLE/LINESIZE/PAGESIZE 
OPTION IN STATEMENT NUMBER Xxx. 
OPTION DELETED. 


Explanation: No left 
parenthesis found following 


keyword 


Programmer Response:  Probable 
user error. Correct program 

and recompile. If the problem 
recurs, do the following before 


S IEMO22UI 


S IEMO225I 


S IEMO226I 


W IEMO227I 


S IEMO228I 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID OPTION DELETED IN I/O 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available.. 


OPTION AFTER OPEN/CLOSE IN 
STATEMENT NUMBER xxx IS INVALID 
OR MISSING. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


EXPRESSION MISSING AFTER FORMAT 
ITEM IN STATEMENT NUMBER xxx. 
ITEM DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


NO FILE/STRING OPTION SPECIFIED 
IN ONE OR MORE GET/PUT 
STATEMENTS. SYSIN/SYSPRINT HAS 
BEEN ASSUMED IN EACH CASE 


Explanation: One or more GET 
or PUT statements have appeared 
in the program with no 
specified FILE option or STRING 
option. 


System Action: The compiler 
has assumed the appropriate 


default file (SYSIN for GET, 
SYSPRINT for PUT). 


EXPRESSION MISSING AFTER’ OPTION 


IN STATEMENT NUMBER xxx. 
OPTION DELETED. 
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Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FORMAT ITEM IN STATEMENT NUMBER 
xxx IS INVALID AND HAS BEEN 
DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


е Have the source program 
listing available. 


INVALID DATA LIST IN STATEMENT 
NUMBER ххх. STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


MISSING COMMA INSERTED IN DATA 
LIST IN STATEMENT NUMBER xxx 


Explanation: Comma missing 
between elements of a data list 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


KEYWORD DO MISSING IN DATA LIST 
IN STATEMENT NUMBER xxx. DO IS 
INSERTED. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


S IEMO233I 


S IEMO235I 


S IEMO236I 


S ІЕМ02371 


S IEMO238I 


ғ“ 


RETURN STATEMENT NUMBER ххх IS 
WITHIN AN ON-UNIT . IT IS 
REPLACED BY A NULL STATEMENT. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


ARGUMENT OMITTED FOLLOWING yyyy 
OPTION IN STATEMENT NUMBER ххх. 
OPTION DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE OPTION yyyy IN STATEMENT 
NUMBER xxx IS UNSUPPORTED OR 
INVALID. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INSUFFICIENT OPTIONS SPECIFIED 
IN STATEMENT NUMBER xxx. THE 

STATEMENT HAS BEEN REPLACED BY 
A NULL STATEMENT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE LOCATE-VARIABLE IN LOCATE 
STATEMENT NUMBER xxx IS OMITTED 
OR SUBSCRIPTED. THE STATEMENT 
HAS BEEN DELETED. 


Explanation: The omission of 
the locate variable renders the 
Statement meaningless. 
Subscripted locate variables 
are invalid. 


T ТЕМО2%0Т 


E TEMO2411 


S IEM0242I 


System Action: Replaces 
invalid statement with a null 


Statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR IN PHASE CV. 
SCAN CANNOT IDENTIFY DICTIONARY 
ENTRY. 


Explanation: The main scan of 
fifth pass of read-in has found 
something in the dictionary 
which it cannot recognize 
System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


MULTIPLE USE OF A PREFIX OPTION 
HAS OCCURRED IN STATEMENT 
NUMBER xxx. THE LAST NAMED 
OPTION IS USED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PREFIX OPTION INVALID OR 
MISSING IN STATEMENT NUMBER 
XXX. INVALID OPTION DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


T IEMO2H3I 


E IEMO2UAI 


E ІЕМ0245І 


S ІЕМ0247І 
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e Have the source program 
listing available. 


COMPILER ERROR. PHASE CS HAS 
FOUND AN UNMATCHED END. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


CHECK PREFIX OPTION IN 
STATEMENT NUMBER xxx IS NOT 
FOLLOWED BY A PARENTHESIZED 
LIST. THE OPTION HAS BEEN 
IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


A CHECK PREFIX OPTION IS GIVEN 
FOR STATEMENT NUMBER xxx WHICH 
IS NOT А PROCEDURE OR BEGIN. 
THE OPTION HAS BEEN IGNORED. 


Programmer Responses  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ALL SUBSCRIPTED LABELS 
PREFIXING PROCEDURE OR ENTRY 
STATEMENT NUMBER xxx HAVE BEEN 
IGNORED. 


Explanation:  Subscripted 
labels may not be used as 
prefixes on PROCEDURE or ENTRY 
statements. 


Programmer Responses Probable 
user error. Correct program 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER UNABLE TO RECOVER FROM 
I/0 ERROR - PLEASE RETRY JOB. 
System 7ction: Terminates 
compilation 


Programmer Response: Re-attempt 
compilation. If the 


input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
Stream and source program 
listing available. 


THERE ARE NO COMPLETE 
STATEMENTS IN THIS PROGRAM 


Explanation: Compiler cannot 
reconcile END statements with 
Stack entries. Usually caused 
by a program containing only 
comments. 


System Action: 
terminated 


Compilation is 


Programmer Response: Check 
source for completed 


Statements. If these are 
present then do the following 
before calling IBM fox 
programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


5 ІЕМ0257І 


5 ІЕМ0258І 


W ІЕМ0510І 


W ІЕМ05111І 


е Have the associated job 
stream and source program 
listing available. 


DATA DIRECTED I/O LIST IN 
STATEMENT NUMBER xxx CONTAINS 
BASED ITEM 2227 


System Action: Statement will 
be deleted by later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NUMBER OF SUBSCRIPTS SPECIFIED 
FOR zzzz IN STATEMENT NUMBER 
xxx CONFLICTS WITH 
DIMENSIONALITY. DUMMY 
REFERENCE INSERTED. 


System Action: Statement will 
be deleted by later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE TASK OPTION HAS BEEN 
ASSUMED TO APPLY TO THE 
EXTERNAL PROCEDURE STATEMENT 
NUMBER ххх 


Explanation: TASK, EVENT or 
PRIORITY options have been 
detected in a CALL statement, 
but the TASK option has not 
been specified in the external 
procedure. 


System Action: The TASK option 
is correctly applied 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPTIONS MAIN AND/OR TASK ARE 
NOT ALLOWED ON THE INTERNAL 
PROCEDURE STATEMENT NUMBER xxx 


5 IEMOSI2I 


S IEMO513I 


S IEMO524T 


S ІЕМ0515І 


System Action: The invalid 
options are ignored 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx IN INITIAL ATTRIBUTE 
LIST IS NOT A KNOWN LABEL 
CONSTANT AND HAS BEEN IGNORED. 


System Action: Identifier 
changed to * in the list. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


REPEATED LABEL IN SAME BLOCK ON 
STATEMENT NUMBER xxx. LABEL 
DELETED. 


Explanation: A label may not 
be used more than once in the 
same block. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PARAMETER yyyy IN STATEMENT 
NUMBER xxx IS SAME AS LABEL. 
PARAMETER REPLACED BY DUMMY. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
CHARACTER STRING LENGTH IN 
STATEMENT NUMBER xxx REDUCED TO 
32,767. 


5 ІЕМ0516І 


S IEMO517I 


5 IEMOS518I 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL OPTIONS LIST ON 
STATEMENT NUMBER xxx. LIST 
IGNORED. 


System Action: Compiler scans 
for next right bracket. If 
this is not the bracket closing 
the illegal options list, a 
compiler error will probably 
follow. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CONFLICTING ATTRIBUTE DELETED 
IN STATEMENT NUMBER ххх 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
PRECISION TOO LARGE IN 
STATEMENT NUMBER xxx . 
PRECISION GIVEN. 


DEFAULT 


Explanation: If later a valid 
precision is given, this will 
be accepted in place of the 
default. 


System Action: Attribute 
ignored. Attribute test mask 
restored so that later 
attribute will not be found to 
conflict with deleted one. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


337 


5 IEM0519I 


T ІЕМ05201 


S IEMOS21I 


338 


e Have the source program 
listing available. 


ILLEGAL ATTRIBUTE ON STATEMENT 
NUMBER xxx IGNORED. 


Explanation: Only data 
attributes allowed on procedure 


or entry statements. (No 
dimensions allowed). 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR CODE nnnn 


Explanation: A compiler error 


has occurred. 
System Action: Terminates 
immediately 


Programmer Response: По the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INVALID STRING LENGTH IN 
STATEMENT NUMBER xxx. LENGTH 
OF 1 ASSUMED. 


Explanation: Either no length 
has been given or string length 
* has been used in source code. 


System Action:  Assumes length 
of 1 and skips to next 
attribute 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


S IEMO522I 


5 IEMO523I 


S IEMO52UI 
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IMPLEMENTATION RESTRICTION. 
NUMBER OF PARAMETERS IN 
PROCEDURE OR ENTRY STATEMENT 
NUMBER xxx TRUNCATED TO 64. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PARAMETER zzzz IN STATEMENT 
NUMBER xxx APPEARS TWICE. 
SECOND ONE REPLACED BY DUMMY. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER yyyy IN LABEL LIST 
IN STATEMENT NUMBER xxx IS NOT 
A LABEL OR IS NOT KNOWN. 


System Action:  Ignores 


identifier 


Programmer Responses Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
TOO MANY PAIRS OF FACTORED 
ATTRIBUTE BRACKETS FOR THIS 
SIZE OPTION. 


Explanation: Factor bracket 
table has overflowed. 

System Action: Compilation 
terminated 


Programmer Response: Probable 
user error. Recompile using a 
SIZE sufficient to provide a 
larger block size or reduce 
factoring by expanding 
declarations. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


М IEM0526I 


S IEMO527I 


T ІЕМ0528І 


S 


ІЕМ05291 


е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 

S IEMO53O0I 

e Have the associated job 4 

stream and source program 

listing available. 


OPTION MAIN HAS NOT BEEN 
SPECIFIED FOR THE EXTERNAL 
PROCEDURE STATEMENT NUMBER xxx 


IMPLEMENTATION RESTRICTION. 
ARRAY BOUND IN STATEMENT NUMBER 
xxx IS TOO LARGE AND HAS BEEN 
REPLACED BY THE MAXIMUM 
PERMITTED VALUE (32767 OR 
-32768). 


Programmer Response:  Probable 
user error. Correct program 


and recompiie. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
S IEMO532I 
e Have the source program 
listing available. 


COMPILER ERROR CODE nnnn IN 
STATEMENT NUMBER ххх 


Explanation: Compiler error 
found in processing a DECLARE 
statement 


System Action:  Terminates 


compilation 


Do the 
IBM 


Programmer Response: 
following before calling 
for programming support: 


e Recompile the program with 
compiler options S ІЕМ0533І 
'S,DP-(PIE,22)' to obtain a Я 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STRUCTURE LEVEL NUMBER IN 
STATEMENT NUMBER xxx REDUCED TO 
255. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 


recurs, do the following before 5 IEMO53UI 
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"Programmer Responses: 


calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 

TOO MANY LABELS IN LABEL LIST 
IN STATEMENT NUMBER ххх. THE 
LABEL zzzz AND ANY FOLLOWING IT 
HAVE BEEN IGNORED. 


Explanation: There is an 
implementation restriction 
limiting the number of label 
constants following the LABEL 
attribute to 125. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


ILLEGAL ASTERISK AS SUBSCRIPT 
IN DEFINING LIST IN STATEMENT 
NUMBER XXX . LIST TRUNCATED. 


System Action: Compilation 
continues with truncated iSUB 
list, possibly causing cascade 


errors. 


Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
I-SUB VALUE IN STATEMENT NUMBER 
xxx TOO LARGE. REDUCED TO 32. 


Explanation: There is an 
implementation restriction 
limiting the number of 
dimensions to a maximum of 32. 


Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
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STRING LENGTH IN STATEMENT 
NUMBER xxx REDUCED TO 32,767. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx IS NOT A LABEL 
CONSTANT OR IS NOT KNOWN. IT 
IS IGNORED. 


Explanation: Identifiers 
following the LABEL attribute 
must be LABEL constants and 
must be known. 


s 


Programmer_Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
POSITION CONSTANT IN STATEMENT 
NUMBER xxx REDUCED TO 32,767. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
PRECISION SPECIFICATION IN 
STATEMENT NUMBER xxx TOO LARGE. 
DEFAULT PRECISION GIVEN. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





e Have the source program 
listing available. 


ILLEGAL NEGATIVE PRECISION IN 


STATEMENT NUMBER xxx . DEFAULT 
PRECISION GIVEN. 
Programmer Response: Probable 


user error. Correct program 


S ІЕМ0540І 


E IEMOSU1I 


S ІЕМ05421 


T IEMOSU3I 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


* BOUNDS ARE MIXED WITH NON-* 
BOUNDS IN DECLARE STATEMENT 
NUMBER xxx . ALL THE BOUNDS 
ARE MADE *. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LOWER BOUND GREATER THAN ÜPPER 
BOUND IN DECLARE OR ALLOCATE 
STATEMENT NUMBER xxx . THE 
BOUNDS ARE INTERCHANGED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
NUMBER OF DIMENSIONS DECLARED 
TRUNCATED TO 32 IN STATEMENT 
NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
STATEMENT FOUND IN THE DECLARE 
CHAIN. 


Explanation: Compiler error 
found in scanning chain of 
DECLARE statements 


System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


T IEMO544I COMPILER ERROR. 


T ІЕМ0545І 


T IEMOSDA6I 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INITIAL CODE 
BYTE ОР DECLARE STATEMENT IS 
NEITHER STATEMENT NUMBER NOR 
STATEMENT LABEL. 


Explanation: Compiler error 
found in first byte of DECLARE 
Statements 


System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. ILLEGAL 
INITIAL CHARACTER TO DECLARED 
ITEM IN STATEMENT NUMBER ххх 


Explanation: Compiler error 
found in scanning start of 
declared item 


System Action: Compilation 
terminated 
Programmer Response: Do the 


following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing aváilable. 


COMPILER ERROR. ILLEGAL 


"s 


W IEMO557I 


T ІЕМ0548І 


Appendix K: Diagnostic Messages 


CHARACTER FOUND AFTER LEVEL 
NUMBER IN DECLARE STATEMENT 
NUMBER ххх 


Explanation: Compiler error 
found after structure level 
number in DECLARE statement 


System Action: Compilation 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE IDENTIFIER yyyy DECLARED IN 
STATEMENT NUMBER xxx IS A 
NON-MAJOR STRUCTURE MEMBER AND 
HAS THE SAME NAME AS A FORMAL 
PARAMETER OR INTERNAL ENTRY 
POINT. ALL REFERENCES TO THE 
STRUCTURE MEMBER SHOULD BE 
QUALIFIED. 


System Action: Same BCD 
treated as different 


identifiers 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
CHARACTER FOUND IN DECLARATION 
LIST. 


Explanation: Compiler error 
found in list of declarations 
in DECLARE statement 


System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 


'S,DP-(PIE,Z22)' to obtain a 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE DECLARED LEVEL OF 
IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx SHOULD BE ONE. THIS 
HAS BEEN FORCED. 


System Action: Illegal level 
number treated as 1 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx WITH А TRUE LEVEL NUMBER 
GREATER THAN THE IMPLEMENTATION 
RESTRICTION OF 63. THE 
DECLARATION OF THE IDENTIFIER 
IS IGNORED. 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx WITH ZERO PRECISION. THE 
DEFAULT VALUE HAS BEEN ASSUMED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
CHARACTER FOUND IN FACTORED 
ATTRIBUTE LIST IN DECLARE 
STATEMENT NUMBER ххх 


Explanation: Compiler error 
found in factored attribute 
list 


E IEMO553I 


T ІЕМ0554І 


E ІЕМ0555І 


System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE IDENTIFIER yyyy HAS HAD A 
CONFLICTING ATTRIBUTE IGNORED 
IN DECLARE STATEMENT NUMBER xxx 


Explanation: The two 
attributes may conflict as a 
result of a feature not 
supported by this version of 
the compiler. For details of 
these features, refer to 
Appendix J of this publication. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
CHARACTER FOUND IN PARAMETER 


LIST FOLLOWING 'GENERIC' 
ATTRIBUTE. 
System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


STORAGE CLASS ATTRIBUTES MAY 
NOT BE SPECIFIED FOR STRUCTURE 


T IEMOS56I 


E IEMO557I 


S IEMOS58I 


MEMBER yyyy . 
IGNORED. 


ATTRIBUTE 


E ІЕМ0559І 
Programmer Response:  Probable 
user error. Delete illegal 
storage class attribute for the 
structure member. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
CHARACTER FOUND IN PARAMETER 
LIST FOLLOWING AN 'ENTRY' 
ATTRIBUTE IN DECLARE STATEMENT 
NUMBER xxx — E ІЕМ05601 
System Action: 
terminated 


Compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 

S IEMO561I 

e Have the associated job 
stream and source program 
listing available. 


THE MULTIPLE DECLARATION OF 
IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx HAS BEEN IGNORED. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have the source program S IEMO562I 
listing available. 


IMPLEMENTATION RESTRICTION. 
NUMBER OF PARAMETER 
DESCRIPTIONS DECLARED FOR 
PROCEDURE OR ENTRY NAME yyyy IN 
STATEMENT NUMBER xxx TRUNCATED 
TO 64. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


Appendix K: Diagnostic Messages 


e Have the source program 
listing available. 


THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx WITH CONFLICTING FACTORED 
LEVEL NUMBERS. THE ONE AT 
DEEPEST FACTORING LEVEL HAS 
BEEN CHOSEN. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
Support : 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx A 
CONFLICTING ATTRIBUTE HAS BEEN 
IGNORED IN THE DECLARATION OF 
THE RETURNED VALUE OF ENTRY 
POINT yyyy 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx THE 
IDENTIFIER yyyy IS A MULTIPLE 
DECLARATION OF AN INTERNAL 
ENTRY LABEL. THIS DECLARATION 
IS IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


THE IDENTIFIER yyyy IS DECLARED 
IN STATEMENT NUMBER xxx AS AN 
INTERNAL ENTRY POINT. THE 
NUMBER OF PARAMETERS DECLARED 
IS DIFFERENT FROM THE NUMBER 
GIVEN AT THE ENTRY POINT. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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THE IDENTIFIER yyyy DECLARED 
'BUILTIN' IN STATEMENT NUMBER 
xxx IS NOT A BUILT-IN FUNCTION. 
DECLARATION IGNORED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx WITH PRECISION GREATER THAN 
THE IMPLEMENTATION LIMITS. THE 
MAXIMUM VALUE HAS BEEN TAKEN. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
THE IDENTIFIER yyyy IS DECLARED S ІЕМ0568І 
IN STATEMENT NUMBER xxx AS А 
MEMBER OF A GENERIC LIST, BUT 
ITS ATTRIBUTES DO NOT MAKE IT 
AN ENTRY POINT. THE 
DECLARATION OF THE IDENTIFIER 
HAS BEEN IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
ONE OF THE PARAMETERS DECLARED T IEMO569I 
FOR ENTRY POINT yyyy IN 
STATEMENT NUMBER xxx SHOULD BE 
AT LEVEL ONE. THIS HAS BEEN 


FORCED. 
Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IF FUNCTION yyyy IN STATEMENT 
NUMBER xxx IS INVOKED, THE 
DEFAULT ATTRIBUTES ASSUMED FOR 


THE VALUE RETURNED WILL 
CONFLICT WITH THE ATTRIBUTES IN 
THE PROCEDURE OR ENTRY 
STATEMENT FOR THAT VALUE. 


Explanation: The data type to 
which a result will be 
converted at a RETURN 
(expression) will not be the 
same as that expected at an 
invocation of the entry label 
as a function. 


System Action: None 


Programmer Response: 
user error. Write an 


entry-point declaration (using 
the ENTRY or RETURNS attribute) 
in the containing block, giving 
the same data attributes as 
those on the PROCEDURE or ENTRY 
Statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


Probable 


e Have the source program 
listing available. 


THE IDENTIFIER zzzz IS CALLED 
BUT IS EITHER A BUILTIN 
FUNCTION OR IS NOT AN ENTRY 
POINT. 


System Action: The erroneous 
statement is deleted. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR NUMBER nnnn IN 
MODULE EP. 


Explanation: Compiler error 
found in scan of chain of CALL 
Statements 
System Action: Compilation 
terminated 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 


W IEM0570I 


S 


S 


IEMO571I 


IEMO572I 


comments which precede all S IEMO573I 


the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE ENTRY POINT yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx TO HAVE A RETURNED VALUE 
DIFFERENT FROM THAT GIVEN ON 
THE PROCEDURE OR ENTRY 
STATEMENT. 


System Action: None 
Proqrammer Response:  Probable 
user error. Change the 
declaration, or the PROCEDURE 
or ENTRY statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 

e Have the source program T IEMO57UI 
listing available. 


IMPLEMENTATION RESTRICTION. 
IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx HAS MORE THAN 32 
DIMENSIONS. DIMENSION 
ATTRIBUTE IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE IDENTIFIER yyyy HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx WITH THE ATTRIBUTE "NORMAL" 
OR "ABNORMAL". THE APPLICATION 
OF THIS ATTRIBUTE IS AN 
UNSUPPORTED FEATURE OF THE 
FOURTH VERSION, AND IT HAS BEEN 
IGNORED. 


W IEMO575I 


Explanation: A language feature 
has been used which is not 
supported by this version of 
the compiler. Refer to 
Appendix J of this publication 
for details. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problemi 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMO576I 


e Have the source program 
listing available. 
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THE SELECTION OF GENERIC FAMILY 
MEMBERS WHOSE PARAMETERS HAVE A 
STRUCTURE DESCRIPTION IS 
DEFERRED. ENTRY NAME yyyy, 
DECLARED IN STATEMENT NUMBER 
xxx, IS SUCH A MEMBER AND HAS 
BEEN DELETED. 


Explanation: The usage 
referred to is not supported by 
this version of the compiler. 
For details, refer to Appendix 
J. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


THE MULTIPLE DECLARATION OF 
IDENTIFIER yyyy IN STATEMENT 
NUMBER xxx HAS BEEN IGNORED. 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE REPEATED ATTRIBUTE IN THE 
DECLARATION OF FILE yyyy IN 
STATEMENT NUMBER xxx HAS BEEN 
IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE EXTERNAL FILE yyy DECLARED 
IN STATEMENT NUMBER xxx HAS THE 
SAME NAME AS THE EXTERNAL 

PROCEDURE, DECLARATION IGNORED. 


Programmer Responses:  Probable 
user error. Correct program 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 


Support: 


e Have the source program 
listing available. 


INCORRECT SPECIFICATION OF THE 
ARRAY BOUNDS, STRING LENGTH OR 
AREA SIZE OF THE NON-CONTROLLED 
PARAMETER yyyy IN DECLARE 
STATEMENT NUMBER xxx; THOSE OF 
THE CORRESPONDING ARGUMENT WILL 
BE ASSUMED. 


X 


Explanation: In the 
declaration of a non-controlled 


array, string or area 
parameter, the bounds, length 
or size must be given by a 
constant or by an asterisk. 


System Action: The bounds, 

length or size of the array, 
string or area passed as an 

argument will be taken. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNDIMENSIONED VARIABLE yyy 
DECLARED IN STATEMENT NUMBER 
xxx HAS INITIAL ATTRIBUTE WITH 
CONFLICTING SPECIFICATION FOR A 


DIMENSIONED VARIABLE. INITIAL 
ATTRIBUTE IGNORED. 
Programmer Response: Probable 


user error. 
program and recompile. 
problem recurs, do the 
following before calling IBM 
for programming support: 


Correct source 
If the 


e Have the source program 
listing available. 


THE PARAMETER OF THE MAIN 
PROCEDURE SHOULD BE A FIXED 
LENGTH CHARACTER STRING OR HAVE 
THE ATTRIBUTES CHARACTER (100) 
VARYING. 


Programmer Response:  Probable 
user error. Correct source 


program and recompile. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


S ІЕМ05801 
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• Have the source program 
listing available. 


INVALID USE OF FILE yyy IN 
STATEMENT NUMBER xxx. IT HAS 
BEEN REPLACED BY A DUMMY 
REFERENCE. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ITEM zzzz IN 
LIKE CHAIN IS NOT A STRUCTURE. 
ITEM IS IGNORED. 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
"S,DP-Z(PIE,EV)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


STRUCTURE ELEMENT zzzz WHICH 
HAS LIKE ATTRIBUTE ATTACHED TO 
IT, IS FOLLOWED BY AN ELEMENT 
WITH А NUMERICALLY GREATER 
STRUCTURE LEVEL NUMBER. LIKE 
ATTRIBUTE IS IGNORED. 


System Action: Self 
explanatory: may result in 


cascade errors. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


STRUCTURE ELEMENT zzzz IS 
LIKENED TO AN ITEM WHICH IS NOT 
A STRUCTURE VARIABLE. LIKE 
ATTRIBUTE IS IGNORED. 


System Action: Self 
explanatory: may result in 
cascade errors. 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STRUCTURE ELEMENT zzzz IS 
LIKENED TO A STRUCTURE WHICH 
CONTAINS ELEMENTS WHICH HAVE 
ALSO BEEN DECLARED WITH THE 
LIKE ATTRIBUTE. LIKE ATTRIBUTE 
ON ORIGINAL STRUCTURE IS 
IGNORED. 
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System Action: Self 
explanatory: may result in 


cascade errors. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STRUCTURE NAME TO WHICH zzzz IS 
LIKENED IS NOT KNOWN. LIKE 
ATTRIBUTE IGNORED. 
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System Action: Self 
explanatory: may result in 


cascade errors. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AMBIGUOUS QUALIFIED NAME yyyy 
USED AS A BASE IDENTIFIER. 
MOST RECENT DECLARATION USED. 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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е Have the source program 
listing available. 


QUALIFIED NAME yyyy USED AS A 
BASE IDENTIFIER CONTAINS MORE 
THAN ONE IDENTIFIER AT THE SAME 
STRUCTURE LEVEL. 
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System Action: The erroneous 
statement is deleted. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MAJOR STRUCTURE yyyy HAS BEEN 
LIKENED TO AN ITEM WHICH IS NOT 
A VALID STRUCTURE. DECLARATION 
OF STRUCTURE IGNORED. 


System Action: Self 
explanatory: may result in 


cascade errors. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER zzzz WHICH IS NOT A 
FORMAL PARAMETER OR OF STORAGE 
CLASS CONTROLLED HAS BEEN 
LIKENED TO A STRUCTURE 
CONTAINING * DIMENSIONS OR 
LENGTH. * DIMENSIONS OR LENGTH 
HAVE BEEN IGNORED IN THE 
CONSTRUCTED STRUCTURE. 


System Action: Self 
explanatory: may result in 


cascade errors from later 
phases. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


QUALIFIED NAME TO WHICH $ 2222 
HAS BEEN LIKENED IS AN 
AMBIGUOUS REFERENCE. LIKE 
ATTRIBUTE HAS BEEN IGNORED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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е Have the source program 
listing available. 


zzzz WHICH IS A PARAMETER OR A 
BASED VARIABLE, HAS BEEN 
DECLARED (USING THE LIKE 
ATTRIBUTE) AS A STRUCTURE WITH 
THE INITIAL ATTRIBUTE. THE 
INITIAL ATTRIBUTE IS INVALID 
AND HAS BEEN IGNORED. 


Programmer Response: Probable 
user error. Declare the 


parameter or based variable 
with the LIKE attribute 
specifying a structure without 
the INITIAL attribute. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


STATIC STRUCTURE zzzz HAS BEEN 
DECLARED BY MEANS OF THE LIKE 
ATTRIBUTE TO HAVE ADJUSTABLE 
EXTENTS. THE EXTENTS HAVE BEEN 
IGNORED. 


Explanation: A STATIC variable 
cannot have adjustable extents 


System Action: А11 bounds on 
the offending variable are set 
to zero 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for progranming 
support: 


e Have the source program 
listing available. 


OFFSET ATTRIBUTE ON PROCEDURE 
STATEMENT NUMBER xxx IS NOT 
BASED ON A BASED AREA. IT HAS 
BEEN CHANGED TO POINTER. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER IN BASED ATTRIBUTE 
ОМ 2222 DECLARED IN STATEMENT 
NUMBER xxx IS NOT A NON-BASED 
POINTER 
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System Action: Compilation is 


terminated 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INVALID POINTER EXPRESSION IN 
BASED ATTRIBUTE ON zzzz IN 
STATEMENT NUMBER xxx 


Explanation: The pointer 
associated with the based 
variable does not obey the 
implementation rules (e.g., it 
may be subscripted). 


System Action: The compilation 


is terminated 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


LENGTH OR SIZE DECLARED FOR 
BASED STRING OR BASED AREA 2222 
IN STATEMENT NUMBER xxx IS 
INVALID 


Explanation: The declaration 
violates the compiler 
implementation rules. (See 
Appendix J, 'Implementation 
Conventions and Restrictions'). 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 
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recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


BOUNDS DECLARED FOR BASED ARRAY 
zzzz IN STATEMENT NUMBER ххх 
ARE INVALID 


Explanation: The adjustable 
bounds declared are outside 
those permitted by this 
implementation. 


System Action:  Terminates 
compilation 


Programmer Response:  Probable 
user error. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


OFFSET VARIABLE zzzz HAS BEEN 
DECLARED IN STATEMENT NUMBER 
xxx RELATIVE TO AN IDENTIFIER 
WHICH IS NOT A LEVEL 1 BASED 
AREA. IT HAS BEEN CHANGED TO A 
POINTER VARIABLE. 


System Action: The offset is 
changed to a pointer to prevent 
the compiler from producing 
further error messages. 


Programmer Response:  Probable 
user error. Consider assigning 


the ADDR of the required area 
to the pointer named in the 
declaration of a level 1 based 
area; this area can be validly 
named in the OFFSET attribute, 
and offset values for it will 
be correct for the other area. 
If the problem recurs, do the 
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following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


IF THE BASE OF 222z 
CORRESPONDENCE DEFINED IN 
STATEMENT NUMBER xxx IS 
ALLOCATED WITH THE DECLARED 
BOUNDS THE DEFINING WILL BE IN 
ERROR. 


Explanation: For 
correspondence defining not 


involving iSUB's, the bounds of 
the defined array must be a 
subset of the bounds of the 
base. In this case the bounds 
declared for the base do not 
satisfy this requirement. 
However, the base is of 
CONTROLLED storage class and if 
it is allocated with different 
bounds the defining may be 
legal. 


System Action: Nothing further 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL DEFINING IN STATEMENT 
NUMBER xxx. BASE IDENTIFIER 
2722 IS A MEMBER OF A 
DIMENSIONED STRUCTURE. 


Explanation: In the case of 


string class overlay defining 
where the base is an array, it 
is an error if it is a member 
of an array of structures. 


System Action: The compilation 
is terminated. 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct error. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: | 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
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System Action: 


Programmer Response: 


comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


DEFERRED FEATURE. DEFINING OF 
2222 DECLARED IN STATEMENT 
NUMBER xxx WITH А SUBSCRIPTED 
BASE. 


Explanation: Overlay defining 
on a subscripted base is not 
supported by this version of 
the compiler. 


The compilation 
is terminated. 


Probable 
user error. Replace all 
references to the defined item 
by appropriate subscripted 
references to the base. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


DEFERRED FEATURE. DEFINING OF 
2222 DECLARED IN STATEMENT 
NUMBER xxx ON A BASE OF 
CONTROLLED STORAGE CLASS. 


Explanation: If the base is 
declared CONTROLLED, neither 
overlay defining nor 
correspondence defining is 
supported by this release of 
the compiler. 
System Action: The compilation 
is terminated. 


Programmer Responses Probable 
user error. Replace all 
references to the defined item 
by appropriate references to 
the base. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 


'S,DP-(PIE,Z2)' to obtain а 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


SCALAR zzzz DECLARED IN 
STATEMENT NUMBER xxx IS 
ILLEGALLY DEFINED WITH ISUBS. 


Explanation: Only arrays may 
be correspondence defined using 
isUB notation. 
System Action: The compilation 
is terminated. 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct error. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INITIAL ATTRIBUTE DECLARED FOR 
DEFINED ITEM zzzz IN STATEMENT 
NUMBER xxx WILL BE IGNORED. 


Explanation: DEFINED items may 
not have the INITIAL attribute. 


System Action: INITIAL 
attribute ignored 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ELEMENT VARIABLE SPECIFIED IN 
REFER OPTION IN STATEMENT 
NUMBER xxx IS NOT AN INTEGER. 


Explanation: Both I and N in 
(I REFER(N)) must be fixed 
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binary integers; they must also 


be of the same precision. 


System Action: Compilation 
continues. Any reference to 
the element variable may result 
in an execution error. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming. 
support: 


e Have the source program 
listing available. 


ELEMENT VARIABLES SPECIFIED IN 
REFER OPTION IN STATEMENT 
NUMBER xxx DO NOT HAVE THE SAME 
PRECISION. 


Explanation: Both I and N in 
(I REFER(N)) must be fixed 
binary integers of the same 
precision. 


System Action: Compilation 
continues. Any reference to 
either element variable may 
result in an execution error. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


ә Have the source program 
listing available. 


THE BASE SUBSCRIPT LIST USED 
WITH THE DEFINED VARIABLE 2222 
IN STATEMENT NUMBER Xxx 
ILLEGALLY REFERS TO OR IS 
DEPENDENT ON THE DEFINED 
VARIABLE. 


Explanation: It is illegal for 
a base subscript list in the 
DEFINED attribute to refer 
directly, or via any further 
level of defining, to the 
defined item. 
System Action: The compilation 
is terminated. 


Programmer Response: Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct error. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and sourcé program 
listing available. 


THE BASE IDENTIFIER FOR 2222 
DECLARED IN STATEMENT NUMBER 
xxx IS DEFINED OR BASED. 


Explanation: The base of 
DEFINED data may not itself be 
DEFINED. 


System Action: Compilation. 


terminated 


Programmer Response:  Probable 
user error. Replace the 


Specified base by an- 


appropriate reference to its 
base. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE DEFINING BASE FOR 2222 
DECLARED IN STATEMENT NUMBER 
xxx HAS THE WRONG NUMBER OF 
SUBSCRIPTS. 


Explanation: If the base 
reference in a DEFINED 
attribute is subscripted, it 
must have the same number of 
subscript expressions as the 
dimensionality of the base 


array. 


System Action: The compilation 


is terminated. 


Programmer Responses  Probable 
user error. Correct the 


subscript list, or declaration 
of the base, whichever is 
appropriate. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE DEFINING BASE FOR 2222 
DECLARED IN STATEMENT NUMBER 
xxx IS NOT DATA. 


Explanation: The only legal 
data types that may be used for 
defining bases are String, 
Arithmetic, Task, Event, and 
Label. 


System Action: The compilation 


is terminated. 


Programmer Response:  Probable 
user error. Check that the 


defining base is correctly 
written and declared. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 

THE NESTING OF REFERENCES TO 
DATA DEFINED WITH A SUBSCRIPTED 
BASE IS TOO DEEP. 


Explanation: The complexity of 
defining has resulted in a 
level of nesting which is too 
great for the compiler. 


System Action: The compilation 


is terminated. 


Programmer Response:  Probable 
user error. Reduce complexity 


of defining. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


ARRAY zzzz DECLARED IN 
STATEMENT NUMBER xxx ILLEGALLY 
HAS THE POS ATTRIBUTE WITH ISUB 
DEFINING. 


Explanation: The POS attribute 
may not be specified for 
correspondence defining. 


System Action: The compilation 


is terminated. 


Programmer Response:  Probable 
user error. Delete POS 


attribute If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE DESCRIPTION OF 2222 
CORRESPONDENCE DEFINED IN 
STATEMENT NUMBER xxx DOES NOT 
MATCH THAT OF THE DEFINING 
BASE. 


Explanation: For 
correspondence defining, if 


either the base or the defined 
item are arrays of structures, 
then both must be arrays of 
structures. 


System Action: The compilation 


is terminated. 


Programmer Response:  Probable 
user error. Correct the 


program. Note that POS (1) may 
be used to force overlay 
defining. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 


'"S,DP-(PIE,Z22)' to obtain а 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
THE CORRESPONDENCE DEFINING OF 
yyyy AN ARRAY OF STRUCTURES 
DECLARED IN STATEMENT NUMBER 
XXX. 


Explanation: Correspondence 
defining with arrays of 
structures is not supported by 
the compiler. 


System Action: The compilation 


is terminated. 


Programmer Response:  Probable 
user error. Declare the base 


arrays of the defined structure 
as correspondence defined on 
the matching base arrays of the 
base structure. Note that for 
this to be valid, the base 
arrays of the defined structure 
must have unique names and be 
declared at level 1. This 
alternative method precludes 
structure operations with the 
defined item, but achieves the 
desired mapping. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


° Have the associated job 
Stream and source program 
listing available. 


THE BOUNDS OF zzzz 
CORRESPONDENCE DEFINED IN. 


. STATEMENT NUMBER xxx ARE NOT A 


SUBSET OF THE BASE. 


Explanation: For 
correspondence defining not 
involving iSUB's, the bounds of 
the defined array must be a 
subset of the corresponding 
bounds of the base array. 


System Action: The compilation 


is terminated. 
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Programmer Responses  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct program. Note that POS 
(1) may be used to force 
overlay defining. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


ITEM TO BE ALLOCATED IN 
STATEMENT NUMBER xxx IS NOT AT 
LEVEL 1. THE STATEMENT HAS 
BEEN IGNORED. 


Explanation: An identifier 
specified in an ALLOCATE 
Statement must refer to a major 
structure or data not contained 
in a structure. А major 
Structure identifier may 
optionally be followed by a 


full structure description. 


System Action: The ALLOCATE 
Statement is deleted 


Programmer Response:  Probable 
user error. Replace erroneous 


identifier by that of the 
containing major structure. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ITEM TO BE ALLOCATED IN 
STATEMENT NUMBER xxx HAS NOT 
BEEN DECLARED. THE STATEMENT 
HAS BEEN IGNORED. 


Explanation: Only CONTROLLED 
data may be allocated. Data 
may only obtain the attribute 
CONTROLLED from an explicit 
declaration. 


System Action: The ALLOCATE 
statement is deleted 


Programmer Response: Probable 
user error. Construct a 


DECLARE statement for the 
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identifier. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ITEM TO BE ALLOCATED IN 
STATEMENT NUMBER xxx WAS NOT 
DECLARED CONTROLLED. THE 
STATEMENT HAS BEEN IGNORED. 


Explanation: Only CONTROLLED 
data may be specified in 
ALLOCATE statements. 


System Action: The ALLOCATE 
statement is deleted 


Programmer Response: Probable 
user error. Declare the 
identifier CONTROLLED. 
problem recurs, do the 
following before calling IBM 
for programming support: 


If the 


e Have the source program 
listing available. 


A CONFLICTING ATTRIBUTE WAS 
GIVEN FOR zzzz IN STATEMENT 
NUMBER xxx. THE ATTRIBUTE HAS 
BEEN IGNORED. 


Explanation: Attributes given 
for an identifier in an 
ALLOCATE statement may not 
conflict with those given 
explicitly or assumed by 
default from the declaration. 


System Action:  Ignores the 
attribute from the ALLOCATE 





Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


THE STRUCTURE DESCRIPTION GIVEN 
ON STATEMENT NUMBER xxx DIFFERS 
FROM THAT DECLARED. THE 
STATEMENT HAS BEEN IGNORED. 


Explanation: If a description 
of a major structure is given 
on an ALLOCATE statement, the 
description must match that 
declared. 


System Action: The ALLOCATE 
statement is deleted 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN INVALID ATTRIBUTE WAS GIVEN 
IN STATEMENT NUMBER xxx. THE 
STATEMENT HAS BEEN IGNORED. 


Explanation: Only CHAR, BIT, 
INITIAL, and Dimension 


attributes are permitted in 
ALLOCATE statements. 


System Action: The ALLOCATE 
Statement is deleted 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CONFLICTING ATTRIBUTES HAVE 
BEEN GIVEN FOR 2222 ІМ 
STATEMENT NUMBER xxx. THE 
FIRST LEGAL ONE HAS BEEN USED. 


Explanation: At most, one 
attribute in the following 
classes may be given for an 
identifier in an ALLOCATE 
statement: Dimension, 
String(CHAR or BIT), INITIAL. 


System Action: А11 attributes 
after the first in a particular 
class are ignored. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DIMENSIONALITY GIVEN IN 
STATEMENT NOMBER xxx DIFFERS 
FROM THAT DECLARED. THE 
STATEMENT HAS BEEN IGNORED. 


Explanation: If a dimension 
attribute is given for an 
identifier in an ALLOCATE 
statement, the identifier must 
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have been declared with the 
same dimensionality. 


System Action: The ALLOCATE 
statement is deleted 
Programmer Response:  Probable 
user error. Correct 
declaration or ALLOCATE 
Statement, whichever 
applicable. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE LEVEL NUMBER DECLARED FOR 
2222 IS NOT THE SAME AS THAT 
GIVEN IN STATEMENT NUMBER ххх. 
THE FORMER HAS BEEN USED. 


Explanation: If a structure 
description is given in an 
ALLOCATE Statement, it must 
match the declaration. The 
indicated level number 
discrepancy may be an error. 


System Action: Nothing further 


Programmer Response:  Probable 
user error. Check that 


ALLOCATE statement is as 
intended. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATEMENT NUMBER xxx CONTAINS 
AN ILLEGAL PARENTHESIZED LIST. 
THE STATEMENT HAS BEEN IGNORED. 


Explanation:  Factored 
attribures are not allowed on 
ALLOCATE statements. 

System Action: Statement 
ignored 


Programmer Response:  Probable 
user error. Remove parentheses 
and any factored attributes. 

If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ATTRIBUTE GIVEN WITH BASED 
VARIABLE zzzz IN ALLOCATE 
STATEMENT NUMBER xxx HAS BEEN 
IGNORED. 
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Explanations: Based variable 
may not be specified with 
attributes 


Programmer Response:  Probable 
user error. Correct ALLOCATE 


Statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER yyyy PRECEDING 
POINTER QUALIFIER IN STATEMENT 
NUMBER xxx IS NOT A NON-BASED 
POINTER VARIABLE 


System Action: The identifier 
is replaced by a dummy 
dictionary reference; a later 
phase will delete the 
statement. 


Programmer Response:  Probable 
user error. Correct the 
invalid statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


POINTER-QUALIFIED IDENTIFIER 
2222 IN STATEMENT NUMBER xxx IS 
NOT A BASED VARIABLE 


System Action: Identifier is 
replaced by a dummy dictionary 
reference; a later phase will 
delete the statement. 


Programmer Response:  Probable 
user error. Correct the 


invalid statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 
COMPILER ERROR. ILLEGAL ENTRY 
IN STATEMENT NUMBER ххх 


Explanation: Compiler error 
found in scan of statement 





System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


355 


5 IEMO655I 


E IEMO656I 


E IEMO657I 


356 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


QUALIFIED NAME BEGINNING yyyy 
USED IN STATEMENT NUMBER ххх 
BUT NO PREVIOUS STRUCTURE 
DECLARATION GIVEN. DUMMY 
REFERENCE INSERTED. 


System Action: Reference to 
the illegal variable or the 
whole statement will be deleted 
by later phases. 


Programmer Response:  Probable 
user error. Correct program by 


inserting DECLARE statement. 

If the problem recurs, do the 
following before calling IBM 

for programming support: 


e Have the source program 
listing available. 


MOST RECENT DECLARATION USED OF 
AMBIGUOUS QUALIFIED NAME OR 
STRUCTURE MEMBER BEGINNING 
IN STATEMENT NUMBER ххх 


YYYY 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


QUALIFIED NAME BEGINNING yyyy 
IN STATEMENT NUMBER xxx 
CONTAINS MORE THAN ONE 
IDENTIFIER AT THE SAME 
STRUCTURE LEVEL. 
System Action: The statement 
is deleted 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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QUALIFIED NAME BEGINNING yyyy 
IN STATEMENT NUMBER xxx IS AN 
AMBIGUOUS REFERENCE. DUMMY 
REFERENCE INSERTED. 


System Action: Statement will 
be deleted by later phase 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNSUPPORTED FEATURE. STRING 
PSEUDO~ VARIABLE APPEARS ІМ 
REPLY, KEYTO OR STRING OPTION 
IN STATEMENT NUMBER xxx. 
STATEMENT WILL BE DELETED BY A 
LATER PHASE. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PSEUDO-VARIABLE yyyy IN 
STATEMENT NUMBER xxx IS INVALID 
BECAUSE IT IS NESTED IN ANOTHER 
PSEUDO-VARIABLE. 


Explanation: Language 
restriction.  Pseudo-variables 


cannot be nested. 


System Action: The statement 
will be deleted by a later 
phase. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID USE OF THE 
PSEUDO-VARIABLE ‘PRIORITY IN 
STATEMENT NUMBER xxx. THE TASK 
OPTION HAS NOT BEEN SPECIFIED 
IN THE EXTERNAL PROCEDURE. 


Explanation: The PRIORITY 
pseudo-variable can be used 
only in a multitasking 
environment. 
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in the CHECK list. 


System Action: The statement 


is deleted. 


Programmer Response:  Probable 
user error.  Recompile with the 
TASK option in the external 
procedure options list. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx CHECK 
LIST CONTAINS DEFINED ITEM yyy. 
IT HAS BEEN REPLACED BY ITS 
BASE IDENTIFIER. 


Explanation: Defined items are 
not permitted in CHECK lists. 


System Action: The base item 
is assumed to replace the 
reference to the defined item 
References 
in the text to the defined item 
will not be checked. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID USE OF FUNCTION NAME ON 
LEFT HAND SIDE OF EQUAL SYMBOL, 
OR IN REPLY KEYTO OR STRING 

OPTION, IN STATEMENT NUMBER XXX 


System Action: Statement will 
be deleted by later phases 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


STATEMENT NUMBER xxx CONTAINS 
ILLEGAL USE OF FUNCTION yyyy 


System Action: Reference to 
function or whole statement 
will be deleted by later phases 


Programmer Response:  Probable 
user error. Correct program 

and recompile. If the problem 
recurs, do the following before 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER XXX 
IDENTIFIER yyyy AFTER GO TO IS 
NOT A LABEL OR LABEL VARIABLE 
KNOWN IN THE BLOCK CONTAINING 
THE GO TO. 


System Action: Statement 
deleted by later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DEFERRED FEATURE. IDENTIFIER 
УУУУ NOT ALLOWED AS A BUILT-IN 
FUNCTION OR PSEUDO-VARIABLE . 
DUMMY REFERENCE INSERTED IN 
STATEMENT NUMBER xxx 


Explanation: A language 
feature has been used that is 
not supported by this version 
of the compiler. For details, 
refer to Appendix J of this 
publication. 


System Action: Statement 
deleted by later phases 


Programmer Response:  Probable 
user error. Correct statement 


by removing reference to 
function in error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ILLEGAL PARENTHESIZED LIST IN 
STATEMENT NUMBER xxx FOLLOWS AN 
IDENTIFIER WHICH IS NOT A 
FUNCTION OR ARRAY. LIST 
DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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IN STATEMENT NUMBER xxx GO TO 
TRANSFERS CONTROL ILLEGALLY TO 
A FORMAT STATEMENT. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


ə Have the source program 
listing available. 


zzzz WAS FOUND WHERE A FILENAME 
IS REQUIRED IN STATEMENT NUMBER 
xxx. DUMMY DICTIONARY 
REFERENCE REPLACES ILLEGAL 
ITEM. 


System Action: Statement will 
be deleted by later phases 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
е Have the source program 
listing available. 


USE OF LABEL VARIABLE zzzz MAY 
RESULT IN AN ILLEGAL BRANCH IN 
STATEMENT NUMBER ххх 


Explanation: It is possible 
that the label variable may 
contain a value which would 
cause control to branch 
illegally into a block. 


System Action: None 


Programmer Response:  Probable 
user error. Check validity of 


possible branches. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


* Have the source program 
listing available. 


zzzz IS NOT A STATEMENT LABEL 
ON AN EXECUTABLE STATEMENT. 

DUMMY REFERENCE INSERTED AFTER 
GO TO IN STATEMENT NUMBER xxx 


System Action: Statement will 
be deleted by later phases 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


2222 APPEARS IN A FREE OR 
ALLOCATE STATEMENT BUT HAS NOT 
BEEN DECLARED CONTROLLED. 
DUMMY REFERENCE INSERTED IN 
STATEMENT NUMBER xxx. 


i 
System Action: A dummy 
reference is inserted. The 
statement will be deleted by a 
later phase 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx 
DICTIONARY REFERENCE 2222 
TRANSFERS CONTROL ILLEGALLY TO 
ANOTHER BLOCK OR GROUP. 
EXECUTUION ERRORS MAY OCCUR. 


COMPILER ERROR. TOO FEW LEFT 
PARENTHESES IN STATEMENT NUMBER 
XXX 


Explanation: This is a 
compiler error 


System Action: None taken. 
Cascade errors may result. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


* Recompile the program with 
compiler options 
'S,DP-(PIE,FID' to obtain a 
formatted dump of the - 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


2222 WAS FOUND WHERE A TASK 
IDENTIFIER IS REQUIRED IN 
STATEMENT NUMBER xxx. DUMMY 
REFERENCE INSERTED. 


System Action: Statement will 
be deleted by later phases 
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Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


2222 WAS FOUND WHERE EVENT 
VARIABLE IS REQUIRED IN 
STATEMENT NUMBER ххх. 
REFERENCE INSERTED. 


DUMMY 


System Action: Statement will 
be deleted by later phases 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID ITEM 2222 IN DATA LIST, 
OR 'FROM' OR 'INTO' OPTION, IN 
STATEMENT NUMBER ххх 


System Action: Statement will 
be deleted by later phases 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA DIRECTED I/O LIST OR FROM 
OR INTO OPTION IN STATEMENT 
NUMBER xxx CONTAINS A 
PARAMETER, DEFINED OR BASED 
ITEM 2222. 


System Action: Statement will 
be deleted by later phases 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF FUNCTION zzzz IN 
INPUT LIST IN STATEMENT NUMBER 
xxx. DUMMY REFERENCE INSERTED. 
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System Action: Statement will 
be deleted by later phases 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


IN THE FORMAT LIST IN STATEMENT 
NUMBER xxx A REMOTE FORMAT ITEM 
REFERENCES 2222, WHICH IS NOT A 
STATEMENT LABEL IN THE CURRENT 
BLOCK. DUMMY REFERENCE 
INSERTED. 


System Action: Format item 
deleted by later phase 


Programmer Responses Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


LABEL ARRAY 
FOLLOWED BY 


zzzz IS NOT 

A SUBSCRIPT LIST 
AFTER GO TO IN STATEMENT NUMBER 
xxx. DUMMY REFERENCE REPLACES 
REFERENCE TO ARRAY. 


System Action: Statement will 
be deleted by later phases 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx IT IS 

AN ERROR IF THE PARAMETER 2222 
IN A REMOTE FORMAT ITEM REFERS 
TO A FORMAT STATEMENT WHICH IS 
NOT INTERNAL TO THE SAME BLOCK 
AS THE REMOTE FORMAT ITEM. 


Explanation: Remote formats 
become executable code, but not 
internal procedures. Therefore 
they must appear in the same 
block in which they are used. 


System Action:  Object-time 
error message is compiled 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATEMENT LABEL zzzz ATTACHED 
TO STATEMENT NUMBER xxx IS USED 
AS A REMOTE FORMAT ITEM IN THAT 
STATEMENT. A DUMMY REPLACES 
THE REMOTE FORMAT ITEM. 


System Action: Statement will 
be deleted by a later phase 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


THE BASED VARIABLE zzzz IN 
LOCATE STATEMENT NUMBER xxx IS 
NOT AT LEVEL 1. DUMMY 
REFERENCE INSERTED. 


System Action: The statement 
will be deleted by a later 
phase. 





Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STRUCTURE ARGUMENT 2222 OF FROM 
OR INTO OPTION IN STATEMENT 
NUMBER xxx IS NOT A MAJOR 
STRUCTURE. DUMMY REFERENCE 
INSERTED 


System Action: Statement 
deleted by later phase 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF FUNCTION, LABEL 
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OR VARYING STRING 2222 AS 
ARGUMENT OF FROM OR INTO OPTION 
IN STATEMENT NUMBER xxx. DUMMY 
REFERENCE INSERTED. 


System Action: Statement 
deleted by later phase 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


ARGUMENT zzzz OF SET OPTION IS 


NOT A POINTER VARIABLE. DUMMY 
REFERENCE INSERTED. 

System Action: Statement 
deleted by later phase. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


LABEL, TASK OR EVENT VARIABLE 
Zzzz USED IN FROM OR INTO 
OPTION IN STATEMENT NUMBER ххх 
MAY LOSE ITS VALIDITY IN 
TRANSMISSION 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID IDENTIFIER zzzz FREED 
IN STATEMENT NUMBER xxx 


Explanation: The identifier in 
the FREE statement is not: 


1. А BASED or a CONTROLLED 
variable, or 


2. А major structure with the 
BASED or CONTROLLED 
attribute. 


System Action: Invalid 
identifier replaced by dummy. 


Programmer Response:  Probable 
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user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATEMENT NUMBER xxx CONTAINS 
INVALID USE OF FUNCTION zzzz 


System.Action: Statement 
deléted by later phase 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


ә Have the source program 
listing available. 


IF THE LABEL VARIABLE IN GO TO 
STATEMENT NUMBER xxx ASSUMES 
THE VALUE OF ITS VALUE-LIST 
MEMBER 2222, THE STATEMENT WILL 
CONSTITUTE AN INVALID BRANCH 
INTO AN ITERATIVE DO GROUP. 


System Action: None 


Programmer Response:  Probable 
user error. Check that branch 


will be valid at execution 
time. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have the source program 
listing available. 


VARIABLE zzzz IN LOCATE 
STATEMENT IS NOT А BASED 
VARIABLE. DUMMY REFERENCE 
INSERTED. 


System Action: The statement 
is deleted by a later phase. 





Programmer Response:  Probable 
user error. Correct the 


invalid statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ARGUMENT 2222 OF IN OPTION IS 
NOT AN AREA VARIABLE. DUMMY 
REFERENCE INSERTED. 


System Action: The statement 
is deleted by a later phase. 
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Proqrammer Response:  Probable 
user error. Correct the 


invalid statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


TEXT yyyy ASSOCIATED WITH THE 
INITIAL ATTRIBUTE IN STATEMENT 
NUMBER xxx IS ILLEGAL AND HAS 
BEEN IGNORED. 


Explanation: The INITIAL 
attribute has been used 
incorrectly. 


System Action: The INITIAL 
attribute is deleted 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID CHECK LIST IN STATEMENT 
NUMBER xxx. STATEMENT HAS BEEN 
CHANGED TO 'ON ERROR'. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ELEMENT OF LABEL ARRAY 2222 
WHICH IS DECLARED WITH INITIAL 
ATTRIBUTE USED AS STATEMENT 
LABEL ON STATEMENT NUMBER ххх 


System Action: Label is 


deleted 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SUBSCRIPTED IDENTIFIER 2222 
USED AS LABEL ON STATEMENT 
NUMBER xxx IS NOT A LABEL ARRAY 
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System Action: Label is 


deleted 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ELEMENT OF STATIC LABEL ARRAY 
2222 USED AS LABEL ON STATEMENT 
NUMBER ххх 
System Action: Label is 
deleted 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ELEMENT OF LABEL ARRAY 2222 
USED AS LABEL ON STATEMENT 
NUMBER xxx IN BLOCK OTHER THAN 
THE ONE IN WHICH IT IS 
DECLARED. 


System Action: An error 
statement is inserted in the 


text in place of the offending 
label. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR IN STATEMENT 
NUMBER xxx 


Explanation: Compiler error 
found in scan of text 


System Action: 
terminated 


Compilation 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'"S,DP-z(PIE,Z2Z2)' to obtain a 
formatted dump of the 
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Explanation: 


compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


* Have the associated job 
Stream and source program 
listing available. 


FORMAL PARAMETER 2222 IN CHECK 
LIST. PARAMETER IS IGNORED. 


The identifier 
list of a CHECK prefix must not 
contain formal parameters 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: i 


e Have the source program 
listing available. 


STATEMENT NUMBER xxx HAS BEEN 
DELETED DUE TO А SEVERE ERROR 
NOTED ELSEWHERE. 


System Action: The whole 
Statement is replaced by an 
error statement. 


Proqrammer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER zzzz IN STATEMENT 
NUMBER xxx IS NOT A FILE NAME. 
THE STATEMENT IS DELETED. 


Explanation: The identifier 
has been used previously in a 
different context and is 
therefore not recognized as a 
file name. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER zzzz IN STATEMENT 
NUMBER xxx IS NOT A CONDITION 
NAME. THE STATEMENT IS 
DELETED. 
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Explanation: The identifier 
has been used previously in а 
different context and is 
therefore not recognized as a 
condition name 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


е Have the source program 
listing available. 


COMPILATION TERMINATED DUE TO A 
PREVIOUSLY DETECTED SEVERE 
ERROR IN STATEMENT NUMBER ххх 


Explanation: A previous module 
has inserted a dummy dictionary 
reference into the second file. 
The compiler cannot recover. 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN SCALE FACTOR 
IN PICTURE BEGINNING yyyy. 
THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
halted. А11 references to 
picture deleted. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
's,DP=(PIE,FO)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 
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MORE THAN ONE SIGN CHARACTER 
PRESENT IN А SUBFIELD OF 
PICTURE yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PICTURE CHARACTER M APPEARS IN 
NON-STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND ' 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FIELD MISSING IN STERLING 
PICTURE yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: | | 


е Have the source program 
listing available. 


ILLEGAL EDIT CHARACTERS AT 
START OF STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 
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System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER OR ILLEGAL 
NUMBER OF CHARACTERS IN POUNDS 
FIELD OF STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER OR ILLEGAL 
NUMBER OF CHARACTERS IN 
SHILLINGS FIELD OF STERLING 
PICTURE yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


WRONG NUMBER OF DELIMITER 
CHARACTERS M IN STERLING 
PICTURE yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER OR ILLEGAL 
NUMBER OF CHARACTERS IN PENCE 
FIELD OF STERLING PICTURE yyyy. 
THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Responses: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATIC PICTURE CHARACTER $ S + 
- NOT AT EXTREMITY OF SUBFIELD. 
PICTURE IN ERROR IS yyyy. THIS 
PICTURE OCCURS IN STATEMENT 
NUMBER xxx, AND POSSIBLY IN 
OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MULTIPLE USE OF E K OR V IN 
PICTURE. PICTURE TRUNCATED AT 
ILLEGAL CHARACTER. PICTURE IN 
ERROR IS yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Picture 
truncated at point indicated 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


CR OR DB INCORRECTLY POSITIONED 
IN SUBFIELD. PICTURE TRUNCATED 
AT THIS POINT. PICTURE IN 
ERROR IS yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Picture 
truncated at point indicated 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CR OR DB GIVEN FOR A NON-REAL, 


"NON-NUMERIC OR FLOATING FIELD. 


PICTURE TRUNCATED BEFORE CR OR 
DB IN PICTURE yyyy. THIS 
PICTURE OCCURS IN STATEMENT 
NUMBER xxx, AND POSSIBLY IN 
OTHER STATEMENTS. 


System Action: Picture 
truncated at point indicated 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF PICTURE 
CHARACTER Z OR * IN PICTURE 
yyyy. THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Responses Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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STERLING MARKER FOUND IN OTHER 
THAN FIRST POSITION IN PICTURE 
YYYY- THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STERLING PICTURE CHARACTERS 
FOUND IN NON-STERLING PICTURE. 
SCANNING OF PICTURE STOPPED. 
PICTURE IN ERROR IS yyyy. THIS 
PICTURE OCCURS IN STATEMENT 
NUMBER xxx, AND POSSIBLY IN 
OTHER STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF SCALING FACTOR 
IN PICTURE. SCALING FACTOR 
ONWARDS DELETED. PICTURE IN 
ERROR IS yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER xxx, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Picture 
truncated at point indicated 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF SCALING FACTOR 
IN PICTURE. SCAN OF PICTURE 

TERMINATED. PICTURE IN ERROR 
IS yyyy. THIS PICTURE OCCURS 


365 


S IEMO750I 


S IEMO751I 


S ІЕМ07521 


366 


IN STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
terminated; picture ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER PRESENT IN 
CHARACTER STRING PICTURE yyyy. 
THIS PICTURE OCCURS ІМ 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO MEANINGFUL CHARACTERS IN 
PICTURE yyyy. THIS PICTURE 
OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF,OR ILLEGAL 
CHARACTERS IN, STERLING PICTURE 
YYYY- THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
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but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER IN PICTURE 
YYYY- THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL USE OF DRIFTING EDITINC 
SYMBOLS S $ + - IN PICTURE 
YYYY- THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support; 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
PRECISION TOO LARGE OR PICTURE 
TOO LONG IN PICTURE BEGINNING 
YYYY- THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phases. 


Programmer Response:  Probable 
user error. Correct program 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR IN PHASE FT. 


Explanation: Compiler error 
found in scan of dictionary 


System Action: Compilation 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the | 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STERLING CONSTANT EXCEEDS 
4166666666666.13.3L. HIGH 
ORDER DIGITS LOST DURING 
CONVERSION TO DECIMAL. 


System Action: High order 
digits lost somewhere in the 
following conversion process: 
shift pounds field left one 
digit, double by addition. Add 
shillings field. Add result, 
doubled by addition, to result 
shifted left one digit. Add 
pence field. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
EXPONENT FIELD TOO LARGE IN 
PICTURE yyyy. THIS PICTURE 


OCCURS IN STATEMENT NUMBER XXX, 


AND POSSIBLY IN OTHER 
STATEMENTS. 


System Action: Reference to 
picture deleted 
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Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PICTURE CHARACTER E OR K 
APPEARS WITHOUT AN EXPONENT | 
FIELD FOLLOWING IT. PICTURE IN 
ERROR IS yyyy. THIS PICTURE | 
OCCURS IN STATEMENT NUMBER XXX, 
AND POSSIBLY IN OTHER | 
STATEMENTS. 


System Action: Reference to. 
picture deleted from program 


Programmer Response: Probable 
user error. Correct picture. 


If the problem recurs, do the. 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


PICTURE CHARACTER E OR K IS NOT 
PRECEDED BY A DIGIT POSITION 
CHARACTER. PICTURE IN ERROR IS 
YYYY- THIS PICTURE OCCURS IN 
STATEMENT NUMBER xxx, AND 
POSSIBLY IN OTHER STATEMENTS. 


System Action: References to 
picture deleted 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: ^ 


e Have the source program 
listing available. 


INVALID CHARACTER nnnn IN 
EXPONENT FIELD OF PICTURE yyyy 
IN STATEMENT NUMBER xxx. 


System Action: Scan of picture 
continued with item ignored, 
but picture will be ignored by 
later phase. 


Programmer Response:  Probable 
user error. Correct program. 


and recompile. If the problem, 
recurs, do the following before 
calling IBM for programming . > 
support: Ax 


e Have the source program | 
listing available. 
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ONE OR MORE FIXED BINARY ITEMS 
OF PRECISION 15 OR LESS HAVE 
BEEN GIVEN HALFWORD STORAGE. 
THEY ARE FLAGGED ° **#*#%#4#4" IN 
THE XREF/ATR LIST. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx AS 
EXPANDED IS TOO LONG AND HAS 
BEEN DELETED. 


Programmer Response:  Probable 
user error. Simplify by 
splitting into two or more 
Statements and recompile. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE GA IN STATEMENT NUMBER 
XXX 


Explanation: The compiler has 
encountered meaningless input 
to phase GA. | 


System Action: Compilation 
terminated | 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
NESTING OF FORMAT LISTS IN 
STATEMENT NUMBER xxx EXCEEDS 
20. STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN INTERMEDIATE VARIABLE HAS 
BEEN CREATED IN READ INTO 
STATEMENT NUMBER xxx. THIS 
STATEMENT SPECIFIES FILE zzzz, 
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WHICH HAS BEEN DECLARED WITH 
THE ENV(COBOL) ATTRIBUTE AND 
THE EVENT OPTION. THE EVENT 
OPTION HAS BEEN DELETED. 


Explanation: The intermediate 
variable has been created 
because there is a difference 
between the PL/I mapping and 
the COBOL mapping of the READ 
INTO variable. The READ INTO 
statement has been expanded 
into: 


READ INTO (Intermediate 
variable); 

Variable - Intermediate 
variable; 


The READ statement must have 
been completed before the 
assignment takes place. The 
EVENT option has been deleted 
to ensure that the READ 
statement is complete before 
processing continues. 


System Action: Delete the 
EVENT option and continue 


Programmer Response:  Probable 
user error. Check the use of 
the EVENT option or of the 
COBOL file. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN INTERMEDIATE VARIABLE HAS 
BEEN CREATED IN WRITE/REWRITE 
FROM STATEMENT NUMBER XXX. 
THIS STATEMENT SPECIFIES FILE 
2222, WHICH HAS BEEN DECLARED 
WITH THE ENV(COBOL) ATTRIBUTE 
AND THE EVENT OPTION. THE 
EVENT OPTION HAS BEEN DELETED. 


Explanation: The intermediate 
variable has been created 
because there is a difference 
between the PL/I mapping and 
the COBOL mapping of the 
WRITE/REWRITE FROM variable. 
The WRITE/REWRITE FROM 
statement has been expanded to: 


Intermediate 
variable = variable; 
WRITE/REWRITE FROM 
(Intermediate variable); 


The WRITE/REWRITE statement 
must have been completed before 
the intermediate variable can 
be deleted. The EVENT option 
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has been deleted to ensure that 
the WRITE/REWRITE statement is 
complete before processing 
continues. 


System Action: Delete the 
EVENT option and continue 


Programmer Response:  Probable 
user error. Check the use of 


the EVENT option or of the 
COBOL file. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE USE OF COBOL FILE zzzz IN 
LOCATE STATEMENT NUMBER xxx MAY 
LEAD TO ERRORS WHEN THE RECORD 
IS PROCESSED. 


Explanation: The COBOL 
structure-mapping is not 
necessarily the same as the 
PL/I structure-mapping. 
System Action: The statement 
is deleted 


Programmer Response:  Probable 
user error. Either the LOCATE 
Statement must be replaced by a 
WRITE FROM statement, or a 
non-COBOL file must be used. 

If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE USE OF COBOL FILE zzzz IN 
READ SET STATEMENT NUMBER xxx 
MAY LEAD TO ERRORS WHEN THE 
RECORD IS PROCESSED. 


Explanation: The COBOL 
structure-mapping is not 
necessarily the same as the 
PL/I structure-mapping. 
System Action: The statement 
is deleted 


Programmer Response: Probable 
user error. Either the READ 


SET statement must be replaced 
by a READ INTO statement, or a 
non-COBOL file must be used. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 
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THE ATTRIBUTES OF zzzz USED IN 
RECORD I/O STATEMENT NUMBER ХХХ 
ARE NOT PERMITTED WHEN A COBOL 
FILE IS USED. 


Explanation: The attributes 
referred to do not exist in 
COBOL 


System Action: The statement 


is deleted 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID ARGUMENT LIST FOR 
ALLOCATION FUNCTION IN 
STATEMENT NUMBER xxx HAS BEEN 
TRUNCATED OR DELETED. 


Explanation: Only a single 
argument can be given in the 
ALLOCATION function, and it 
must be one of the following: 


1. а major structure 


2. ап unsubscripted array or 
scalar variable, not in a 
structure 


It must also be of nonbased 
CONTROLLED storage class. 


System Action: If the argument 
list begins with a valid 
operand, that operand is used 
as the argüment; otherwise, the 
argument list is deleted. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NAME, NOT VALUE, OF FUNCTION 
2222 PASSED AS ARGUMENT IN 
STATEMENT NUMBER xxx 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


INCORRECT NUMBER OF ARGUMENTS 
FOR FUNCTION OR ROUTINE zzzz IN 
STATEMENTS yyyy. 


Explanation: Number of 
arguments differs from the 
ENTRY declaration. 


System Action: Arguments are 
matched as far as possible. 
2222 is invoked using all the 
arguments. 


Programmer Response:  Probable 
user error. Ignore this 


message if zzzz is a non-PL/I 
routine that can accept a 
variable number of arguments. 
Otherwise correct the program. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


NUMBER OF ARGUMENTS FOR 
FUNCTION OR SUBROUTINE zzzz IN 
STATEMENTS yyyy IS INCONSISTENT 
WITH NUMBER USED ELSEWHERE. 


Explanation: The number of 
arguments for zzzz has not been 
explicitly declared. 
'ELSEWHERE' refers either to 
the PROCEDURE or ENTRY 
Statement for zzzz, or to a 
previous invocation of the 
function. 


System Action:  zzzz is invoked 
using all the arguments. 


Programmer Response:  Probable 
user error. Ignore this 


message if zzzz is a non-PL/I 
routine that can accept a 
variable number of arguments. 
Otherwise correct the program. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx IT IS 
IMPOSSIBLE TO CONVERT FROM THE 
ATTRIBUTES OF ARGUMENT NUMBER 
nnnn TO THOSE OF THE 
CORRESPONDING PARAMETER IN 
ENTRY zzzz. THE PARAMETER 
DESCRIPTION IS IGNORED. 


Explanation: Self explanatory. 
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Examples of circumstances under 
which the error message is 
generated are label arguments 
to data item parameters, array 
arguments to scalar parameters. 


System Action: 
description is ignored. 
parameter description is 
correct, this will give rise to 
totally incorrect execution. 


The parameter 
If the 


Programmer Response:  Probable 
user error. Correct the 


parameter description or the 
argument so that at least 
conversion is possible. 
problem recurs, do the 
following before calling IBM 
for programming support: 


If the 


e Have the source program 
listing available. 


IN STATEMENT NUMBER ххх 
ARGUMENT NUMBER nnnn OF ENTRY 
2222 IS A SCALAR AND THE 
CORRESPONDING PARAMETER IS A 
STRUCTURE. 


System Action: A temporary 
structure of the same type as 
the parameter description is 
created and the argument is 
assigned to each base element, 
converting where necessary. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


ә Have the source program 
listing available. 


IN STATEMENT NUMBER ххх 
ARGUMENT NUMBER nnnn OF ENTRY 
2222 CONTAINS A SUBSCRIPTED 
VARIABLE WITH THE WRONG NUMBER 
OF SUBSCRIPTS. THE STATEMENT 
HAS BEEN DELETED. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DEFERRED FEATURE. IN STATEMENT 
NUMBER xxx ARGUMENT NUMBER nnnn 
OF ENTRY zzzz CONTAINS A 
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CROSS-SECTION OF AN ARRAY OF 
STRUCTURES. STATEMENT DELETED. 


Explanation: The usage 
referred to is not supported by 
this version of the compiler. 
For details, refer to Appendix 
J of this publication. ; 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx 
ARGUMENT NUMBER nnnn OF ENTRY 
2222 IS A GENERIC ENTRY NAME 
AND THERE IS NO CORRESPONDING 


ENTRY DESCRIPTION. STATEMENT 
DELETED. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx 
ARGUMENT NUMBER nnnn.OF ENTRY 
2222 IS A BUILT-IN FUNCTION 
WHICH MAY NOT BE PASSED AS AN 
ARGUMENT. STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER ххх 
ARGUMENT NUMBER nnnn OF ENTRY 
zzzz IS NOT PERMISSIBLE. THE 
STATEMENT HAS BEEN DELETED. 


Explanation: The message is 
generated, for example, when 


scalar arguments are given for 
array built-in functions. For 
the ADDR function the message 
could indicate that the 
function cannot return a valid 
result because the argument 
does not satisfy the 
requirements of contiguous 


Storage. This could occur, for 
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example, if the argument was a 
cross-section of an array. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx A DUMMY 
ARGUMENT HAS BEEN CREATED FOR 
ARGUMENT NUMBER nnnn OF ENTRY 
2222. THIS ARGUMENT APPEARS 
IN А SETS LIST. 


System Action: The value 
assigned to the temporary 
argument during the execution 
of the procedure is lost on 
return from the procedure. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER ххх 
ARGUMENT NUMBER nnnn IN ENTRY 
zzzz IS A SCALAR AND THE 
CORRESPONDING PARAMETER IS AN 
ARRAY. 


System Action: A temporary 
array with the attributes of 


the entry description is 
created and the scalar is 
assigned to each element of the 
array, converting the type if 
necessary. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx 
ARGUMENT NUMBER nnnn IN ENTRY 
2222 IS SCALAR CORRESPONDING TO 
AN ARRAY PARAMETER WITH * 
BOUNDS. THE STATEMENT HAS BEEN 
DELETED. 


Programmer Response: Probable 
user error. Correct program 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER XXX 
ARGUMENT NUMBER nnnn OF ENTRY 
zzzz DOES NOT MATCH THE 
PARAMETER. A DUMMY ARGUMENT 
HAS BEEN CREATED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER ххх CONTAINS 
TOO MANY NESTED FUNCTION 
REFERENCES. LIMIT EXCEEDED AT 
ARGUMENT NUMBER nnnn OF ENTRY 
2222 


System Action: Compilation 


terminated 


Programmer Response: Probable 
user error. Reduce depth of 


function call nesting. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN DELETED. 


System Action: Compilation 


terminated. 


Programmer Response:  Probable 
user error. Reduce statement 


Size. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
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'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


DEFERRED FEATURE. IN STATEMENT 
NUMBER xxx ARGUMENT NUMBER nnnn 
OF ENTRY 2222 IS AN EVENT. 
STATEMENT DELETED. 


Explanation: А language 
feature has been used that is 
not supported by this version 
of the compiler. For details, 
refer to Appendix J of this 
publication. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER ххх 
ARGUMENT NUMBER nnnn OF ENTRY 
2222 IS NOT CONTROLLED BUT THE 
CORRESPONDING PARAMETER IS. 


System Action: An execution 
error will occur on entry to 
the called procedure 


Programmer Response: Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx 
ARGUMENT NUMBER nnnn OF 
BUILT-IN FUNCTION zzzz IS AN 
ENTRY NAME. THE STATEMENT НА5 
BEEN DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


Е IEMO808I IN STATEMENT NUMBER ххх 
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ARGUMENT NUMBER yyy WILL CAUSE 
A DUMMY ARGUMENT TO BE PASSED 
TO ENTRY yyy IN ANOTHER TASK. 


Explanation: Dummy arguments 
passed to a subtask will cause 
temporary storage to be 
obtained which cannot be freed 
when the subtask is detached. 
This may result in the 
excessive use of storage. 


Programmer Response: Probable 
user error. Correct the source 
program so that no dummy 
arguments are created for 
arguments passed to a subtask. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


COMPILER ERROR. INVALID END OF 
STATEMENT NUMBER Xxx 


Explanation: Compiler error in 
scan of input text 


System Action: 
terminated 


Compilation is 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN LABET, CHAIN 
FOR STATEMENT NUMBER ххх 


Explanation: Compiler error in 
scanning labels of a statement 


System Action: 
terminated 


Compilation is 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
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comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


Note that this error can be 
avoided by using only one label 
on the statement. 


COMPILER ERROR IN DICTIONARY 
ENTRY FOR STATEMENT NUMBER XXX 


Explanation: Compiler error in 
scanning source text 


System Action: 


Compilation 
terminated | 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN CHECK/NOCHECK 
LIST ENTRY FOR STATEMENT NUMBER 
ххх Р 


Explanation: Compiler error іп 
CHECK or NOCHECK list 
dictionary entry 


System Action: Compilation is 


terminated 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


* Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx TOO LONG. 


Explanation: Statement length 
exceeds text-block size. 
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Programmer Res ponse: 


System Action: 
terminated. 


Compilation is 


Programmer Response:  Probable 
user error.  Subdivide 
Statement and recompile. If 
the problem recurs, do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INVALID ITEM zzzz IGNORED IN 
CHECK LIST IN STATEMENT NUMBER 
ххх 


Explanation: Valid items in 
CHECK lists are: statement 
labels, entry labels, and 
scalar, array, structure, or 
label variables.  Subscripted 
variable names, or data having 


the DEFINED attribute, are not 
allowed. 
Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. NO 
ROOM FOR zzzz IN CHECK TABLE 
STATEMENT NUMBER xxx 
Explanation: The CHECK list 
table has overflowed 


System Action: The item 
mentioned is ignored 


Probable 
user error. Do not CHECK so 
Many items. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
TOO MANY CHECKED ITEMS WITHIN 
STATEMENT NUMBER xxx 
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Explanation: А stack used to 
trace nested IF statements has 
overflowed 


System Action: Compilation is 


terminated 


Programmer Response:  Probable 
user error. Rephrase IF 


statements, or do not CHECK so 
many items. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN READ DATA 
STATEMENT NUMBER ххх 


Explanation: Compiler error in 
processing GET or READ DATA 
statement 


System Action: Compilation is 


terminated 


Programmer Response: Avoid the 
error by supplying an explicit 
DATA list. Do the following 
before calling IBM for 
programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages). 


e Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
CHECK WILL NOT BE RAISED FOR 
2222 IN STATEMENT NUMBER ххх 
BECAUSE OF EVENT OPTION 


Explanation: The compiler does 
not raise the CHECK condition 
for variables when they are 
changed in statements 
containing an EVENT option. 


Programmer Response:  Probable 
user error. Correct program 


S IEMOB32I 


5 ІЕМ08331І 


S IEMO834I 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


IN THE EXPANSION OF BY NAME 
ASSIGNMENT STATEMENT NUMBER xxx 
A SET OF MATCHING ELEMENTS HAS 
BEEN FOUND BUT THEY ARE NOT ALL 
BASE ELEMENTS. THE STATEMENT 
HAS BEEN DELETED. 


Explanation: For a valid 
component scalar assignment to 
result from a BY NAME structure 
assignment, it is necessary 
that all the scalar names 
derived from original structure 
name operands have identical 
qualification relative to the 
structure name originally 
specified. e.g: DCL 1S, 2T, 
2U, 3V; DCL 1W, 2T, 2U; W=S; 
gives rise to the component 
assignments W.T-S.T; W.U-S.U; 
the second of which is invalid. 


System Action: The BY NAME 
assignment statement is deleted 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
rules for expansion of 
structure assignment BY NAME - 
and correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE EXPANSION OF BY NAME 
ASSIGNMENT STATEMENT NUMBER ххх 
HAS RESULTED IN NO COMPONENT 
ASSIGNMENTS. 


System Action: The statement 
is treated as a null statement 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE ASSIGNED OPERAND IN BY NAME 
ASSIGNMENT STATEMENT NUMBER ххх 
IS NOT A STRUCTURE OR AN ARRAY 
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OF STRUCTURES. STATEMENT 
DELETED. 
Explanation: In BY NAME 


assignment, the operand to the 
left of the equals sign must be 
a structure or an array of 
structures. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


э Have the source program 
listing available. 


ALL OPERANDS LEFT OF EQUAL 
SYMBOL IN MULTIPLE STRUCTURE 
ASSIGNMENT STATEMENT NUMBER xxx 
ARE NOT STRUCTURES. STATEMENT 
DELETED 


Explanation: In multiple 
structure assignment, all the 
operands being assigned to must 
be structures. 


System Action: Replaces 
statement by a null statement 
and continues 


Programmer Response: Probable 
user error. Break statement up 


into a series of separate 
Statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have the source program 
listing available. 


ILLEGAL ARRAY REFERENCE IN 
STRUCTURE ASSIGNMENT OR 
EXPRESSION. STATEMENT NUMBER 
xxx DELETED. 


Explanation: In PL/I, arrays 
of scalars are invalid operands 
in structure, or array of 
structure, expressions. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMHF. 
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Explanation: Meaningless 
input. This message is also 
produced if an error is found 
in a DECLARE statement. Іп 
that case, a second message, of 
severity level severe, is 
issued giving details of the 
error. ; 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages. ) 


e Have the associated job 
stream and source program 
listing available. 


EXPRESSION RIGHT OF EQUAL 
SYMBOL IN BY NAME ASSIGNMENT 
STATEMENT NUMBER xxx CONTAINS 
NO STRUCTURES. BY NAME OPTION 
DELETED. 


Explanation: In an assignment 
statement having the BY NAME 
option, the expression to the 
right of the equal symbol 
should contain at least one 
structure or array of 
structures. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 

THE EXPANSION OF STRUCTURE 
EXPRESSIONS IN STATEMENT NUMBER 
XXX HAS CAUSED A TABLE INTERNAL 
TO THE COMPILER TO OVERFLOW. 
STATEMENT DELETED. 


FxplLanation: The nesting of 
structure expressions in 
argument lists is too deep. 


Programmer Response:  Probable 
user error. Decrease the 


nesting. If the problem 
recurs, do the following before 


S IEMO849I 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN EXPRESSION OR ASSIGNMENT IN 
STATEMENT NUMBER xxx EITHER 
CONTAINS SEPARATE STRUCTURES 
WITH DIFFERENT STRUCTURING, OR 
CONTAINS BOTH A STRUCTURE AND 
AN ARRAY OF STRUCTURES. THE 
STATEMENT HAS BEEN DELETED. 


Explanation: PL/I does not 
allow separate structures with 
different structuring within 
the same expression or 
assignment. The (F) compiler 
does not support reference to 
both a structure and an array 
of structures within the same 
expression or assignment. 


Programmer Response: Probable 
user error. Correct the source 


code. The two restrictions 
quoted above are detailed in 
the PL/I (F) Language Reference 
Manual and in Appendix J of 
this publication, respectively. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE BOUNDS OF THE BASE ARRAYS 
OF THE STRUCTURE OPERANDS OF 
THE STRUCTURE EXPRESSION OR 
ASSIGNMENT IN STATEMENT NUMBER 
ххх ARE NOT THE SAME. THE 
STATEMENT HAS BEEN DELETED. 


Explanation: In a structure 
assignment or expression, all 
structure operands must have 
the same number of contained 
elements at the next level. 
Corresponding sets of contained 
elements must all be arrays of 
structures, structures, arrays, 
or scalars. The arrays must 
have the same dimensionality 
and bounds. 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
the expansion of array and 
structure expressions and 
assignments - and correct the 
program. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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е Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN DELETED. 


Explanation: The expansion of 
structure expressions or 
assignments has given rise to a 
statement which exceeds one 
text block in length 


Programmer Response:  Probable 
user error. Decrease statement 
size. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have the source program 
listing available. 


A SUBSCRIPTED REFERENCE TO AN 
ARRAY OF STRUCTURES IN 
STATEMENT NUMBER xxx HAS THE 
WRONG NUMBER OF SUBSCRIPTS. 

THE STATEMENT HAS BEEN DELETED. 


Explanation:  Subscripted 
references to arrays must have 
subscript expressions equal in 
number to the dimensionality of 
the array 


Programmer Response:  Probable 
user error. Correct 

subscripted reference. 
problem recurs, do the 
following before calling IBM 


for programming support: 


If the 


e Have the source program 
listing available. 


DEFERRED FEATURE. A STRUCTURE 
ASSIGNMENT OR EXPRESSION IN 
STATEMENT NUMBER xxx INVOLVES 
CROSS SECTIONS OF ARRAYS. 
STATEMENT DELETED. 


Explanation: This version of 
the compiler does not support 
reference to cross sections of 
arrays of structures. 


Programmer Response:  Probable 
user error. Expand the 


Statement in DO loops replacing 
'*'s in subscripts by the 
appropriate DO control 
variable. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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IMPLEMENTATION KESTRICTION. 
NESTING OF ARRAY ASSIGNMENTS OR 
I/O LISTS TOO DEEP. STATEMENT 
NUMBER xxx DELETED. 


Explanation: Nesting of 
functions, combined with size 
of arrays involved, is too 
great 


Programmer Responses Probable 
user error. Simplify by 


splitting into two or more 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN DELETED. 


Explanation:  Nesting of 
functions with array arguments 
involves a large expansion of 
text 


Programmer Response:  Probable 
user error. Simplify by 
splitting into two or more 
Statements. If the problem 


` recurs, do the following before 


calling IBM for programming 
support : 


e Have the source program 
listing available. 


NEITHER MULTIPLE ASSIGNMENT 
COMMA NOR ASSIGNMENT MARKER 
FOUND IN CORRECT POSITION. 


STATEMENT NUMBER xxx DELETED. 


Explanation: An expression 
occurring on the left-hand side 
of an assignment must be 
contained within parentheses. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NUMBER OF * SUBSCRIPTS 
SPECIFIED FOR zzzz IS NOT THE 
DIMENSIONALITY OF THE LEFTMOST 
ARRAY. STATEMENT NUMBER xxx 
DELETED 
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Explanation: Array references 
in expressions must have the 
same dimensionality 
8 ІЕМ08711 
Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


BOUNDS OF ARRAY 2222 ARE NOT 
SAME AS FOR LEFTMOST ARRAY IN 
ASSIGNMENT OR EXPRESSION. 
STATEMENT NUMBER xxx DELETED. 5 IEMOS872I 
Explanation: Array references 

in expressions must have the 

same bounds 


onse: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DIMENSIONS OF ARRAY 2222 ARE 
NOT THE SAME AS FOR LEFTMOST 
ARRAY IN ASSIGNMENT OR I/O 
EXPRESSION. STATEMENT NUMBER 
xxx DELETED. Б IEMOS873I 
Explanation: Array references 

in expressions must have the 

same dimensionality 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ARGUMENT OF PSEUDO-VARIABLE 
INVALID. STATEMENT NUMBER ххх 
IS DELETED. 
£ IEMOS87UI 
Explanation: Arguments of 
pseudo-variables must be 
variables which are not 


expressions 
Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: а 


° Have the source program 
listing available. 


SCALAR zzzz ON LEFT OF EQUAL 
SYMBOL IN ARRAY ASSIGNMENT. 
STATEMENT NUMBER xxx DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NUMBER OF SUBSCRIPTS SPECIFIED 
FOR LEFTMOST OPERAND 2222 IS 
NOT SAME AS DIMENSIONALITY. 
STATEMENT NUMBER xxx DELETED. 


Explanation: The number of 
subscripts specified must be 
the same as the number of 
dimensions of the array 


Programmer Responses Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ARGUMENTS OF PSEUDO-VARIABLE 
COMPLEX INCORRECT. STATEMENT 
NUMBER xxx DELETED. 


Explanation: Only one argument 
given for COMPLEX, or 
expression illegally used as 
argument for pseudo-variable. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SECOND ARGUMENT OF 
PSEUDO-VARIABLE COMPLEX OR 
FIRST ARGUMENT OF REAL, IMAG, 
OR UNSPEC EITHER IS NOT 
FOLLOWED BY A RIGHT PARENTHESIS 
OR IS AN EXPRESSION. STATEMENT 
NUMBER xxx DELETED. 


Explanation: Too many 
arguments given for this 
pseudo-variable, or expression 
used as argument. 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ONSOURCE OR ONCHAR APPEARS IN A 
DIMENSIONED ARRAY ASSIGNMENT. 
STATEMENT NUMBER xxx DELETED. 


Explanation: ONSOURCE and 
ONCHAR may only appear in 
scalar assignments 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ARGUMENTS OF PSEUDO-VARIABLE 
SUBSTR INCORRECT. STATEMENT 
NUMBER xxx DELETED. 


Explanation: Only one argument 
given for SUBSTR, or expression 
illegally used as argument for 
pseudo-variable. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


UNSUBSCRIPTED ARRAY 2222 IN 
SCALAR ASSIGNMENT. STATEMENT 
NUMBER xxx DELETED. 


Explanation: Only scalars can 
be assigned to scalars 





Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STRUCTURE 2222 FOUND IN ARRAY 
OR SCALAR EXPRESSION. 
STATEMENT NUMBER xxx DELETED. 
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Explanation: Structures may 
only be assigned to structures 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


PSEUDO-VARIABLE COMPLEX, REAL, 
IMAG, UNSPEC, COMPLETION, OR 
SUBSTR LACKS ARGUMENTS. 
STATEMENT NUMBER xxx DELETED. 


Explanation: Pseudo-variables 
COMPLEX, REAL, IMAG, UNSPEC, 
COMPLETION, and SUBSTR require 
arguments 


Programmer Response: Probable 
user error. Check whether the 


variable was intended as a 
pseudo-variable or whether it 
should have been declared 
otherwise. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NUMBER OF SUBSCRIPTS SPECIFIED 
FOR zzzz IS NOT SAME AS 
DIMENSIONALITY. STATEMENT 
NUMBER xxx DELETED. 


Explanation: The number of 
subscripts specified must be 
the same as the number of 
dimensions of the array. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: ; 


ə Have the source program 
listing available. 


NUMBER OF DIMENSIONS IN 
REFERENCE TO zzzz IS NOT SAME 
AS THAT OF EXPRESSION OR 
ASSIGNMENT. STATEMENT NUMBER 
ххх DELETED. 


Programmer_Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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“ 


е Have the source program 
listing available. 


COMPILER ERROR. INVALID INPUT 
TO PHASE HK AT STATEMENT NUMBER 
XXX 


Explanation: Illegal text has 
been encountered 


System Action: Compilation 


terminated 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


DEFERRED FEATURE. STRUCTURE 
2222 PASSED AS ARGUMENT TO THE 
TRANSLATE OR VERIFY FUNCTION. 
STATEMENT NUMBER xxx DELETED. 


Programmer Response:  Probable 
user error. Remove structure 


from statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
TOO MANY LEVELS OF ISUB NESTING 
IN STATEMENT NUMBER ххх 


Explanation: Stack has 
overflowed scratch core. The 
maximum number of levels of 
nesting possible depends on the 
dimensionality of the arrays 
involved. 


System Action: Compilation 


terminated 


Programmer Response:  Probable 
user error. Reduce the number 
of levels of nesting in the 
Statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Recompile the program with 
compiler options 
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'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


ISUB DEFINED OPERAND zzzz HAS 
NOT BEEN DECLARED AS AN ARRAY. 
ISUBS IN STATEMENT NUMBER xxx 
DELETED. 


Programmer Response:  Probable 
user error. Declare defined 


item with dimension attribute. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


NO SUBSCRIPTS AFTER 
ISUB-DEFINED ITEM zzzz IN 
STATEMENT NUMBER ххх. 


Explanation: This is a 


compiler error 


System Action:  Terminates 


compilation 


Proqrammer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


MULTIPLIER IN ISUB DEFINING 
LIST FOR zzzz IN STATEMENT 

NUMBER xxx IS NOT A SCALAR 

EXPRESSION. 


Explanation: А comma has been 
found within the iSUB 
multiplier expression 


System Action:  Remainder of 
expression, after comma, 
ignored 


Programmer Response:  Probable 
user error. Rewrite 
expression. If the problem 


recurs, do the following before 


E IEMO900I 


E IEMO9011I 


E IEMO902I 


T IEMO 9031 


calling IBM for programming 
support: 


e Have the source program 
listing available. 


* USED AS SUBSCRIPT FOR ISUB 
DEFINED ITEM zzzz IN STATEMENT 
NUMBER xxx. ZERO SUBSTITUTED. 


Programmer Response:  Probable 


user error. Rewrite without *. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ISUB NUMBER IN DEFINING LIST 
FOR zzzz IN STATEMENT NUMBER 
xxx IS TOO GREAT. MAXIMUM 
NUMBER USED. 


S IEMO906I 


System Action: The iSUB number 
is replaced by the number of 
dimensions of the defined 
array. 


Programmer Response:  Probable 
user error.  Rewrite defining 


DECLARE statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


WRONG NUMBER OF SUBSCRIPTS FOR 
ISUB DEFINED ITEM zzzz IN 
STATEMENT NUMBER ххх. 
SUBSCRIPTS IGNORED OR ZERO 
SUPPLIED. 

Programmer Response:  Probable 
user error.  Rewrite with 
correct number of subscripts. 
The error may be in the 
reference to the defined item 
or in the defining DECLARE 
statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


5 ІЕМ0907І 


е Have the source program 
listing available. 


COMPILER ERROR. ERROR DETECTED 
IN DEFINING ISUB LIST FOR 2222 
IN STATEMENT NUMBER xxx 


Explanation: Compiler error. 
Either (a) SUB not found where 
expected, or (b) SUBO found 
without a multiplier 
expression. 
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System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede a11 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


STATEMENT DELIMITER FOUND 
WITHIN SUBSCRIPT LIST FOR 2222 
IN STATEMENT NUMBER xxx 


Explanation: The subscript 
Scan routine has found a 
Statement marker 


System Action: The present 
Statement is dropped and the 
new one processed. Compilation 
will not be completed. 


Programmer Response: Check the 
source text. This is probably 


a compiler error; do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,HP)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx IS TOO 
LONG AND HAS BEEN TRUNCATED. 


Statement length 
block size 


Explanation: 
exceeds text 


System Action: Statement is 
truncated. Compilation will 
not be completed. 
Programmer Response:  Probable 
user error. Simplify 
Statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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S IEM1024I 


S ТЕМ10251 


W IEM10261I 


T IEM1027I 
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e Have the source program 
listing available. 


ILLEGAL USE OF zzzz IN 
STATEMENT NUMBER ххх. 
BINARY ZERO CONSTANT IS 
SUBSTITUTED. 


А FIXED 


Explanation: A non-scalar 
identifier has been specified 
in a context that requires a 
scalar identifier. 


System Action:  Replaces 
illegal identifier with 


arithmetic constant zero 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER zzzz ILLEGALLY USED 
AS SUBSCRIPT IN STATEMENT 
NUMBER XXX 


Explanation: A subscript has 
been used which is not a 
scalar, a scalar expression, or 
a constant 


System Action:  Replaces 
illegal subscript with 


arithmetic constant zero 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
STATEMENT NUMBER xxx IS AN 
UNLABELED FORMAT STATEMENT 


ixplanation: A FORMAT 
Statement should have a label 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SUBSCRIPTED STRUCTURE ITEM 


* 


T IEM1028I 


T ІЕМ10291І 


« 


2227 IS ILLEGALLY USED ІМ 
STATEMENT NUMBER xxx 


Explanation: The indicated 
structure item is used in a 
statement other than an 
assignment statement or an I/O 
data list. 


System Action: Compilation is 


terminated 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


е Recompile the program with 
compiler options 
"S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN STATEMENT 
NUMBER xxx. ILLEGAL INPUT TEXT 
FOR PHASE IA. 
System Action:  Terminates 
compilation 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE APPEARANCE OF THE ARRAY 
CROSS-SECTION IN STATEMENT 
NUMBER xxx IS NOT SUPPORTED BY 
THIS VERSION OF THE COMPILER. 


Explanation: А feature has 
been used that is not supported 
by this version of the 
compiler. For details, 
to Appendix J or to IBM 


System/360 Operating System: 


PL/I (F) Language Reference 
Manual. 


refer 


T ІЕМ1030І 


T ІЕМ10401І 


System Action: Terminates 
compilation 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
supports: 


e Recompile the program with 
compiler options 
'S,DP=(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
TOO MANY DUMMY ARGUMENTS ARE 
BEING PASSED IN STATEMENT 
NUMBER xxx. A MAXIMUM OF 64 
DUMMY ARGUMENTS MAY BE PASSED 
IN EACH INVOCATION 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DEFERRED FEATURE. STRUCTURE 
ARGUMENT IS BEING PASSED TO 
FUNCTION zzzz IN STATEMENT 
NUMBER ххх. 


Explanation: In this version 
of the compiler, structures may 
not be passed as arguments to 
built-in functions. 


System Action: Terminates 
compilation 


Programmer Response: Probable 
user error. Rewrite program, 


avoiding unsupported feature. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


° Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 


Т IEM1051I 


T ІЕМ1056І 


T IEM1057I 


stream and source program 
listing available. 


DEFERRED FEATURE. STRUCTURE 
ARGUMENT IS BEING PASSED TO 
PSEUDO-VARIABLE zzzz IN 
STATEMENT NUMBER ххх. 


Explanation: In this version 
of the compiler, structures may 
not be passed as arguments to 
pseudo-variables. 


System Action:  Terminates 
compilation 


Programmer Response:  Probable 
user error. Rewrite program, 


avoiding unsupported feature. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


INVALID ARGUMENT IS BEING 
PASSED TO ENTRY NAME zzzz IN 
STATEMENT NUMBER xxx. 


System Action:  Terminates 
compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


DECIMAL INTEGER CONSTANT IS NOT 
BEING PASSED, AS REQUIRED, TO 
FUNCTION zzzz IN STATEMENT 
NUMBER ххх. 


Explanation: Argument to 
built-in function is not a 
decimal integer as expected. 
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T ІЕМ1058І 


T IEM1059I 
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System Action: Terminates 


compilation 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


* Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


ARRAY OR STRUCTURE ARGUMENT IS 
NOT BEING PASSED, AS REQUIRED, 
TO FUNCTION zzzz IN STATEMENT 
NUMBER xxx. 


Explanation: Argument to 
built-in function is not an 
array or a structure, as 
expected. 


System Action:  Terminates 


compilation. 


Programmer Response:  Probable 
user error. Correct statement. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


FIRST ARGUMENT BEING PASSED TO 
FUNCTION zzzz IN STATEMENT 


NUMBER xxx SHOULD BE AN ARRAY. 
Explanation: Argument to 


built-in function is not an 
array as expected 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


T IEM1060I 


T IEM1061I 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
Stream and source program 
listing available. 


TOO MANY ARGUMENTS ARE BEING. 
PASSED TO FUNCTION zzzz IN 
STATEMENT NUMBER xxx. 


Explanation: Too many 
arguments are being passed to a 


built-in function 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S, DP=(PIE, ZZ)" to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


TOO FEW ARGUMENTS ARE BEING 
PASSED TO FUNCTION zzzz IN 
STATEMENT NUMBER xxx. 


Explanation: Too few arguments 
are being passed to a built-in 
function 
System Action:  Terminates 
compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 


T IEM1062I COMPILER ERROR. 


T ІЕМ1063І 


T ІЕМ1064І 


stream and source program 
listing available. 


CORRECT 
GENERIC SELECTION FOR FUNCTION 
zzzz IN STATEMENT NUMBER xxx 
HAS NOT BEEN ACHIEVED. 


Explanation: Compiler, 
although being given a legal 
argüment to a generic built-in 
function, is unable to make the 
selection. 


Function result 
and compilation 


is set to zero 
terminated. 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR.  UNEXPECTED 
SITUATION HAS ARISEN IN THE 
SCANNING OF THE ARGUMENTS 
PASSED TO FUNCTION zzzz IN 
STATEMENT NUMBER ххх 


Explanation: Compiler is 
unable to correctly scan an 
argument list 
System Action: Function result 
is set to zero 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. THE GENERIC 
FAMILIES ASSOCIATED WITH ENTRY 
NAME zzzz HAVE BEEN INCORRECTLY 
FORMED IN THE DICTIONARY. 


T ІЕМ1065І 


T ІЕМ1066І 
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Explanation: The dictionary 
entry for one or more of the 
generic families is not a 
recognizable entry type. 


System Action:  Terminates 


compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


• Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


NO GENERIC.SELECTION POSSIBLE 
FOR THE ENTRY NAME zzzz IN 
STATEMENT NUMBER ххх. 


Explanation: Incorrect use of 
the GENERIC attribute resulting 
in no selection being possible 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


MORE THAN ONE GENERIC SELECTION 
IS POSSIBLE FOR THE ENTRY NAME 
zzzz IN STATEMENT NUMBER xxx. 


Explanation: Incorrect use of 
the GENERIC attribute resulting 
in more than one selection 
being possible 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
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T ТЕМ1067Т 


T IEM1068I 
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calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


PSEUDO-VARIABLE zzzz APPEARS IN 
STATEMENT NUMBER xxx WITH AN 
ILLEGAL ARGUMENT. 


Explanation: Argument to 


· pseudo-variable cannot be 


converted to a legal type; or, 
structure argument being used 
with pseudo-variable. 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


AN ARRAY IS BEING PASSED TO 
FUNCTION zzzz IN STATEMENT 
NUMBER xxx. THIS PRODUCES AN 


ARRAY EXPRESSION WHICH IS 


INVALID IN THIS CONTEXT. 
System Action:  Terminates 
compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'"S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


5 ІЕМ1070І 


T IEM1071I 


T IEM1072I 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. AN 
ARGUMENT OF A BUILT-IN FUNCTION 
USED IN STATEMENT NUMBER ххх 
HAS BEEN TRUNCATED TO 32,767. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


в Have the source program 
listing available. 


PSEUDO-VARIABLE 2222 APPEARS IN 
STATEMENT NUMBER xxx WITH TOO 
MANY ARGUMENTS. 
System Action:  Terminates 
compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


PSEUDO-VARIABLE 2222 APPEARS IN 
STATEMENT NUMBER xxx WITH TOO 
FEW ARGUMENTS. 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


* Have the associated job 
Stream and source program 
listing available. 


T ІЕМ1073І COMPILER ERROR. 


T ІЕМ1074І 


W IEM1075I 


CORRECT 
GENERIC SELECTION FOR 
PSEUDO-VARIABLE zzzz IN 
STATEMENT NUMBER xxx HAS NOT 
BEEN ACHIEVED. 


Explanation: Compiler error. 
Although being given a legal 
argument to a generic 
pseudo-variable, is unable to 
make the selection. 


System Action: Compilation 
terminated 
Programmer Response: Do the 


following before calling IBM 
for programming support: 


e Recompile the program with 

` compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 

"comments which precede all 
the IEMnnnnI messages.) 


s Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR.  UNEXPECTED 
SITUATION HAS ARISEN IN THE 
SCANNING OF THE ARGUMENTS 
PASSED TO PSEUDO-VARIABLE 2222 
IN STATEMENT NUMBER ххх 


Explanation: Unable to 
correctly scan an argument list 
Of а pseudo-variable 

System Action: Compilation 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE ARGUMENT 2222 OF THE STRING 
PSEUDO-VARIABLE IN STATEMENT 
NUMBER xxx CONTAINS A PICTURED 
ELEMENT. THIS IS NOT CHECKED 
FOR VALIDITY ON ASSIGNMENT. 


Explanation: Invalid data in 


T ІЕМ1076І 


T IEM1078I 
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pictured element may cause 
subsequent errors. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR IN PHASE JD 
Compilation 


System Action: 
terminates 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
THE NUMBER OF FAMILY MEMBERS 
AND ARGUMENTS ASSOCIATED WITH 
THE GENERIC ENTRY NAME yyyy 
EXCEEDS THE LIMITATION IMPOSED. 


Explanation: There is an 
implementation restriction on 
the number of family members 
and arguments associated with 
GENERIC entry names. For 
details, refer to Appendix J of 
this publication. 


System Action: Compilation 


terminated 


Programmer Response:  Probable 
user error. Divide the generic 


family into two or more generic 
families. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 
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S IEM1082I 


T ІЕМ1088І 
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e Have the associated job 
stream and source program 
listing available. 


STATEMENT NUMBER xxx CONTAINS 
AN INVALID USE OF AREA OR 
POINTER DATA. PART OR ALL OF 
THE STATEMENT HAS BEEN DELETED. 


Explanation: The statement 
contains an operation that: 


1. 15 not permitted for AREA 
or POINTER data, or 


2. сап only be used with AREA 
or POINTER data but such 
data is not the data 
specified for the 
operation. 


System.Action:  Deletes the 
Statement or clause responsible 
for the error. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SIZE OF AGGREGATE 2222 15 
GREATER THAN 8,388,607 BYTES. 
STORAGE ALLOCATION WILL BE 
UNSUCCESSFUL. 


Explanation: The message is 
generated when an array or 


Structure size exceeds 223-1 
System Action: Array or 


structure mapping for the item 
is terminated, but the 
compilation continues. 
Execution of object decks 
containing references to the 
item will give incorrect 
results. 


Programmer Response:  Probable 
user error. Check source code. 


If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'"S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 


T 1ЕМ1089І 
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stream and source program 
listing available. 


THE RELATIVE VIRTUAL ORIGIN OF 
AGGREGATE zzzz IS LESS THAN 
-8,388,608 BYTES. STORAGE HAS 
NOT BEEN ALLOCATED. 


Explanation: The low bounds of 
the arrays in the aggregate are 
too high. 


System Action: Compilation is 
terminated. 


Programmer Response: Probable 
user error. Reduce the size of 


the aggregate, or reduce the 
value of the low bounds in the 
aggregate. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE STRUCTURE 2222 DECLARED IN 
STATEMENT NUMBER xxx CONTAINS 
VARYING STRINGS AND MAY APPEAR 
IN A RECORD I/O STATEMENT 


Explanation: VARYING strings 
in structures are not permitted 
in RECORD I/O statements. 


System Action: The RECORD I/O 
Statement is processed but the 
record will contain erroneous 
information. 


Programmer Response:  Probable 
user error. Correct the source 


code. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have the source program 
listing available. 


THE TASKS, EVENTS OR LABELS 
CONTAINED IN STRUCTURE 2222 
DECLARED IN STATEMENT NUMBER 
xxx MAY LOSE THEIR VALIDITY IF 
USED IN А RECORD I/O STATEMENT. 


Explanation: The TASK, EVENT, 
or LABEL variable may lose its 
validity in transmission. 


E ІЕМ1104І 


E IEM1105I 


Programmer Response:  Probable 
user error. Correct the source 


code if necessary. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER ххх 

INVOLVES DATA.NOT ALLOWED FOR 
STRING CLASS OVERLAY DEFINING. 


Explanation: The programmer's 
use of the DEFINED attribute 
contravenes the language rules 
concerned with the permitted 
data types and dimensionality 
Of base and defined item. 


System Action: Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source’ program 
listing available. 


THE DATA CHARACTERISTICS OF 
2222 DECLARED IN STATEMENT 
NUMBER xxx DO NOT MATCH THOSE 
OF THE DEFINING BASE. 


Explanation: For valid use of 
the DEFINED attribute, both the 
defined item and the base must 
be of the same defining class. 


System Action: Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 


Programmer Response: Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 
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THE DIMENSIONALITY OF zzzz 
DECLARED IN STATEMENT NUMBER 
xxx IS NOT THE SAME AS THAT OF 
THE DEFINING BASE. 


Explanation: With the 
exception of the case of string 
class defining, if either the 
base or the defined item are 
arrays, then both the base and 
the defined item must be arrays 
with the same dimensionality. 


System Action: Compilation is 
aborted after examining other 
uses of the DEFINED attribute 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. ) If the 
problem recurs, do/!the 
following before calling IBM 
for programming support: 


е Recompile the program with 
compiler options 
'S,DP-(PIE,Z72)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER ххх 
ILLEGALLY INVOLVES VARYING 
STRINGS. 


Explanation: In use of the 
DEFINED attribute, neither the 
base nor the defined item may 
involve strings declared 
VARYING. 


System Action: Compilation is 
aborted after examining other 
uses of the DEFINED attribute. 


Programmer Response:  Probable 
user error. Refer to the PI/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the: 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
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comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE DEFINING OF zzzz DECLARED 
IN STATEMENT NUMBER xxx 
ILLEGALLY INVOLVES DATA 
AGGREGATES THAT ARE NOT 
UNALIGNED. 


Explanation: In the case of 
string class overlay defining 
where either or both the base 
and the defined item are 
aggregates, then the aggregates 
must have the PACKED attribute. 


System Action: Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 


Programmer Response: Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE DEFINING BASE OF zzzz 
DECLARED IN STATEMENT NUMBER 
xxx IS SHORTER THAN THE DEFINED 
ITEM. 


Explanation: In the case of 
string class overlay defining, 
the defined item must occupy a 
subset of the base storage. 


In the case of correspondence 
defining, the length of each 
defined element must not be 
greater than the length of each 
base element. 


System Action: Compilation is 
aborted after examining other 
uses of the DEFINED attribute 


Programmer Response:  Probable 
user error. Refer to the PL/I 
(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


е Recompile the program with 
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compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE DEFINING OF 2222 DECLARED 
IN STATEMENT NUMBER XXX 
INVOLVES А STRUCTURE HAVING 
ELEMENTS NOT ALL OF THE SAME 
DEFINING CLASS. 


Explanation: In the case of 
string class overlay defining 
where the defined item or the 
base is a structure, then all 
the elements of the structure 
must be data of the same string 
defining class. 


System Action: Defined item 
mapped onto same storage as 
item defined on. Data and 
Specification interrupts may 
occur at execution. 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE DEFINING ОЕ 2222 DECLARED 
IN STATEMENT NUMBER xxx 
ILLEGALLY INVOLVES THE POS 
ATTRIBUTE. 


Explanation: The POSITION 
attribute may only be declared 
for data of the string class 
which is overlay defined 


System Action: 
terminated 


Compilation is 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. ТЕ the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 


'S,DP-(PIE,Z22)' to obtain a 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE STRUCTURE DESCRIPTION OF 
2222 DECLARED IN STATEMENT 
NUMBER xxx DOES NOT MATCH THAT 
OF THE DEFINING BASE. 


Explanation: Where a structure 
or an array of structures is 
defined on a structure or an 
array of structures, and it is 
not string class overlay 
defining, then the two 
Structure descriptions must be 
identical. 


System Action: Defined item 
mapped onto same storage as 
item defined on. Data and 
specification interrupts may 
occur at execution. 


Programmer Response:  Probable 
user error. Refer to the PL/I 


(F) Language Reference Manual - 
"The DEFINED Attribute" - and 
correct the error. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


IF THE BASE OF zzzz DECLARED IN 
STATEMENT NUMBER xxx IS 
ALLOCATED WITH THE DECLARED 
EXTENTS, THE DEFINING WILL BE 
IN ERROR. 


Explanation: In the case of 
string class overlay defining, 
the defined item must occupy a 
subset of the base storage. If 
the base is of CONTROLLED 
Storage class, its extents are 
not finally resolved until 
execution time. 


System Action: No further 


action 


Programmer Response:  Probable 
user error. Check that when 


the base is allocated it is of 
adequate size to accommodate 
the defined item. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 
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e Have the source program 
listing available. 


THE DEFINING BASE ОЕ 22272 
DECLARED IN STATEMENT NUMBER 
xxx IS AN ARRAY FORMAL 
PARAMETER. IF THE MATCHING 
ARGUMENT IS AN ELEMENT OF AN 
ARRAY OF STRUCTURES OR A CROSS 
SECTION OF AN ARRAY, THE 
DEFINING WILL BE IN ERROR. 


Explanation: The base for 


String class overlay defining 


must occupy contiguous storage 


System Action: Comments and 


continues 


Programmer Response:  Probable 
user error. Check validity of 


arguments. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. INVALID SIGN 
FOUND IN INITIAL VALUE LIST FOR 
zzzz IN STATEMENT NUMBER xxx. 
TREATED AS PLUS. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,UJP)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. INVALID MARKER 
FOUND IN INITIAL VALUE LIST FOR 
zzzz IN STATEMENT NUMBER ххх. 
INITIAL VALUE LIST TRUNCATED. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,JP)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
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. the INITIAL string. 


stream and source program 
listing available. 


UNSUPPORTED FEATURE. AN 
EXPRESSION HAS BEEN USED TO 
INITIALIZE STATIC STRING zzzz 
IN STATEMENT NUMBER xxx. 
STRING INITIALIZED TO NULL. 


Explanation: A complex 


expression has been used to 
initialize a STATIC string. 
This is a feature of PL/I not 
supported by this version of 
the compiler. See Appendix J 
of this publication for 
details. 


System Action: The string is 
initialized to null. 


Programmer Response:  Probable 
user error.  Amend source code. 


The restriction can be overcome 
by using an assignment 
Statement instead of the 
INITIAL attribute. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


е Have the source program 
listing available. 


INITIAL VALUE FOR STATIC DATA 
ITEM 2222 IN nnnn IS NOT A 
CONSTANT.  INITIALIZATION 
TERMINATED. 


Programmer Response:  Probable 
user error. Use a constant in 


If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ITERATION FACTOR USED IN 
INITIALIZATION OF STATIC ARRAY 
2222 IN STATEMENT NUMBER xxx IS 
TOO LARGE.  REPLACED BY ZERO. 


Explanation:  Iteration factors 
are converted by the compiler 
to REAL FIXED BINARY with a 
default precision of 15,0. The 
iteration factor referred to in 
the message has a value greater 
than 215, and therefore exceeds 
the default precision. 


System Action: The iteration 
factor is replaced by zero 


Programmer Response:  Probable 
user error. Amend source code 
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so that iteration factor does 
not exceed 215. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL TRIPLE 


IN TEXT. CURRENT STATEMENT 
NUMBER xxx 
Explanation: Phase KT is out 


of step in scanning text 


System Action: Recovery 
impossible. Compilation is 


terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR NUMBER nnnn IN 
PHASE KE. 


Explanation: Compiler error in 
dictionary or text scan. 


System Action: Compilation 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


e Recompilation should also 
be tried without the OPT=2 
option. 
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Explanation: Compiler error 
found in scan of dictionary. 


System Action: Compilation 
terminated. 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR NUMBER nnnn IN 
PHASE KU IN STATEMENT NUMBER 
XXX. 


Explanation: А compiler error 
has occurred in the DO loop 
control optimization phase. 


System Action: Compilation is 
terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


e Recompilation should also 
be tried without the OPT-2 
option. 


COMPILER ERROR. INVALID INPUT 
TYPE nnnn TO OPTIMIZING PHASE 
KO. 


System Action: Compilation 
terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
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compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


e Recompilation should also 
be tried without the OPT-2 
option. 


COMPILER ERROR NUMBER nnnn IN 
PHASE KA. 


Explanation: An invalid 
request has been encountered by 
the table-handling routines in 
Phase KA. 


System Action: Compilation is 
terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN PHASE KG IN 
OR NEAR STATEMENT NUMBER ххх 


Explanation: An error has 
occurred while scanning text or 
tables. 


System Action: Compilation 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


e Recompilation should also 
be tried without the OPT-2 
option. 
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IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 


Explanation: The number of 
symbolic register names 
generated by the code 
generation section of the 
compiler has exceeded the 
maximum number allowed 
System Action: Compilation is 
terminated 


Programmer Response: Probable 
user error. Programmer should 


break down the compilation into 
smaller modules. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. INVALID TRIPLE 
FOLLOWING WHILE PRIME TRIPLE. 


Explanation: Input to phase LG 
of compiler is erroneous. A 
WHILE' triple is not followed 
by CV' or compiler label. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-z(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 


Explanation: No more core is 
available for the stack of 
nested DO statements (both in 
source language and those 
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generated internally for array 
assignments etc.) 


System Action: Compilation is 


terminated 


Programmer Responses Probable 
user error. Simplify nesting 


so as to reduce number of 
levels. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP=(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


ILLEGAL USE OF ARRAY OR 
STRUCTURE VARIABLE IN DO 
STATEMENT NUMBER xxx 


Explanation: A non-scalar 
variable has been used as (1) 
the control variable, or (2) a 
control variable subscript, or 
(3) a loop limit or increment 
value. 


System Action: Generates an 
error stop at execution time 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID LOOP CONTROL EXPRESSION 
OR CONTROL VARIABLE SUBSCRIPT 
IN STATEMENT NUMBER xxx 
REPLACED BY FIXED BINARY 
TEMPORARY. 


Explanation: Either something 
other than an arithmetic or 
string datum has been used as a 
subscript in the control 
variable, or something other 
than an arithmetic or string 
datum, label variable, or label 
constant has been used in an 
initial value, TO or BY clause. 


System Action: Ignore the 
erroneous expression and use a 


fixed binary temporary 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem | 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DO LOOP. CONTROL PSEUDO-VARIABLE 
IN STATEMENT NUMBER xxx HAS AN 
INVALID ARGUMENT. BINARY 
INTEGER TEMPORARY ASSUMED. 
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Explanation: An invalid 
argument, such as an expression 
or function, has been used ina 
pseudo-variable. 


System Action: Assigns invalid 
argument to binary temporary, 
and uses the latter as 
argument. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


VARYING STRING HAS BEEN USED AS 
AN ARGUMENT TO ADDR FUNCTION IN 
STATEMENT NUMBER xxx 


Ixplanation: The result of the 
ADDR function can only be 
assigned to a pointer 
qualifying a based variable. 

If the argument to the ADDR 
function is a VARYING string, 
the length of the data in the 
based variable may not be the 
length required in the program. 
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System.Action: None 


Programmer Response:  Probable 
user error. Check this use of 


the ADDR function. ТЕ the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


A STATEMENT LABEL CONSTANT IS 

BEING PASSED AS AN ARGUMENT TO 
THE ADDR BUILT-IN FUNCTION IN 

STATEMENT NUMBER xxx 


Explanation: The argument to 
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the ADDR built-in function must 
be a variable. 


Programmer Response:  Probable 
user error. Correct source 


program. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
ABSOLUTE REGISTER NUMBER. 
STATEMENT NUMBER ххх 


Explanation: Compiler error. 
Fixed binary arithmetic uses an 
unassigned general register 
number greater than 15, or 
floating arithmetic uses a 
floating register greater than 
6. 


Compilation is 
error messages 


System Action: 
terminated and 


printed. 
Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
STATEMENT NUMBER xxx REQUIRES 
MORE THAN 200 INTERMEDIATE 
RESULT DESCRIPTIONS. 


Explanation: Compiler 
limitation. The temporary 


result stack, which holds 200 
items, is full. 


System Action: Compilation is 
terminated and error messages 
printed 


Programmer Response:  Probable 
user error. This error should 


only occur in very large 
Statements. Divide the 
Statement into two smaller 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Recompile the program with 
compiler options 
'S,DP=(PIE,2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR.  INSUFFICIENT 
NUMBER OF TEMPORARY RESULT 
DESCRIPTIONS. STATEMENT NUMBER 
ххх 


Explanation: Compiler error. 

A temporary result is required 
but the temporary result stack 
is empty. This can happen if 
the triples are out of order or 
if extra triples have been 
inserted. 


System Action: Compilation is 
aborted and error messages 
printed 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the - 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. COUNT OF FREE 
FLOATING REGISTERS IS WRONG. 
STATEMENT NUMBER ххх 


Explanation: Compiler error in 
expression evaluation phase. 
Error in control blocks for 
floating registers. 


System Action: Compilation is 
terminated and error messages 
printed 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the progxam with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
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comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. SECOND OPERAND 
FOR RS OR SS INSTRUCTION IS IN 
A REGISTER. STATEMENT NUMBER 
XXX 


Explanation: Compiler error in 
expression evaluation phase. 
Attempt to generate an RS or SS 
type pseudo-code instruction 
using a register as the 2nd 
operand. 


System Action: Compilation is 
terminated and error messages 
printed. 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


IN STATEMENT NUMBER xxx FIXED 
DECIMAL VARIABLE CANNOT BE 
CORRECTLY CONVERTED TO BINARY 
DUE TO SIZE OF SCALE FACTOR. 


Explanation: Error in source 
program. When a fixed decimal 


variable is corrected to fixed 
binary, the magnitude of its 
scale factor is multiplied by 
3.31. If the original scale 
factor is >38 or <-38, then the 
fixed binary scale factor would 
be outside the range *127 to 
-128. 


System Action: The fixed 
binary scale factor is set to 
*127 or -128. Processing 
continues. 


Programmer Response:  Probable 
user error. The data in the 


expression must be re-declared 
with more suitable scale 
factors. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


FUNCTION NOT 
FOLLOWED BY RESULT DESCRIPTION. 
STATEMENT NUMBER ххх 


Explanation: Compiler error. 

A function is not followed by 
TMPD or LEFT triples giving the 
result type. 


System Action: Compilation is 
terminated and error messages 
printed 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 
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e Have the associated job 
stream and source program 
listing available. 


LABEL, EVENT, FILE, OR TASK 
ITEM zzzz IN STATEMENT NUMBER 
xxx IS USED IN AN EXPRESSION 
WHICH IS ILLEGAL. 


Explanation: Error in source 
program. A label, event, file, 
or task datum cannot be used in 
an expression. Alternatively, 
this can be a compiler error 
when an unrecognizable 
dictionary entry is used in an 
expression. 


System Action: Substitute a 
fixed binary (31,0) data item 
(if the illegal item occurs in 
an arithmetic expression) or a 
null bit string (if it occurs 
in a string expression). 
Processing is continued. 
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Programmer Response:  Probable 
user error. If error in source 
program, correct it. If the 
problem recurs, do the 
following before calling 
for programming support: 


IBM 


e Have the source program 
listing available. 


LT, LE, GE, OR GT COMPARISON 
OPERATOR ILLEGALLY USED IN 
STATEMENT NUMBER xxx WITH 
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COMPLEX OPERANDS.  REPLACED 
WITH EQUALS OPERATOR. 


Explanation: Error in source 
program. The only legal 
comparison between complex 
operands is 'z'. 


System Action: The operator is 
replaced with "-' and 
processing continues 


Programmer Response:  Probable 
user error. Correct source 


program using either the ABS 
function or possibly the REAL 
and IMAG functions. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL 
DICTIONARY REFERENCE X'00.."' 
STATEMENT NUMBER ххх 


Explanation: Compiler error. 
The symbolic dictionary 
reference is less than 256. 


System Action: Compilation 
terminated and error messages 
printed 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN PHASE LW AT 
STATEMENT NUMBER ххх. 
INSUFFICIENT NUMBER OF 
TEMPORARY RESULT DESCRIPTIONS. 


Explanation: Compiler error. 

A temporary result is required 
but the temporary result stack 
is empty. This can happen if 
the triples are out of order or 
if extra triples have been 
inserted. 


System Action: Compilation is 


terminated and error messages 
printed 


397 


E ТЕМ1611Т 


М IEM1612I 


398 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. А 
STRING RESULT LONGER THAN 32767 
IS PRODUCED BY CONCATENATE IN 
STATEMENT NUMBER xxx. STRING 
TRUNCATED TO LENGTH 32767. 


Explanation: Maximum string 
length for this implementation 
is 32767. This may be exceeded 
during concatenation, because 
the length of the intermediate 
result is the sum of the 
operand lengths. 


System Action: Compilation 
continues with string result 
length truncated to 32767 


Programmer Response:  Probable 
user error. Shorter strings 


must be used. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION IN 
STATEMENT NUMBER xxx. 
INTERMEDIATE WORK SPACE IS 
OBTAINED MORE THAN 50 TIMES IN 
A STRING EXPRESSION. SOME WORK 
SPACE WILL NOT BE RELEASED 
UNTIL THE END OF THE BLOCK. 


Explanation: The intermediate 
work space is required each 
time a function returns a 
String result or each time a 
library module is called 


System Action: The first 50 
areas of work space are 
released. The remainder may 
not be released until the end 
of the block. Compilation 
continues and execution is 
valid. 


Programmer Response:  Probable 
user error. Divide the string 


S IEM1613I 
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expression into several 
sub-expressions. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ILLEGAL USE OF ARRAY OR 
STRUCTURE VARIABLE IN STATEMENT 
NUMBER xxx 
Explanation: Illegal source 
program 


System Action: Severe error 
message and object program 
branch. Compilation continues, 
assuming scalar of same type if 
array, or fixed binary (31,0) 
type if structure. 


Programmer Response: Probable 
user error. Insert DO blocks 
for array, or break down 
structure into its components. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. A 
VARYING STRING RESULT LONGER 
THAN 32767 MAY BE PRODUCED BY 
CONCATENATE IN STATEMENT NUMBER 
xxx. STRING TRUNCATED TO 
LENGTH 32767. 


Explanation: The sum of the 
Maximum lengths of two strings 
in a concatenation operation 
exceeds the implementation 
restriction of 32767. Since 
one or both of the operands is 
a VARYING string, it is not 
known at compile-time whether 
the restriction will be 
exceeded at execution time. 


System Action: Compilation 
continues with string result 
maximum length truncated to 
32767. 


Programmer Response:  Probable 
user error. Shorter strings 


must be used if the sum of the 
execution-time current lengths 
will ever exceed 32767. ТЕ the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


Е IEM1615I SECOND ARGUMENT IN THE SUBSTR 
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FUNCTION IN STATEMENT NUMBER 
xxx IS ZERO, WHICH IS INVALID. 
ZERO HAS BEEN REPLACED BY ONE. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SECOND ARGUMENT IN THE SUBSTR 
PSEUDO-VARIABLE IN STATEMENT 
NUMBER xxx IS ZERO, WHICH IS 
INVALID. ZERO HAS BEEN 
REPLACED BY ONE. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


° Have the source program 
listing available. 


COMPILER ERROR. ILLEGAL RETURN 
FROM SCAN ROUTINE. STATEMENT 
NUMBER xxx 


Explanation: An illegal return 
of control has been made by the 
SCAN routine which supports the 
code generation phases. 

System Action: Compilation is 
terminated. 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


PSEUDO-VARIABLE IN STATEMENT 
NUMBER xxx INCORRECTLY 
SPECIFIED.  REPLACED BY FIXED 
BINARY TEMPORARY. 


Explanation: A pseudo-variable 
in the given source statement 
has béen incorrectly specified, 
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e.g. has an incorrect number 
of arguments. 


System Action: Ignores the 
pseudo-variable and uses a 
fixed binary temporary instead. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


RIGHT HAND SIDE OF STATEMENT 
NUMBER xxx CANNOT BE ASSIGNED 
TO A PSEUDO-VARIABLE. 
ASSIGNMENT IGNORED. 


Explanation: The expressin on 
the right-hand side of the) 
specified statement cannot ibe 





.assigned to а pseudo-variable, 


i.e. it is not an arithmetic 
or string datum. 


System Action: The assignment 
is deleted from the text. 


Programmer Responses  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: : 


e Have the source program 
listing available. 


"IMAG' IN STATEMENT NUMBER xxx 
HAS REAL ARGUMENT.  REPLACED BY 
ASSIGNMENT TO TEMPORARY FIXED 
BINARY INTEGER. 


Explanation: The 
pseudo-variable 'IMAG' is 


meaningful only if its argument 
is of type complex. 


System Action: A fixed binary 
temporary target is provided 
for the assignment or input 
data list item and the 
pseudo-variable is ignored 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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ILLEGAL PSEUDO-VARIABLE 
ARGUMENT IN STATEMENT NUMBER 
xxx REPLACED BY BINARY 
TEMPORARY. 


Explanation: A pseudo-variable 
in the specified statement has 
an illegal argument, i.e. one 
whose data type is not 
permissible in that context. 


System Action: A temporary 
whose type is legal in the 
context is used to replace the 
erroneous argument and the 
latter is removed from the text 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FIRST ARGUMENT OF 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx IS NOT A 
STRING VARIABLE. ARGUMENT HAS 
BEEN CONVERTED TO STRING 
TEMPORARY AND THE ASSIGNMENT 
MADE THERETO. 


Explanation:  SUBSTR 
pseudo-variable cannot have a 
first argument which is not a 
string variable. 


System Action: Code is 
compiled to assign to a string 


temporary. The original 
argument remains unchanged. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PSEUDO-VARIABLE REAL IN 
STATEMENT NUMBER xxx DOES NOT 
HAVE COMPLEX ARGUMENT. 
ARGUMENT HAS BEEN TREATED AS 
HAVING ZERO IMAGINARY PART. 


System Action: Code is 
generated to perform assignment 


to the specified REAL argument 


Programmer Response:  Probable 
user error. Correct pxogram 


and recompile. If the problem 
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recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL NEGATIVE SECOND 
ARGUMENT IS BEING PASSED TO THE 
FUNCTION SUBSTR IN STATEMENT 
NUMBER xxx. AN EXECUTION ERROR 
WILL RESULT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL NEGATIVE THIRD ARGUMENT 
IS BEING PASSED TO THE FUNCTION 
SUBSTR IN STATEMENT NUMBER ххх. 
AN EXECUTION ERROR WILL RESULT. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


THE SUBSTRING SPECIFIED BY THE 
SECOND AND THIRD ARGUMENTS TO 
THE FUNCTION SUBSTR IN 
STATEMENT NUMBER xxx DOES NOT 
LIE WITHIN THE FIRST ARGUMENT. 
AN EXECUTION ERROR WILL RESULT. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SECOND ARGUMENT TO THE 
FUNCTION SUBSTR IN STATEMENT 
NUMBER xxx IS GREATER THAN THE 
LENGTH OF THE FIRST ARGUMENT. 
AN EXECUTION ERROR WILL RESULT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


T IEM1630I COMPILER ERROR IN 
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CEIL/FLOOR/TRUNC IN-LINE 

FUNCTION IN STATEMENT NUMBER 

XXX 

S IEM1633I 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


S IEM163UI 


COMPILER ERROR IN MOD IN-LINE 
FUNCTION IN STATEMENT NUMBER 
XXX 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


S IEM1635I 


e Have the associated job 
stream and source program 
listing available. 


THE INVOCATION OF THE ROUND 
FUNCTION IN STATEMENT NUMBER 
XXX WILL ALWAYS GIVE A ZERO 
RESULT. 


Ixplanation: (р - д + ү) is 
zero or negative, where 

p = precision, q = scale 
factor, and r = rounding 
position. 


S IEMI636I 


System Action: Result is set 


to zero 


Programmer Response:  Probable 
user error. Check scale and 


precision of the first argument 
in ROUND function. If the 
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Programmer Response: 


problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


ILLEGAL NEGATIVE SECOND 
ARGUMENT IS BEING PASSED TO THE 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx. AN 
EXECUTION ERROR WILL RESULT. 


Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL NEGATIVE THIRD ARGUMENT 
IS BEING PASSED TO THE 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx. AN 
EXECUTION ERROR WILL RESULT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SUBSTRING SPECIFIED BY THE 
SECOND AND THIRD ARGUMENTS TO 
THE PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx DOES NOT 


LIE WITHIN THE STRING zzzz. AN 
EXECUTION ERROR WILL RESULT. 
Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SECOND ARGUMENT TO THE 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx IS GREATER 
THAN THE LENGTH OF THE STRING 
2222. AN EXECUTION ERROR WILL 
RESULT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE THIRD ARGUMENT TO THE 
FUNCTION SUBSTR IN STATEMENT 
NUMBER xxx IS GREATER THAN THE 
LENGTH OF THE FIRST ARGUMENT. 
AN EXECUTION ERROR WILL RESULT. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE THIRD ARGUMENT TO THE 
PSEUDO-VARIABLE SUBSTR IN 
STATEMENT NUMBER xxx IS GREATER 
THAN THE LENGTH OF THE STRING 
2222. AN EXECUTION ERROR WILL 
RESULT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. INCORRECT 
INPUT TO SUBROUTINE 6 IN MODULE 
ТЕММЕ IN STATEMENT NUMBER ххх. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME zzzz DOES 
NOT MATCH ANY OF THE FAMILY 
MEMBERS. 


W IEM1641I 


T IEM1642I 


System_Action: Terminates 
compilation 

Programmer Response: Probable 
user error. Provide correct 
parameter description. If the 


problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME 2222. 
DESCRIBES THE ENTRY NAME'S 
RESULT TYPE RATHER THAN 
ARGUMENT TYPE. IF POSSIBLE, 
GENERIC SELECTION WILL BE MADE 
ON THE BASIS OF THIS RESULT 
TYPE. 


Programmer Response:  Probable 
user error. Provide fuller 
parameter description. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME zzzz IS NOT 
SUFFICIENT FOR THE PURPOSES OF 
GENERIC SELECTION. 


System Action:  Terminates 
compilation 

Programmer Response:  Probable 
user error. Provide fuller 


parameter description. If the 
problem recurs, do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
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stream and source program 
listing available. 


COMPILER ERROR. THE PARAMETER 
DESCRIPTION RELATING TO THE 
PASSING OF THE GENERIC ENTRY 
NAME 2222 IS INCORRECTLY FORMED 
IN THE DICTIONARY. 


System Action: Terminates 


compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. THE GENERIC 
FAMILIES ASSOCIATED WITH ENTRY 
NAME zzzz HAVE BEEN INCORRECTLY 
FORMED IN THE DICTIONARY. 


Explanation: The dictionary 
entry for one or more of the 
generic families is not a 
recognizable entry type. 
System Action:  Terminates 
compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE PARAMETER DESCRIPTION 
RELATING TO THE PASSING OF THE 
GENERIC ENTRY NAME zzzz RESULTS 
IN MORE THAN ONE POSSIBLE 
FAMILY MEMBER SELECTION. 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. Provide fuller 
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parameter description. If the 
problem recurs, do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. FUNCTION 
REFERENCE MISSING FROM TEXT IN 
STATEMENT NUMBER xxx 


Explanation: Incorrect 
handling of text by previous 
phase. 


System Action: Terminates 


compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
*5,рр= (РІЕ,77)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. INCORRECT 
FORMATION OF ARGUMENT LIST 
ASSOCIATED WITH ENTRY NAME 2222 
IN STATEMENT NUMBER ххх 


Explanation: Incorrect 
handling of text by previous 
phase 


System Action:  Terminates 


compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMrinnnI messages.) 
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e Have the associated job 
stream and source program 
listing available. 


INCORRECT 
HANDLING OF ARGUMENT LIST 
ASSOCIATED WITH ENTRY МАМЕ 2222 
IN STATEMENT NUMBER ххх 


Explanation: Incorrect 
handling of text by previous 
phase 

System Action:  Terminates 
compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 





e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. ARGUMENT 
REFERENCE MISSING FROM ARGUMENT 
LIST ASSOCIATED WITH ENTRY NAME 
2222 IN STATEMENT NUMBER xxx 


Explanation: Incorrect 
handling of text by previous 
phase 


System Action: Terminates 


compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
INVOCATIONS ARE NESTED BEYOND 
THE MAXIMUM PERMITTED LEVEL IN 
STATEMENT NUMBER xxx 


Explanation:  Nesting level 
exceeds implementation limit 


T ІЕМІ65ШІ 
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System Action: Terminals 


compilation 


Programmer Responses  Probable 
user error. Reduce nesting 


level. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE GENERIC PROCEDURE 2222 IS 
BEING INVOKED WITHOUT AN 
ARGUMENT LIST IN STATEMENT 
NUMBER XXX 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. Supply argument 


list. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 

TOO MUCH WORKSPACE REQUIRED FOR 
TEMPORARY RESULTS IN STATEMENT 
NUMBER XXX 


System Action:  Terminates 


compilation 


Programmer Response: Probable. 
user error.  Subdivide the 


statement in question into two 
or more separate statements. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z)' to obtain | a 
formatted dump of the 
compiler. (Refer to the 


E IEM1657I 


comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


T IEM16561 COMPILER ERROR. INCORRECT 


INPUT TO PHASE MF FOR 
COMPLETION BUILT-IN FUNCTION IN 
STATEMENT NUMBER ххх. 


Explanation: The compiler has 
encountered incorrect input to 
phase MF. 


System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE FILE zzzz, WHICH HAS BEEN 
DECLARED WITH THE COBOL OPTION, 
IS BEING PASSED AS AN ARGUMENT 
IN STATEMENT NUMBER XxXX. 


Explanation:  (F) compiler 
restriction: files with the 
COBOL option may not be passed 
as arguments. 


System Action: Comment and 
continue 


Programmer Response:  Probable 
user error. Correct source 


program if necessary. ТЕ the 
problem recurs, do the 
following before calling IBM 
for programming support: 


е Have the source program 
listing available. 


IN STATEMENT NUMBER ххх, 2222 

IS NOT A PERMISSIBLE ARGUMENT. 
AN EXECUTION ERROR WILL RESULT 
IF THE CORRESPONDING PARAMETER 
IS REFERENCED 


Explanation: A condition name 
appears as an argument in a 
CALL statement or function 
reference. This is illegal. 


T IEM1670I 
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System Action: Attempts to pass 
the argument. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATEMENT NUMBER xxx HAS CAUSED 
A TABLE INTERNAL TO THE 
COMPILER TO OVERFLOW. 


Explanation: Either the 
nesting of procedure arguments 
requiring dummies is too deep, 
or too many temporary results 
are required between the 
assignment of an argument 
expression to a dummy and the 
procedure call. 


System Action: Compilation is 
terminated 


Programmer Response:  Probable 
user error. Reduce complexity 


of argument expressions. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR NUMBER MP nnnn 
IN STATEMENT NUMBER ххх 


Explanation: This is a 
compiler error 


System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 
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® Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. TRIPLE 
OPERATOR NOT RECOGNIZED IN 
STATEMENT NUMBER xxx 


Explanation: Illegal input 
from a previous phase 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages. ) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. OPTIMIZED 
SUBSCRIPT INCORRECTLY FORMED IN 
STATEMENT NUMBER ххх 


Explanation: Illegal input 
from a previous phase 
System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
‘stream and source program 
listing available. 


COMPILER ERROR. ARRAY NAME 
zzzz INCORRECTLY DESCRIBED AS 
DEFINED IN STATEMENT NUMBER ххх 


Explanation: Array incorrectly 
described by a previous phase 
as having the DEFINED attribute 
System Action: Compilation is 
terminated 


Programmer Response: Do the 
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following before calling IBM 
for programming support: 


e Recompile;the program with 
compiler options 
'S,DP-2(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. ARRAY zzzz IS 
INCORRECTLY SUBSCRIPTED IN 
STATEMENT NUMBER xxx 


Explanation: Illegal input 
from a previous phase 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
SUBSCRIPT NESTED TO DEPTH 
GREATER THAN 50 LEVELS IN 
STATEMENT NUMBER XXX 


Explanation:  Subscript nesting 
exceeds fifty levels 


System Action: 
terminated 


Compilation is 


Programmer Response:  Probable 
user error. Reduce amount of 


nesting and recompile. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 


stream and source program 
listing available. 
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WITH ARRAY 2222 IN STATEMENT 
NUMBER xxx IS INCORRECT. 


S IEM17501 


Explanation: The number of 
subscripts given does not agree 
with the declared 
dimensionality of the array. 


System Action: Compilation is 


terminated 


Programmer Response:  Probable 
user error. Add or delete 


subscripts as appropriate. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 
S IEM1751I 
e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
Stream and source program 
listing available. 


TRANSLATE FUNCTION IN STATEMENT 
NUMBER xxx HAS A CHARACTER OR 
BIT DUPLICATED IN ITS THIRD 
ARGUMENT. 

Explanation: This may be a W IEM1752I 
source program error. 


Programmer Response:  Probable 
user error. Check that the 


character or bit was 
intentionally duplicated. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


VERIFY FUNCTION IN STATEMENT 
NUMBER xxx HAS A CHARACTER OR 
BIT DUPLICATED IN ITS SECOND 
ARGUMENT. 


Explanation: This may be a 
source program error. 


Programmer Response:  Probable 
user error. Check that the 


character or bit was 
intentionally duplicated. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 
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е Have the source program 
. listing available. 


Zzzz IS AN ILLEGAL OPERAND IN 
AN IF STATEMENT OR WHILE CLAUSE 
IN STATEMENT NUMBER xxx. IT 
HAS BEEN REPLACED BY A ZERO BIT 
STRING. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


THE IDENTIFIER zzzz IS AN 
ILLEGAL ARGUMENT OF THE RETURN 
STATEMENT NUMBER xxx AND HAS 
BEEN DELETED. 


Explanation: Illegal arguments 
include arrays and structures. 


Programmer Responses Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
Support: 


e Have the source program 
listing available. 


THE ATTRIBUTES OF THE 
EXPRESSION USED IN THE RETURN 
STATEMENT IN STATEMENT NUMBER 
xxx CONFLICT WITH THE 
ATTRIBUTES OF SOME OR ALL OF 
THE ENTRY POINTS OF THE 
CONTAINING PROCEDURE. AN 
EXECUTION FAILURE MAY OCCUR AT 
THIS STATEMENT. 


Explanation: After a call toa 
procedure through an entry 
point with POINTER, AREA or 
data attributes, any RETURN 
statement encountered must 
return a value of type POINTER 
or AREA or of a data type 
compatible with the data 
attributes of the entry point. 


System Action: The ERROR 
condition is raised 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calting IBM for programming 
support: 
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* Have the source program 
listing available. 
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RETURN STATEMENT IN STATEMENT 
NUMBER xxx AND THE ATTRIBUTES 
OF THE CONTAINING PROCEDURE ARE 
INCOMPATIBLE. EXECUTION OF 
THIS STATEMENT WILL RESULT IN A 
FAILURE. 


Explanation: After a call toa 
procedure through an entry 
point with POINTER, AREA or 
data attributes, any RETURN 
statement encountered must 
return a value of type POINTER 
or AREA or of a data type 
compatible with the data 
attributes of the entry point. 


System Action: The ERROR 
condition is raised 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE EXPRESSION USED IN THE 
RETURN STATEMENT IN STATEMENT 
NUMBER xxx IS INVALID 


Explanation: The only 
permitted arguments are data 


types STRING, POINTER, and 
AREA. 


System Action: Raise ERROR 
condition on execution of the 
Statement. 


Programmer Responses  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPTION SPECIFICATION CONTAINS 
INVALID ARGUMENT, DEFAULT USED 
FOR SORMGIN. 


Explanation: This message is 
written directly on SYSPRINT. 
The compiler found that an 
argument to the SORMGIN option 
was either zero or greater than 
100. 


W IEM1790 


S IEM1793I 


T IEMI1794I 


System Action: The default 
interpretation for SORMGIN, as 
set at system generation, is 
used. 


Programmer Response:  Probable 
user error. Correct the 


erroneous argument, and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA CONVERSIONS WILL BE DONE 
BY SUBROUTINE CALL IN THE 
FOLLOWING STATEMENTS yyyy 


Programmer Response: Check to 
see if the conversion can be 


avoided or performed in line 


ILLEGAL ASSIGNMENT OR 
CONVERSION IN STATEMENT NUMBER 
XXX.  EXECUTION WILL RAISE THE 
ERROR CONDITION. 


Explanation: Illegal 
assignment or conversion in 
source statement, e.g. label 
to arithmetic. 


System Action: An instruction 
is compiled which will cause 
execution to abort if the 
Statement is executed 


Programmer Responses:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR IN STATEMENT 
NUMBER xxx PHASE OE. 


Explanation: Compiler error 
caused by input text in bad 
format 


System Action: Compilation is 


terminated 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-Z(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
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comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INVALID ITEM IN FREE STATEMENT 
NUMBER xxx 


Explanation: Variable in FREE 
statement is either not 
CONTROLLED or not at level 1 


System Action: Error condition 
and message given at object 
time 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ASSIGNMENT OF AN ILLEGAL LABEL 
CONSTANT IN STATEMENT NUMBER 
XXX. 


Explanation: The label 
constant does not appear in the 
value list in the DECLARE 
Statement for the label 
variable. 


System Action: Accepts label 
constant as if in value list 
and continues compilation. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CONVERSION OF NULL VALUES IN 
POINTER/OFFSET ASSIGNMENTS IS 
INVALID. NULLO HAS BEEN 
REPLACED BY NULL, OR NULL BY 
NULLO, IN STATEMENT NUMBER XXX 


Explanation: A NULLO offset 
type constant has been assigned 
to a pointer, or a NULL pointer 
type constant to an offset. 
Conversion of null values is 
not allowed. The constant type 
has been corrected. 

System Action: The assignment 
is unaffected 
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Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
FLOATING-POINT. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 


System Action: Truncates 
result. 

Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO FLOATING-POINT OF 
THE STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
FIXED BINARY. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO FIXED BINARY OF 
THE STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
FIXED DECIMAL. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 


System Action: Truncates 


result. 
Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO FIXED DECIMAL OF 
THE STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USE OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
DECIMAL NUMERIC FIELD. THE 
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ERROR WAS DETECTED ІМ STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO DECIMAL NUMERIC 
FIELD OF THE STERLING CONSTANT 
WHICH HAS DECIMAL PENCE FORM 
уууу. THE ERROR WAS DETECTED 
IN STATEMENT NUMBER xxx BUT 
CHECK ALL SIMILAR USES OF THIS 
CONSTANT. 


Programmer Responses Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
STERLING NUMERIC FIELD. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response:  Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO STERLING NUMERIC 
FIELD OF THE STERLING CONSTANT 
WHICH HAS DECIMAL PENCE FORM 
уууу. THE ERROR WAS DETECTED 
IN STATEMENT NUMBER xxx BUT 
CHECK ALL SIMILAR USES OF THIS 
CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
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the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
BIT STRING. THE ERROR WAS 
DETECTED IN STATEMENT NUMBER 
xxx BUT CHECK ALL SIMILAR USES 
OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO BIT STRING OF THE 
STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response:  Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


AN ERROR HAS OCCURRED WHEN 
CONVERTING THE CONSTANT yyyy TO 
CHARACTER STRING. THE ERROR 
WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response: Probable 
user error. Change the 
constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


S IEM1816I 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
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CONVERSION TO CHARACTER STRING 
OF THE STERLING CONSTANT WHICH 
HAS DECIMAL PENCE FORM yyyy. 
THE ERROR WAS DETECTED IN 
STATEMENT NUMBER xxx BUT CHECK 
ALL SIMILAR USES OF THIS 
CONSTANT. 


Programmer Response:  Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION OF THE CONSTANT yyyy 
TO PICTURED CHARACTER STRING, 
THE ERROR WAS DETECTED IN 
STATEMENT NUMBER xxx BUT CHECK 
ALL SIMILAR USES OF THIS 
CONSTANT. 


Programmer Response:  Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN ERROR HAS OCCURRED IN THE 
CONVERSION TO PICTURED 
CHARACTER STRING OF THE 
STERLING CONSTANT WHICH HAS 
DECIMAL PENCE FORM yyyy. THE 
ERROR WAS DETECTED IN STATEMENT 
NUMBER xxx BUT CHECK ALL 
SIMILAR USES OF THIS CONSTANT. 


Programmer Response:  Probable 
user error. Change the 


constant and check its use in 
the given statement and 
elsewhere. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


zzzz USED IN FILE OPTION IN 
STATEMENT NUMBER xxx IS NOT A 
FILE. OPTION HAS BEEN IGNORED. 
EXECUTION ERROR WILL RESULT 


Explanation: Dictionary 
reference of file triple was 
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not file constant or file 
parameter code. 


System Action:  Ignores option, 
but continues to scan 
Statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID KEYTO OPTION zzzz 
IGNORED IN STATEMENT NUMBER xxx 


Explanation: KEYTO option must 
be scalar character string 
variable. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


2222 USED IN KEY/KEYFROM OPTION 
IN STATEMENT NUMBER xxx IS NOT 
A SCALAR. OPTION IGNORED. 


System Action:  Ignores option 
but continues scan of statement 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


zzzz USED IN THE IGNORE OPTION 
IN STATEMENT NUMBER xxx IS NOT 
A SCALAR. OPTION IGNORED. 


System Action:  Ignores option 
but continues scan of statement 


Programmer Response: Probable 
user error. Correct IGNORE 


variable. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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COMPILER ERROR DETECTED IN 
PHASE NJ/NK. 


Explanation: NJ/NK found some 
unexpected input. Register 9 
in dump will indicate cause of 
error. 


System Action:  Terminates 


compilation 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


OPTIONS IN OPEN STATEMENT 
NUMBER xxx ARE IN CONFLICT WITH 
PAGESIZE AND/OR LINESIZE. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID REPLY OPTION IGNORED IN 
STATEMENT NUMBER xxx 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID MESSAGE IN DISPLAY 
STATEMENT NUMBER ххх. 
STATEMENT IGNORED. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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STATEMENT NUMBER ххх. 
STATEMENT IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR.  INCORRECT 
NUMBER OF TMPDS FOLLOWING ZERO 
OPERAND IN STATEMENT NUMBER ххх 


System Action: Compilation is 


terminated 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INVALID SCALAR EXPRESSION 
OPTION IN WAIT STATEMENT NUMBER 


XXX. MAXIMUM EVENT COUNT 
GIVEN. 
Explanation: The optional 


scalar expression in the WAIT 
Statement cannot be converted 
to an integer. 


System Action: The number of 
event names in the list is 
assumed as the event count. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have the source program 
listing available. 


COMPILER ERROR. INCORRECT 
INPUT TO PHASE NG IN WAIT 
STATEMENT NUMBER xxx. 


Explanation: The compiler has 
encountered incorrect input to 
phase NG and cannot continue. 
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System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


INVALID KEYTO OPTION IN 
STATEMENT NUMBER xxx 


Explanation: KEYTO option must 
be scalar character-string 
variable 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID PAGE OPTION IGNORED IN 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID. LINE OPTION IGNORED IN 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MULTIPLE COPY OPTIONS SPECIFIED 


IN STATEMENT NUMBER xxx. THE 
FIRST ONE IS USED. 
System Action: The first 
Option only is used 
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Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


INVALID FILE OPTION IGNORED IN 
STATEMENT NUMBER xxx 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


INVALID STRING OPTION IGNORED 
IN STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


NO FILE OR STRING SPECIFIED IN 
STATEMENT NUMBER xxx. 
STATEMENT IGNORED. 


Explanation: No FILE or STRING 
given in GET/PUT statement 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: : 


е Have the source program 
listing available. 


INVALID TITLE OPTION IGNORED IN 
STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID IDENT OPTION IGNORED IN 
STATEMENT NUMBER xxx 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID LINESIZE OPTION IGNORED 
IN STATEMENT NUMBER xxx 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID PAGESIZE OPTION IGNORED 
IN STATEMENT NUMBER ххх 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO FILE SPECIFIED IN OPEN/CLOSE 


STATEMENT NUMBER xxx. ANY 
OPTIONS ARE IGNORED. ' 
Programmer_Response: Probable 


user error. Correct program 
апа recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. INCORRECT 
NUMBER OF TMPDS FOLLOWING ZERO 
OPERAND IN STATEMENT NUMBER xxx 


System Action: Compilation is 


aborted 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


E IEM1845I 


E ТЕМ18%6Т 


5 IEM1847I 


S ІЕМ1848І 


W ІЕМ1849І 


e Have the associated job 
Stream and source program 
listing available. 


MULTIPLE DATA SPECIFICATIONS 
IGNORED IN STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID SKIP OPTION IGNORED IN 
STATEMENT NUMBER ххх 


Programmer Responses:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO DATA SPECIFICATIONS GIVEN 
FOR GET STATEMENT NUMBER ххх. 
STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO DATA SPECIFICATIONS OR PRINT 
OPTIONS GIVEN FOR PUT STATEMENT 
NUMBER xxx. STATEMENT DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE USE OF THE BUILT-IN 
FUNCTION NULL IN STATEMENT 
NUMBER xxx IS INVALID; NULLO 
HAS BEEN SUBSTITUTED. CHECK 
ALL SIMILAR USES OF NULL. 
System Action: Substitute 
NULLO 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
W IEM1850I THE USE OF THE BUILT-IN 
FUNCTION NULLO IN STATEMENT 
NUMBER xxx IS INVALID; NULL HAS 
BEEN SUBSTITUTED. CHECK ALL 
SIMILAR USES OF NULLO. 


System Action: Substitute NULL 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE ILLEGAL ITEM zzzz HAS BEEN 
DELETED FROM THE I/O DATA LIST 
IN STATEMENT NUMBER xxx 


S ІЕМ1860І 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
S IEM1861I AN ILLEGAL TEMPORARY RESULT OR 
SUBSCRIPTED ELEMENT HAS BEEN 
DELETED FROM THE I/O DATA LIST 
IN STATEMENT NUMBER ххх 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
S IEM18621 AN EXPRESSION OR FUNCTION 
INVOCATION IS AN ILLEGAL DATA 
ITEM AND HAS BEEN DELETED FROM 
THE DATA-DIRECTED I/O STATEMENT 
NUMBER ххх. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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E ІЕМ1870І 


S IEM18711 


W IEM1872I 


S IEM1873I 
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e Have the source program 
listing available. 


THE FORMAT LIST IN STATEMENT 
NUMBER xxx CONTAINS NO DATA 
FORMAT ITEMS AND WILL BE 
EXECUTED ONCE IF THE S'TATEMENT 
IS INVOKED. 


System Action: At execution 
time, on finding no data format 
items, control passes out of 
the statement at the end of the 
format list. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


1 
IN STATEMENT NUMBER xxx THE 
FORMAT LIST CONTAINS AN E OR F 
FORMAT ITEM WITH AN ILLEGAL 
SPECIFICATION. THE FORMAT ITEM 
HAS BEEN DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx AN E 
FORMAT ITEM HAS A FIELD WIDTH 
WHICH WOULD NOT PERMIT PRINTING 
OF A MINUS SIGN. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. ІМ 
STATEMENT NUMBER xxx AN A, B OR 
CONTROL FORMAT ITEM SPECIFIES 
AN EXCESSIVE LENGTH WHICH HAS 
BEEN REPLACED BY THE MAXIMUM OF 
32,767. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 


S 1ЕМ1874І 


W IEM1875I 


T IEM230UI 


calling IBM for programming 
support: 


е Have the source program 
listing available. 


IN STATEMENT NUMBER xxx AN 
INPUT STATEMENT CONTAINS A 
FORMAT ITEM WHICH MAY BE USED 
ONLY IN OUTPUT STATEMENTS. 


Explanation: PAGE, SKIP, LINE, 
COLUMN, and format items A and 
B with no width specification, 
may be used only for output. 
System Action: Invalid format 
item deleted 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx AN E 
FORMAT ITEM HAS AN ILLEGAL 
SPECIFICATION IF USED FOR AN 
OUTPUT DATA ITEM. 


Explanation: The specification 
violates the restriction that 
the field width w must be 
greater than ѕ+п+2. 


System Action: There will be 


an error at execution time. 


Programmer Response:  Probable 
user error. Correct 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have the source program 
listing available. 


COMPILER ERROR. DICTIONARY 
ENTRY zzzz UNRECOGNIZED IN 
STATIC CHAIN. 


Explanation: Due to a compiler 
error, a dictionary entry with 
an unrecognized code byte has 

been found in the static chain. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


T IEM2305I 


T IEM2352I 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR.  DOPE VECTOR 
REQUESTED BY NON-STRING, 
NON-STRUCTURE MEMBER 2222 


Explanation: Due to a compiler 
error, the allocation of a dope 
vector has been requested for 
an item which should never 
require one. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
, stream and source program 
listing available. 


THE AUTOMATIC VARIABLES IN THE 
BLOCK HEADED BY STATEMENT 
NUMBER xxx ARE MUTUALLY 
DEPENDENT. STORAGE CANNOT BE 
ALLOCATED. 


Explanation: This message is 
generated when a number of 
automatic variables are 

mutually dependent. It is 
then possible to allocate 
Storage in order of dependency. 


not 


System Action: Compilation is 


terminated 


Programmer Response:  Probable 
user error.  Rewrite statement, 


eliminating mutual dependency. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


е Recompile the program with 
compiler options 
“5,рР-(РІЕ,22)" to obtain a 
formatted dump of the 


T IEM2650I 


T IEM2660I 
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compiler. (Refer to the 
comments which precede а11 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
OPTIMIZATION TABLE OVERFLOWED 
WHILE PROCESSING STATEMENT 
NUMBER xxx. 


System Action: Compilation 


terminated. 


Programmer Response:  Probable 
user error. Re-compile with 


one of the following changes: 


1. Use a larger partition or 
region 


2. Specify OPT-0 or 1 


3. Reduce the number of 
subscripts in the DO loop 
that contains the 
Statement indicated. 


If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE RD. IN STATEMENT NUMBER 
XXX A PREVIOUS PHASE HAS 
GENERATED А LABEL NUMBER 
GREATER THAN THE MAXIMUM SHOWN. 


System Action: Compilation is 


terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
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Stream and source program 
listing available. 


COMPILER ERROR.  INTERNAL TABLE 
ENTRY IN PHASE RD IS INCORRECT. 


Explanation: An entry in the 
internal table of 
compiler-generated labels does 
not point to a label in text. 


System Action: Compilation is 


terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


е Recompilation should also 
be tried without the OPT-2 
option. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. SPECIAL ASSIGNED REGISTER 
IN FORMAT/DATA LIST CODE CANNOT 
BE FOUND. 


System Action: 
terminated 


Compilation is 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. PHASE IEMRF, 
STATEMENT NUMBER xxx.  PSTOR 
GREATER THAN 32K. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 


T IEM2702I 


T ІЕМ2703І 


Т IEM2704I 


following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx.  BCT WITHOUT DICTIONARY 
REFERENCE AS DESTINATION. 
System Action: Compilation is 
terminated 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx. LINK REGISTER IN BALR IS 
NOT ASSIGNED. 


System Action: Compilation is 


terminated 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
"8,рр= (РІЕ,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


* Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
xxx.  'USNG' ITEM DOES NOT HAVE 
ASSIGNED REGISTER. 


S IEM2705I 


S IEM2706I 


System Action: Compilation is 


terminated 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 

. comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. DROPPED REGISTER NOT 
ACTIVE. 


Explanation: Register number 
in field in DROP item is not in 
register table nor in storage. 


System Action: Continues 
compilation, ignoring DROP. 
Execution is inhibited. 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,RF)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. NOT ALL REGISTERS IN 
'DRPL' ITEM CAN BE FOUND. 


System Action:  Ignores DRPL 
item and continues 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,RF)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


S IEM2707I 


S IEM2708I 
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e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. NOT ALL SYMBOLIC 
REGISTERS DROPPED AT END OF 
PROCEDURE OR BEGIN BLOCK. 


Explanation: One or more 
symbolic registers have been 
used in the PROCEDURE or BEGIN 
block, but no corresponding 
DROP has occurred. 


System Action: Inserts in 
listing at end of block: the 


register number, the offset 

from register 9 at which the 
register is stored, and the 

words 'ERROR STOP'. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,RP)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. ASSIGNED REGISTER USED IN 
SOURCE FIELD IS NOT 
INITIALIZED. 


Explanation: The assigned 
register should have a previous 
value (e.g. Х іп AR X,Y or L 
Y,10(X) etc.), but none can be 
found. 


System Action: Register 13 is 
used instead of the correct 
number, and compilation is 
continued. 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
"S, DP=(PIE,RF)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


419 


S IEM2709I 


T IEM2710I 


5 IEM27111I 


420 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. SYMBOLIC REGISTER SHOULD 
HAVE PREVIOUS VALUE, BUT HAS 
NOT. 


Explanation: Register X in an 
instruction such as AR X,Y, or 
L Ү,10(Х), has not been set up 
previously. 


System Action: Inserts 
register 12 and continues 
compilation. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-Z(PIE,RF)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


® Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
ххх. MORE THAN ONE REGISTER 
PAIR REQUXRED IN AN 
INSTRUCTION. 


System Action: Compilation is 


terminated 


Do the 
IBM 


Programmer Response: 
following before calling 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX. ASSIGNED REGISTER IS 
STILL IN USE AT THE START OF A 
PROCEDURE. 


Explanation: Assigned register 


5 ІЕМ27121 


S IEM2816I 


S IEM2817I 


status should be zero at the 
start of each procedure. 


System Action: Drops the 
assigned register and continues : 
compilation 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,RP)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN INPUT TO 
PHASE IEMRF, STATEMENT NUMBER 
XXX.  IPRM/IPRM' OR EPRM/EPRM' 
PAIRS ARE NOT MATCHED IN 
PREVIOUS STATEMENT. 


System Action: 


continued 


Compilation is 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


* Recompile the program with 
compiler options 
'S,DP-(PIE,RF)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


ILLEGAL ENVIRONMENT OPTION IN 
STATEMENT NUMBER ххх 


System Action:  Remainder of 
environment attributes ignored. 


Programmer Responses  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. INVALID 
ATTRIBUTE CODE IN STATEMENT 
NUMBER xxx 


S IEM2818I 


S IEM2819I 


Explanation: An invalid S IEM2820I 
attribute marker has been found 

in the dictionary entry 

corresponding to the file 

attributes in the statement 


specified 


System Action:  Ignores the 
rest of the entry 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,GA)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) S IEM2821I 

e Have the associated job 
stream and source program 
listing available. 


CONFLICTING ATTRIBUTE IN 
STATEMENT NUMBER xxx IGNORED. 


Explanation: An attribute 
other than 'ENVIRONMENT' 
clashes with previously 
declared attributes in the 
specified statement 


System Action:  Ignores this 


attribute. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 


S IEM2822I 


calling IBM for programming 


support: 


e Have the source program 
listing available. 


ERRONEOUS USE OF PARENTHESIS IN 
ENVIRONMENT OPTION IN STATEMENT 
NUMBER xxx 


Explanation:  Misplaced 
parenthesis in ENVIRONMENT 
attribute 


System Action:  Remainder of 
ENVIRONMENT attribute ignored 


Programmer Response:  Probable S IEM2823I 
user error. Correct program 

and recompile. If the problem 

recurs, do the following before 

calling IBM for programming 


support: 


е Have the source program 
listing available. 
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ERRONEOUS USE OF COMMA IN 
ENVIRONMENT OPTION IN STATEMENT 
NUMBER xxx 


Explanation:  Misplaced comma 
in ENVIRONMENT attribute 


System Action:  Remainder of 
ENVIRONMENT attribute ignored 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL CHARACTER IN KEYWORD IN 
ENVIRONMENT OPTION IN STATEMENT 
NUMBER xxx 


Explanation: Invalid keyword 
in ENVIRONMENT attribute 


System Action:  Remainder of 
ENVIRONMENT attribute ignored 


Programmer Responses:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FIELD TOO LARGE IN ENVIRONMENT 
OPTION IN STATEMENT NUMBER ххх 


Explanation: Field in item in 
ENVIRONMENT attribute too large 


System Action:  Remainder of 
ENVIRONMENT attribute ignored 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ERROR IN FORMAT OF ENVIRONMENT 
ATTRIBUTE IN STATEMENT NUMBER 
XXX 


Explanation: Format of item in 
ENVIRONMENT attribute incorrect 


System Action: Remainder of 
ENVIRONMENT attribute ignored 
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Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CONFLICT BETWEEN ENVIRONMENT 
ATTRIBUTE AND OTHER ATTRIBUTES 
IN STATEMENT NUMBER xxx 


Explanation: An option in the 
ENVIRONMENT attribute clashes 
with either another ENVIRONMENT 
option or with a declared 
attribute. 


System Action: Remainder of 
ENVIRONMENT attribute ignored 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CONFLICTING OPTIONS IN 
ENVIRONMENT ATTRIBUTE IN 
STATEMENT NUMBER xxx. REST OF 
ENVIRONMENT IGNORED. 


System Action: DECLARE control 
block is constructed from 
attributes which have already 
been processed. The rest are 


ignored. 

Programmer Response: Probable 
user error. Correct 
ENVIRONMENT option. If the 


problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
DIRECT FILE 2222 DECLARED IN 
STATEMENT NUMBER xxx MUST HAVE 
AN ORGANIZATION SUBFIELD IN THE 
ENVIRONMENT ATTRIBUTE. 


System Action: No compile-time 
action, but execution will 
fail. 

Programmer Response:  Probable 
user error. Provide 
ENVIRONMENT attribute. 
problem recurs, do the 


If the 


W IEM2827I 


W IEM2828I 


W IEM2829I 


T IEM2830I 


following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


A D COMPILER OPTION HAS BEEN 
DECLARED IN THE ENVIRONMENT 
LIST IN STATEMENT NUMBER ххх. 
IT HAS BEEN IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


ENVIRONMENT OPTIONS CLTASA AND 
CLT360 HAVE BOTH BEEN DECLARED 
IN STATEMENT NUMBER xxx. THE 
SECOND ONE LISTED WILL BE 
IGNORED. 


Progxammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN STATEMENT NUMBER xxx THE 
PARAMETER SPECIFIED IN THE 
INDEXAREA OPTION IS GREATER 
THAN 32767 AND HAS BEEN 
IGNORED. 


Explanation: If the parameter 
is not specified or is outside 
the permitted range, data 
management uses as much main 
storage as is required for the 
master index. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FILE DECLARED TRANSIENT IN 
STATEMENT NUMBER xxx DOES NOT 
HAVE MANDATORY ENVIRONMENT 
OPTION G OR R. 


System Action: Compilation 


terminated. 


E IEM2831I 


S IEM2833I 


T IEM283UI 


Programmer Response:  Probable 
user error. Correct file 
declaration. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


o Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


THE NCP VALUE IN STATEMENT 
NUMBER xxx EITHER IS NOT AN 
INTEGER CONSTANT OR LIES 
OUTSIDE THE PERMITTED RANGE OF 


1 TO 99. A VALUE OF 1 HAS BEEN 
ASSUMED. 

Programmer Response:  Probable 
user error. Correct the NCP 
value and re-compile. If the 


problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


COMPILER ERROR. 
OR SL NOT LABEL. 


OPERAND OF CL 


Explanation: The dictionary 
entry referenced after a 
compiler label or statement 
label marker in the text is not 
in fact a label 


System Action: The label 
definition is ignored. 


Programmer Responses Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,TP)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. INVALID 
PSEUDO-CODE OPERATION. 


Explanation: The input text 


S IEM2835I 


T IEM2836I 
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contains a marker which is not 
valid 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede а11 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. SUBSCRIPTED © 
LABEL CHAIN ERROR. 


Explanation:  Subscripted 
labels in the source program 
result in the creation of 
chains of dictionary entries. 
An error in the chaining causes 
this message to appear. 


System Action: The label 
definition is ignored 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,TF)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. | 


IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 


Explanation: Not enough 
scratch core is available for 
the generated label number 
table created by this phase. 
The condition arises when a 
large number of such labels 
have been used, and this in 
turn is related to the size of 
the program. 
System Action: The compilation 
is terminated 


Programmer Responses Probable 
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user error. Break down the 
program into smaller modules. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


S IEM2865I 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR.  MULTIPLY 
DEFINED LABEL OR INVALID LABEL 
NUMBER. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. W ІЕМ2866І 

THE TELEPROCESSING FORMAT 

OPTION IN STATEMENT NUMBER Xxx 

CONTAINS NO CONSTANT. А VALUE 

OF ZERO HAS BEEN ASSUMED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NUMERIC FIELD IN ENVIRONMENT 
OPTION FOR FILE zzzz DECLARED 
IN STATEMENT NUMBER xxx IS NOT 
IN PARENTHESES AND HAS BEEN 
DELETED. 
E IEM2867I 
Explanation: If an environment 
option requires a numeric 
field, then that field must be 
enclosed in parentheses. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM CONTAINS TOO 
MANY BLOCKS AND/OR CONTROLLED 
VARIABLES. 


Explanation: The compiler 
allocates a pseudo-register 
entry for each block and 
CONTROLLED variable in the 
source program. The maximum 
number of such entries is 1,024 


System Action: No 
pseudo-registers are allocated 


for items after the limit has 
been reached. 


Programmer Response:  Probable 
user error. Reduce number of 


blocks, or CONTROLLED 
variables, in program to less 
than 1,025. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THIS PL/I 
GENERATED 
WHICH THE 


COMPILATION HAS 
EXTERNAL NAMES IN 
FIRST LEADING 
CHARACTER OF THE EXTERNAL 
PROCEDURE NAME HAS BEEN 
REPLACED BY A SPECIAL 
CHARACTER. 


Explanation: The external 
procedure name with its first 
character changed is being used 
as a base for generating names 
for External Symbol Dictionary 
entries. If the same thing 
happens in another compilation, 
and the two are then joined by 
the Linkage Editor, two 
External Symbol Dictionary 
entries may have the same name. 


System Action: None 
IMPLEMENTATION RESTRICTION. 
EXTERNAL NAME zzzz HAS BEEN 
TRUNCATED TO 7 CHARACTERS. 


Explanation: External 
identifiers are restricted to 7 
characters 


W IEM2868I 
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System Action: Name of ESD 
entry truncated by taking first 
4 and last 3 characters; 

phase then carries on normally. 


Programmer Response:  Probable 
user error. Shorten the name. 


If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


THIS PL/I COMPILATION HAS 
GENERATED EXTERNAL NAMES IN 
WHICH THE SECOND LEADING 
CHARACTER OF THE EXTERNAL 
PROCEDURE NAME HAS BEEN 
REPLACED BY А SPECIAL 
CHARACTER. 


Explanation: The external 
procedure with its second 
character changed is being used 
as a base for generating names 
for External Symbol Dictionary 
entries. If the same thing 
happens in another compilation, 
and the two are then joined by 
the Linkage Editor, two 
External Symbol Dictionary 
entries may have the same name. 


System Action: None 
COMPILER ERROR IN STATEMENT 
NUMBER ххх. INVALID 
PSEUDO-CODE OPERATION. 


Explanation: The input text 
contains a marker which is not 


valid. 


System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,TT)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN STATEMENT 
NUMBER xxx.  OPERAND OF DC CODE 
INVALID. 


Explanation: The operand of a 


S IEM2883I 


T IEM2888I 
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DCA4 pseudo-code item is not 
valid - the operand should 
always be relocatable. 


System Action: An offset of 
zero is assembled into the 
text. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,TT)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN STATEMENT 
NUMBER xxx. INVALID REQUEST 
FOR RELOCATABLE TEXT. 


Explanation: The operand of a 
branch instruction has been 
found to require relocation. 


System Action: An offset of 
zero is assembled into the 
text. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,TT)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR IN STATEMENT 
NUMBER xxx. UNDEFINED LABEL. 


Explanation: No offset has 
been assigned to a label 
generated by the compiler. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
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'S,DP-(PIE,TT)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
QUALIFIED NAME zzzz LONGER THAN 
256 CHARACTERS. 


Explanation: The fully 
qualified name of the variable 
indicated will not fit into its 
Symbol Table entry 


System Action: Leaves Symbol 
Table entry incomplete and 
carries on with the 
initialization of the Static 
Internal control section. 


Programmer Response:  Probable 
user error. Shorten the 
qualified name. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA-DIRECTED ‘GET/PUT' 
STATEMENT WITH NO LIST IN A 
PROCEDURE OR BEGIN BLOCK WHICH 
HAS NO DATA VARIABLES. 


System Action:  Zeros are 
inserted in the argument list 


for the call to the library 
routine to 'GET/PUT DATA', 
compilation continues. 


and 


Programmer Response:  Probable 
user error. Correct GET/PUT 


statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INITIALIZATION SPECIFIED FOR 
TOO FEW ELEMENTS IN STATIC 
ARRAY 2222 


System Action:  Initialization 
terminated when end of initial 
string is found. 


Programmer Response:  Probable 
user error.. Correct program 


and recompile. If the problem 
recurs, do the following before 


W ІЕМ29001 
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E ІЕМЗ088І 
-3213I 


calling IBM for programming 
support: 


e Have the source program 
listing available. 


INITIALIZATION SPECIFIED FOR 
TOO MANY ELEMENTS IN STATIC 
ARRAY 27727277 


System Action:  Initialization 
is terminated when every 
element has been initialized. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. INVALID 
PSEUDO-CODE OPERATION. 


Explanation: The input text 
contains a marker which is not 
valid 

System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 





e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


THE CONFLICTING ATTRIBUTE aaaa 
HAS BEEN IGNORED IN THE 
DECLARATION OF IDENTIFIER yyyy 
IN STATEMENT NUMBER xxx 


Explanation: The attribute 
given in the message conflicts 
with another attribute declared 
for the same identifier, or is 
invalid for that identifier. 


System Action: The attribute 
given in the message is 
ignored. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
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recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


AN UNBALANCED NUMBER OF 
PARENTHESES HAS BEEN DETECTED 
WITHIN А STATEMENT AT OR NEAR 
STATEMENT NUMBER ххх 


Explanation: An occurrence of 
a comma immediately followed by 
a period at or near the given 
Statement has been taken as a 
statement delimiter. The 
Statement contains an 
unbalanced number of 
parentheses.. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
COMPILER ERROR. INVALID ERROR 

MESSAGE CHAINS. 


Explanation: Compiler is 
unable to print error 
diagnostics. 


System Action: Compilation is 


terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


I/O ERROR ON SEARCHING 
DIRECTORY. 


Explanation: This message is 
written directly on SYSPRINT. 

A permanent I/O error was 
detected when an attempt was 
made to search the directory of 
the library containing the 
compiler. 


T IEM3842I 
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System Action: Compilation is 


terminated 


Programmer Response: Check the 
directory and re-attempt 


compilation. If the 
input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


е Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR AT STATEMENT 
NUMBER xxx. ALL TEXT BLOCKS IN 
CORE ARE BUSY. REFERENCED 
BLOCK CANNOT BE BROUGHT INTO 
CORE. 


Explanation: All blocks in 
core have become busy. 
Compiler cannot continue since 
an external block cannot be 
read in. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
iisting available. 


COMPILER ERROR AT STATEMENT 
NUMBER xxx. ATTEMPTED USE OF 
PHASE yyy OF ZDABRF WITH BLOCK 
NOT IN CORE. 


Explanation: Referenced block 


is not in core 


427 


T ITEM3844T 


T IEM3845I 


428 


System Action: 
terminated 


Compilation is 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
DICTIONARY ENTRY FOR STRING 
CONSTANT, PICTURE, DOPE VECTOR, 
OR STATIC INITIAL STRING IS TOO 
LONG FOR THIS SIZE OPTION. 


Explanation: The dictionary 
entry cannot be made because it 
is larger than the dictionary 
block size of this compilation. 


System Action:  Terminates 


compilation 


Programmer Response:  Probable 
user error. If the entry is 


smaller than 16K bytes, 
increase the size option to 
give dictionary blocks bigger 
than the required entry. The 
largest dictionary block size 
is 16K, and in cases where a 
larger entry was required, it 
is necessary to avoid the 
source program feature which 
caused the excessive dictionary 
entry request. In general, 
write the source program in 
such a way that the required 
function is performed at 
execution time rather than 
compile time. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source prcgram 
listing available. 


COMPILER ERROR AT STATEMENT 


T IEM3846I 


NUMBER xxx. TEXT BLOCK 
REFERENCED BY PHASE yyy IS NOT 
IN CORE. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


* Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE BY 
STATEMENT NUMBER xxx. ALL TEXT 
BLOCKS FULL WHEN PHASE yyy IS 
BEING EXECUTED. 


Explanation: There is no more 
space for text in this 
environment 


System Action: Compilation is 


terminated 


Programmer Responses:  Probable 


user error. 


1. Subdivide the program and 
recompile. 


2. Increase the SIZE option . 
for the compiler to obtain 
larger text blocks, and 
recompile. 


3. If OPT-2 has been 
specified for this 
compilation, recompile 
specifying OPT=1 or OPT=0. 


All three possibilities may be 
tried togéther. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
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stream and source program 
listing available. 


COMPILER ERROR AT STATEMENT 
NUMBER xxx. PHASE yyy HAS 
REQUESTED MORE THAN 4K OF 
SCRATCH CORE. 


Explanation: Request for 
scratch core exceeds 4096 bytes 
System Action: Compilation is 
terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages. ) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR AT STATEMENT 
NUMBER xxx. PHASE yyy HAS 
REQUESTED A RELEASE OF 
UNALLOCATED CORE. 


Explanation: Attempt to 
release unallocated scratch 
core 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. PHASE yy IN 
RELEASE LIST IS NOT IN PHASE 
DIRECTORY. 


System Action: 
terminated 


Compilation is 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


T IEM3850I COMPILER ERROR. 


T IEM3851I 


T IEM3852I 


Appendix K: Diagnostic Messages 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


PHASE yy IN 
LOAD LIST IS NOT IN PHASE 
DIRECTORY. 


System Action: Compilation is 


terminated 


Do the 
IBM 


Programmer Response: 
following before calling 


for programming support: 


e Recompile the program with 
compiler options 
'S, DP=(PIE, ZZ)" to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. PHASE yy NOT 
MARKED. IT IS LOADED. 


Explanation: An unmarked phase 


is loaded 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
iisting available. 


COMPILER ERROR AT STATEMENT 
NUMBER xxx. BLOCK REFERENCED 
BY PHASE yyy IS NOT IN USE. 
COMPILER CANNOT CONTINUE. 


System Action: 
terminated 


Compilation is 
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Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
SOURCE PROGRAM TOO LARGE. 
DICTIONARY IS FULL. 


Explanation: This message is 
written directly on SYSPRINT. 
System Action: Compilation is 
terminated 


Programmer Response:  Probable 
user error. Subdivide into 


more than one program and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


ERROR IN PHASE yy. 


Explanation: This message is 
written directly on SYSPRINT. 
A compiler error has been 
discovered during the printing 
of compile-time diagnostic 
messages (if phase quoted in 
message is BM) or of 
source-program diagnostic 
messages (if phase is ХА). 


System Action: Compilation is 
terminated. Note that only the 
diagnostic message output is 
incomplete. All other output 
files have been generated 
satisfactorily. 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


T IEM3856I 
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e Recompile the program with 
compiler options 
'"S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. PROGRAM CHECK 
TYPE nnnn HAS OCCURRED IN PHASE 
yy AT OR NEAR STATEMENT NUMBER 
XXX 


Explanation: A program check 
has occurred during 
compilation. This is due to a 
compiler failure which may have 
been exposed by an error in the 
source code. The check number 
is the code for a program 
interrupt as follows: 


Cause of Program 


Code Interrupt 

1 Operation 

2 Privileged operation 
3 Execute 

4 Protection 

5 Addressing 

6 Specification 

7 Data 
System_Action: Compilation is 
terminated 
Programmer Responses Check 
source code carefully. If an 


error is found, correcting it 
may enable compilation to be 
completed successfully. 
Whether or not an error is 
found do the following before 
calling IBM for programming 
support: 


® Recompile the program with 
compiler options 
"S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR.  ATTEMPT TO 
PASS CONTROL TO AN UNNAMED 
PHASE. AN UNMARKED PHASE HAS 
BEEN ENCOUNTERED. 


Explanation: An unmarked phase 


T IEM3858I 
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has been encountered. 
cannot continue 


Compiler 


System Action: Compilation is 


terminated 


Programmer Response: Do the 
following before calling IBM 
for programming support: 


е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)"'" to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


COMPILER ERROR. REQUESTED OR 
UNWANTED PHASE NOT IN PHASE 
DIRECTORY. 


Explanation: Request to mark a 
phase which is not in phase 
directory. Compiler cannot 
continue. 


System Action: Compilation is 


terminated 


Programmer Responses: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


INSUFFICIENT CORE IS AVAILABLE 
TO CONTINUE THIS COMPILATION. 


Explanation: An attempt is 
being made to expand the number 
of text blocks in core. The 
GETMAIN routine has failed to 
get the core. This will only 
occur where less than 45,056 
bytes are available to the 
compiler, or when the SIZE 
option has been given too large 
a value. This message is 
written directly onto SYSPRINT. 


System Action: Compilation is 
terminated. Message IEM3865I 
may follow. 


E IEM3860I 
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Programmer Response: Probable 
user error. Check the SIZE 


option and check that the 
required core is available in 
the system on which the 
compilation is being run. ТЕ 
the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 

I/O ERROR ON SYSIN. RECORD 
ACCEPTED AS INPUT. 


Explanation: The error may be 
a machine error, or, if SYSIN 
is a card reader, there may be 
a hole pattern which does not 
represent a valid System/360 
character (validity check). 


System Action: The error 
message number is printed in 


the source listing before the 
record in error. The record is 
accepted as input. 


Programmer Response: If SYSIN 
is a card reader, check that 


every column of the indicated 
card contains a valid code. If 
the input/output error 
persists, do the following 
before calling IBM for 
programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
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MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream and source program 
listing available. 


I/O ERROR ON SYSLIN. 
GENERATION OF LOAD FILE IS 
TERMINATED. 


Programmer Response: Check DD 
card and recompile. If the 


input/output error persists, dc 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


е Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream and source program 
listing available. 


I/O ERR, jobname,stepname,unit 
address,device type,SYSPRINT, 
operation attempted,error 
descripticn 
CONT- ,****dk kx debe access 
method (see Note 1) 
relative block number 
(decimal),access method 
(see Note 2) 
actual track address and 
block number (BBCCHHR 
in hexadecimal format), 
access method 
(see Note 3) 


Note: IEM3862I should always be 
preceded by message ТЕАОООТ. 


Explanation: This is an online 
message written to the 
operator. There is an I/O 
error on SYSPRINT. Тһе 
compiler cannot continue. The 
information in the message is 
provided by the operating 
System. The device type field 
contains either: 


T IEM3863I 


UR - unit record device, or 
TA - magnetic-tape device, or 
DA - direct-access device. 


For a unit record 
device 


Notes: 1. 


2. For a magnetic-tape 
device 


3. For a direct-access 
device 


System Action: Compilation is 
terminated. (No further 
printing takes place.) 


Programmer Response: Check DD 
Statement and recompile. If 


the input/output error 
persists, do the following 
before calling IBM for 
programming support: 


e Recompile the program with 
compiler options 
"5,рр= (РІЕ, 27)" to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream and source program 
listing available. 


For users with MVT/MFT and with 
SYSPRINT assigned to a SYSOUT 
queue on a direct-access 
device, have the unit or pack 
containing the data set 
checked. 


I/O ERROR ON SYSPUNCH. 
GENERATION OF OBJECT DECK IS 
TERMINATED. 


Programmer Response: Check DD 
card and recompile. If the 


input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 


T IEM386UI 


М 
comments which precede all 
the таипа messages. ) 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


ө Have the associated job 
stream and source program 
listing available. 


I/O ERROR ON SYSUT1 


Explanation: This message is 
written directly on SYSPRINT. 
There is an I/O error on 
SYSUT1. The compiler cannot 
continue. 


System Action: Compilation is 


terminated 
Programmer Response: Check DD 
card and recompile. If the 


input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'"S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
Stream and source program 
listing available. 


T IEM3865I ERROR IN COMPILER ABORT 


Explanation: This message is 
written directly on SYSPRINT. 
The compiler has tried twice to 
abort and cannot do so. 
Compilation will therefore 
terminate without the 
production of any further 
diagnostic messages. 


System Action: Compilation is 


terminated 


Programmer Response: Do the 


Т IEM387 21 
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following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


I/O ERROR ON SYSUT3 


Explanation: This message is 
written directly on SYSPRINT. 
There is an I/O error on 
SYSUT3. The compiler cannot 
continue. 


System Action: Compilation is 


terminated 
Programmer Response Check DD 
card and recompile. If the 


input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream and source program 
listing available. 


I/O ERROR ON SYSUT3. 
ACCEPTED AS INPUT. 


RECORD 


System Action: The error 
message number is printed in 


the source listing before the 
record in error. Тһе record is 
accepted as input. 


Programmer Response: Check DD 
card and recompile. If the 


input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
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compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream and source program 
listing available. 


UNABLE TO OPEN SYSIN 


Explanation: This message is 
written directly on SYSPRINT. 
Unable to open SYSIN. The 
compiler cannot continue. 


System Action: Compilation is 


terminated 


Programmer Response: Probable 
user error. Check SYSIN DD 


card and recompile. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (іп SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


UNABLE TO OPEN SYSLIN. THE 
LOAD OPTION HAS BEEN DELETED 


Explanation: The SYSLIN data 
set could not be opened. 


System Action: The NOLOAD 


Т IEM3876I 


option is forced and 
compilation continues. 


Programmer Response: Probable 
user error. Check DD statement 


for SYSLIN if LOAD is 
requested, else specify NOLOAD, 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


UNABLE TO OPEN SYSPRINT 


Explanation: This is an 
on-line message. It is written 
to operator. Unable to open 
SYSPRINT. The compiler cannot 
continue 


System Action: Compilation is 


terminated 


Programmer Response: Probable 
user error. Check SYSPRINT DD 


card and recompile. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
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included for the failing 
job step. 


* Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


UNABLE TO OPEN SYSPUNCH. THE 
DECK/MACDCK OPTION HAS BEEN 
DELETED 


Explanation: The SYSPUNCH data 
set could not be opened. 


System Action: The NODECK and 
NOMACDCK options are forced and 
compilation continues. 


Programmer Response: Probable 
user error. Check SYSPUNCH DD 


Statement if LOAD is requested, 
else specify NODECK, NOMACDCK, 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnni messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


UNABLE TO OPEN 5Ү50Т1. 
COMPILATION CANNOT CONTINUE. 


System Action: Compilation is 


terminated 


Programmer Response: Probable 
user error. Check SYSUT1 DD 


card and recompile. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


T IEM3880I 
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е Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


UNABLE TO OPEN SYSUT3 


Explanation: This message is 
written directly on SYSPRINT. 
Unable to open SYSUT3. The 
compiler cannot continue. 


System Action: Compilation is 


terminated 


Programmer Responses: Probable 
user error. Check SYSUT3 DD 


card and recompile. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
*5,рр= (РІЕ, 77)" to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 

SYSPUNCH BLOCKSIZE NOT A 
MULTIPLE OF 80. THE DECK AND 
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MACDCK OPTIONS HAVE BEEN 
DELETED. 


Explanation: On opening 
SYSPUNCH, the blocksize 
definition, either on the DD 
card or in the data-set label, 
was not a multiple of 80. 


The DECK and 
are deleted 


System Action: 
MACDCK options 


Programmer Response: Probable 
user error. Correct the 


blocksize definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Recompile the program with 
compiler options 
'S,DP-(PYIYE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSLIN BLOCKSIZE NOT А MULTIPLE 
OF 80. THE LOAD OPTION HAS 
BEEN DELETED. 


Explanation: On opening 
SYSLIN, the blocksize 
definition, either on the DD 
card or in the data-set label, 
was not a multiple of 80. 


System Action: The LOAD option 


is deleted 


Programmer Response: Probable 
user error. Correct the 


blocksize definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have associated job stream, 
source and program listing 
available. 


NO КЕСЕМ GIVEN FOR SYSIN. U 
TYPE RECORDS ARE ASSUMED 


Explanation: No RECFM 
definition has been found in 
the DCB parameter of the SYSIN 
DD card or the data-set label. 


System Action: Compilation 
proceeds assuming U type 
records. U format will be 
specified in the data-set label 
when SYSIN is closed. 


Programmer Response: Probable 
user error. Check RECFM 


definition on SYSIN DD card and 
rerun if necessary. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was | 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSIN BLOCKSIZE IS TOO LARGE 


T IEM3893I 


Explanation: On opening SYSIN 
for unblocked records, a 
blocksize of greater than 100 
has been specified either in 
the DCB parameter of the SYSIN 
DD card or in the data-set 
label. 


System Action: Compilation is 
terminated 


Programmer Response: Probable 
user error. Change the invalid 


blocksize definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


е Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSIN BLOCKSIZE NOT A MULTIPLE 
OF RECORD LENGTH. 


Explanation: On opening SYSIN 
for FB format records, it has 
been noted that the blocksize 
definition, either on the DD 
card or in the data set label, 
is not an exact multiple of the 
record length. 


System Action: Compilation is 
terminated. 


Programmer Response: Probable 
user error. Correct the 
blocksize definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL- (1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSIN BLOCKSIZE NOT EQUAL TO 
RECORD LENGTH. 


Explanation: On opening SYSIN 
for F format records, the block 
size and record-length 
definitions, either on the DD 
сага or in the data-set label, 
were found to be unequal. 


System Action: Compilation is 
"terminated. 


Programmer Response: Probable 
user error. Change the 


incorrect definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


SYSIN RECORD LENGTH TOO LARGE 


Appendix K: Diagnostic Messages 437 


Т IEM3896I 


438 


Explanation: On opening SYSIN 
for F format records, a record 
length definition, either on 
the DD card or in the data-set 
label, was found to be greater 
than 100. 


System Action: Compilation is 


terminated. 


Programmer Response: Probable 
user error. Correct the 


record-length definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnIi messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSPRINT BLOCKSIZE IS NOT OF 
FORM 44+N*125 


Explanation: On opening 
SYSPRINT, the blocksize 


definition, either on the DD 
card or in the data-set label, 
was not of the form 44+N*125. 


System Action: Compilation is 


terminated 


Programmer Response: Probable 
user error. Correct the 


blocksize definition and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
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comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSIN DEFINITION IS INVALID 


Explanation: On opening SYSIN, 
the record-format definition, 
either on the DD card or in the 
data-set label, was varying. 
This is invalid. 
System Action: Compilation is 
terminated 


Programmer Response: Probable 
user error. Correct the 


definition of SYSIN and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
ТЕМАЕ (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


COMPILER CORE REQUIREMENT 


EXCEEDED SIZE GIVEN. AUXILIARY 
STORAGE USED. 
System Action: SPILL file 


opened 


W IEM3899I A BLOCK FOR OVERFLOW DICTIONARY 
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ENTRY OFFSETS WAS CREATED 
DURING COMPILER PHASE YY 


Explanation: This message 
occurs only in compilations run 
with the extended dictionary 
option. An entry offset table 
in a dictionary block became 
full before the entries filled 
the block. 


System Action: The block is 
created to hold the entry 
offsets overflowing from any 
entry offset tables during this 
compilation. 





ERROR IN PROCESS STATEMENT. 


Explanation: This message is 
written directly on SYSPRINT. 
The syntax of the PROCESS 
Statement is incorrect. 


System Action: An attempt is 
made to interpret the statement 
correctly. Actual results will 
depend on the nature of the 
syntax error. 


Programmer Response: Probable 
user error. Check that the 


options required have been 
correctly applied. If not, 
recompilation is necessary, 
correct the syntax of the 
PROCESS statement. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


and 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


ERROR IN PROCESS STATEMENT. 
DEFAULT OPTIONS ASSUMED. 


E IEM3902I 
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Explanation: This message is 
written directly on SYSPRINT. 
Invalid syntax in the PROCESS 
Statement has rendered the 
options unrecognizable. 


System Action: The 
installation defaults are 


assumed for all options. 


Programmer Response: Probable 
user error. If the use of 


installation default options is 
unsatisfactory, correct the 
syntax of the PROCESS statement 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


е Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


OBJNM FIELD TOO LARGE. FIRST 
EIGHT CHARACTERS OF NAME HAVE 
BEEN USED. 


Explanation: The name 
specified in the OBJNM option 
may not have more than eight 
characters. 


System Action: First eight 
characters of name used. 


Programmer Response: Probable 
user error. Either amend 


object module name as required, 
or alter other references to 
object module to correspond 
with truncated name. If the 


‘problem recurs, do the 


following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
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'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


CARRIAGE CONTROL POSITION LIES 
WITHIN THE SOURCE MARGIN. IT 
HAS BEEN IGNORED. 


Programmer Response: Probable 
user error. Recompile with 


carriage control position 
outside source margin. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


5 

e Make sure thát 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


THE FOLLOWING STRING NOT 
IDENTIFIED AS A KEYWORD - yyyy 


Explanation: This message is 
written directly on SYSPRINT. 
The compiler was processing the 
option list passed to it as an 
invocation parameter, when it 
found a character string that 


E IEM3905I 


it could not identify as a 
keyword. 


System Action: The offending 
character string is ignored. 


Proqrammer Response: Probable 
user error. Correct the 


erroneous parameter, and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: i 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


THE FOLLOWING KEYWORD DELETED, 
DEFAULT USED FOR - yyyy 


Explanation: This message is 
written directly on SYSPRINT. 
The compiler was processing the 
option list passed to it as an 
invocation parameter, when it 
found an option keyword that 
had been deleted at system 
generation. 


System Action: The keyword 
passed at invocation time is 
ignored. The default 
interpretation for the option, 
as set at system generation, is 
used. 


Programmer Response: Probable 
user error. None, unless it is 


required to reinstate the 
deleted keyword, in which case 
it is necessary to generate the 
required version of the 
compiler with a system 
generation run. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEM3906I 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


E IEM3907I 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


OPTION SPECIFICATION CONTAINS 
INVALID SYNTAX, DEFAULT USED 


FOR - yyyy 


Explanation: This message is 
written directly on SYSPRINT. 
The compiler was processing the 
option list passed to it as an 
invocation parameter, when it 
found that a sub-parameter, 
associated with the keyword 
given in the diagnostic 
message, was incorrectly 
specified. 





System Action: The keyword 
passed at invocation time is 
ignored. The default 
interpretation for the option, 
as set at system generation, is 
used. 


Programmer Response: Probable 
user error. Correct the 


erroneous parameter, and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
"5,рр=(РІЕ, 22) ' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, 


S IEM3908I 


Was 


Appendix K: Diagnostic Messages 


included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


THE FOLLOWING NAME IGNORED AS 
IT DOES NOT APPEAR IN THE PHASE 
DIRECTORY - yy 


Explanation: This message is 
written directly on SYSPRINT. 
The two characters given in the 
message were used as parameters 
to the DUMP option. This usage 
is incorrect since the 
characters do not represent the 
name of a compiler phase. 


System Action: The processing 
of the DUMP option continues, 
unless the two characters were 
used to indicate the first 
phase of an inclusive phase 
dump, in which case the scan of 
the DUMP option is terminated. 


Programmer Response: Probable 
user error. Correct the 


erroneous parameter, and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'"S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYNTAX ERROR IN DUMP OPTION 
SPECIFICATION 


Explanation: This message is 
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written directly on SYSPRINT. 

Incorrect use of delimiters in 
the specification of the DUMP 

option parameters. 


System Action: Processing of 
DUMP option is terminated 


Programmer Response: Probable 
user error. Correct the 


erroneous specification, and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


EXTENDED DICTIONARY CAPACITY 
EXCEEDED.  COMPILATION 
TERMINATED. 


Explanation: This message 
occurs only in compilations run 
with the extended dictionary 
option. The block created to 
hold overflow dictionary entry 
offsets is full. 


System Action: 
terminated 


Compilation is 


Programmer Response: Probable 
user error. Subdivide program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


T IEM3910I 


М IEM39111I 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


SYSPRINT BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION 


Explanation: The size 
specified allows a limited 
buffer area which is smaller 
than that required by the 
specified blocksize. 


System Action: Compilation is 


terminated 


Programmer Response: Probable 
user error. Use smaller 


blocksize or larger SIZE 
option. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SIZE AVAILABLE FOUND TO BE 
YYYYYY BYTES.  SIZE-UlUK 
ASSUMED.  COMPILATION 
CONTINUES. 


Explanation: SIZE is found to 
be less than 44K. 


Programmer Response: Probable 


T IEM39121 


user error. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'"S,DP-(PIE,22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSIN BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION 


Explanation: The size 
specified allows a limited 
buffer area which is smaller 
than that required by the 
buffers for SYSIN, or for SYSIN 
and SYSPRINT together. 


System Action: Compilation is 


terminated 


Programmer Response: Probable 
user error. Ensure that SIZE 


option allows room for both the 
SYSIN and the SYSPRINT buffers. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 


S IEM3913I 


5 IEM391UI 


Appendix K: Diagnostic Messages 


Programmer Response: 


IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSPUNCH BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION. THE 
DECK AND MACDCK OPTIONS HAVE 
BEEN DELETED. 


Explanation: The SIZE 
specified allows a limited 


buffer area which is smaller 
than that required by the 
specified SYSPUNCH blocksize. 


System Action: The DECK and 
MACDCK options are deleted 


Proqrammer Response: Probable 
user error. Ensure that the 


SIZE option allows room for the 
SYSPUNCH buffers needed, and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


SYSLIN BLOCKSIZE IS TOO LARGE 
WITH THIS SIZE OPTION. THE 
LOAD OPTION HAS BEEN DELETED. 


Explanation: The SIZE 
specified allows a limited 
buffer area which is smaller 
than that required by the 
specified SYSLIN blocksize. 


System Action: The LOAD option 


is deleted. 


Probable 
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user error. Ensure that the 
SIZE option allows room for the 
SYSLIN buffers needed and 
recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


THE CONFLICTING COMPILER 
OPTIONS MACDCK AND NOMACRO HAVE 
BEEN SPECIFIED. THE MACDCK 
OPTION HAS BEEN DELETED. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


THE CONFLICTING COMPILER 


E IEM3917I 


OPTIONS DECK AND NOCOMP HAVE 
BEEN SPECIFIED. THE DECK 
OPTION HAS BEEN DELETED. 


Proqrammer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


THE CONFLICTING COMPILER 
OPTIONS LOAD AND NOCOMP HAVE 
BEEN SPECIFIED. THE LOAD 
OPTION HAS BEEN DELETED. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
Stream and source program 
listing available. 


i 


Compile-Time Processing Diagnostic Messages 


The details given under the heading "Source 
Program Diagnostic Messages" apply equally 
to compile-time processing messages, with 
one exception: all compile-time processing 
messages are listed in a group following 
the SOURCE2 input listing and preceding the 
source program listing. 


The line number in the messages refers 
to the line in which the error was found. S ІЕМ411 51 
The incorrect statement may have commenced 
on an earlier line. 


S IEM4106I UNEXPECTED END-OF-FILE IN 
STRING AT OR BEYOND LINE NUMBER 
xxx. A STRING DELIMITER HAS 
BEEN INSERTED. 


Explanation:  End-of-file 
encountered while scanning for 
closing quote of a string 
constant. 


System Action: Closing quote 
inserted before end-of-file. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem T IEMU118I 
recurs, do the following before 

calling IBM for programming 

support: 


e Have the source program 
listing available. 


T IEM4109I REPLACEMENT VALUE IN LINE 
NUMBER xxx CONTAINS UNDELIMITED 
STRING. PROCESSING TERMINATED. 


Explanation:  End-of-string 
delimiter cannot be found in a 
replacement value. 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all E IEM4121I 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


E IEM4112I ILLEGAL CHARACTER IN APPARENT 
BIT STRING IN LINE NUMBER xxx. 


STRING TREATED AS A CHARACTER 
STRING. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNEXPECTED END-OF-FILE IN 
COMMENT AT OR BEYOND LINE 
NUMBER xxx. А COMMENT 
DELIMITER HAS BEEN INSERTED. 


Explanation:  End-of-file 
encountered while scanning for 
end-of-comment delimiter. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support : 


e Have the source program 
listing available. 


REPLACEMENT VALUE IN LINE 
NUMBER xxx CONTAINS UNDELIMITED 
COMMENT. PROCESSING 
TERMINATED. 


Explanation:  End-of-comment 
delimiter cannot be found in a 
replacement value. 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


INVALID CHARACTER HAS BEEN 
REPLACED BY BLANK IN OR 
FOLLOWING LINE NUMBER XXX 


Explanation: Invalid character 
found in source text 


Programmer Response:  Probable 
user error. Correct program 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. PUSH DOWN 
STACK OUT OF PHASE 


System Action: Processing 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)" to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


UNDECLARED IDENTIFIER 2222 
REFERENCED AT LINE NUMBER xxx. 
PROCESSING TERMINATED. 


Explanation: An attempt is 
made to execute a statement 


which references an identifier 
for which a DECLARE statement 
has not been executed. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


% ENCOUNTERED IN LABELLIST OF 
STATEMENT IN LINE NUMBER xxx. 
IT HAS BEEN IGNORED. 


Programmer Response: Probable 
user error. Remove % from 


label list. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNEXPECTED COLON WITHOUT 
PRECEDING LABEL IN LINE NUMBER 
xxx. COLON HAS BEEN IGNORED. 


5 IEM4136I 


E IEM4&1391 


E IEMUTU2I 


W ITEM41431 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STATEMENT TYPE NOT RECOGNIZABLE 
IN LINE NUMBER xxx. STATEMENT 
DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


PREVIOUS USAGE OF IDENTIFIER 
2222 CONFLICTS WITH USE AS 
LABEL IN LINE NUMBER xxx. 
REFERENCE WILL TERMINATE 
PROCESSING. 


ANY 


System Action: No action 
unless an attempt is made to 


execute a statement which 
references the ill-defined 
identifier. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL zzzz IN LINE NUMBER xxx 
MULTIPLY DEFINED. ANY 
REFERENCE WILL TERMINATE 
PROCESSING. 


System Action: No action 
unless a statement which 
references the multiply defined 
label is executed. 





Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABELS BEFORE DECLARE STATEMENT 
IN LINE NUMBER xxx ARE IGNORED. 


E ІЕМ4148І 


E IEMUT5OI 


E ІЕМ41511 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER zzzz IN LINE NUMBER 
ххх USED WITH CONFLICTING 
ATTRIBUTES. ANY REFERENCE WILL 
TERMINATE PROCESSING. 


Explanation: Usage of 
identifier conflicts with a 
previous usage or declaration. 
If the line number refers to a 
procedure END statement, the 
error occurred within the 
procedure. 


System Action: No action 
unless a statement is executed 
which references the identifier 
in error. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FORMAL PARAMETER zzzz WAS NOT 
DECLARED IN PROCEDURE ENDING IN 
LINE NUMBER xxx. TYPE 
CHARACTER HAS BEEN FORCED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL zzzz IS NOT DEFINED. 
REFERENCE WILL TERMINATE 
PROCESSING. 


ANY 


System Action: No action 
unless a statement is executed 
which references the undefined 
label. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


END OF FILE OCCURS BEFORE END 
FOR CURRENT PROCEDURE OR DO. 
END HAS BEEN INSERTED AT LINE 
NUMBER ххх. 


E ІЕМ41521 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


LABEL zzzz IS UNDEFINED IN THE 
PROCEDURE ENDING IN LINE NUMBER 
ххх. ANY REFERENCE WILL 
TERMINATE PROCESSING. 


E IEMU153I 


Explanation: Label may have 
been defined outside of 
procedure, but transfers out of 
procedures are not allowed. 


System Action: Any reference 
to the label in the procedure 
will terminate processing. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recürs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SEMICOLON TERMINATES IF 
EXPRESSION IN LINE NUMBER ххх. 
SEMICOLON HAS BEEN IGNORED. 


E IEM4154I 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NEITHER % NOR THEN FOLLOWS IF 
EXPRESSION IN LINE NUMBER xxx. 
IF STATEMENT DELETED. 


S IEM41571I 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


* MISSING BEFORE THEN OF IF 
STATEMENT IN LINE NUMBER Xxxx. 
* HAS BEEN INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THEN MISSING FOLLOWING % IN IF 
STATEMENT IN LINE NUMBER xxx. 
A THEN HAS BEEN INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILE TIME STATEMENT MUST 
FOLLOW THEN OR ELSE IN LINE 
NUMBER xxx. А % HAS BEEN 
INSERTED IN FRONT OF STATEMENT. 


Explanation: % does not 
precede the first statement in 
the THEN or ELSE clause of an 
ТЕ statement. 


Programmer Response:  Probable 
user error. If the statement 


in question is meant to be a 
non-compile time statement, it 
should be put inside of a "X 
DO" group. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THEN MISSING FROM IF STATEMENT 
AT LINE NUMBER xxx IN А COMPILE 
TIME PROCEDURE. А THEN HAS 
BEEN INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


E IEMU172I 


М IEMU175I 


S ІЕМ4176І 


E ІЕМ4178І 


S IEM41841 


THE % IN LINE NUMBER xxx IS NOT 
ALLOWED IN COMPILE TIME 
PROCEDURES. IT HAS BEEN 
IGNORED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABELS BEFORE ELSE IN LINE 
NUMBER xxx HAVE BEEN IGNORED. 


Explanation:  Label(s) found 
preceding an ELSE statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO STATEMENT FOLLOWS THEN OR 
ELSE IN LINE NUMBER xxx. A 
NULL STATEMENT HAS BEEN 
INSERTED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


° Have the source program 
listing available. 


ELSE WITHOUT PRECEDING IF IN 
LINE NUMBER xxx HAS BEEN 
IGNORED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ASSIGNMENT STATEMENT IN LINE 
NUMBER xxx MUST END WITH 
SEMICOLON. TEXT DELETED TILL 
SEMICOLON IS FOUND. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 


E IEMAU187I 


T IEMIUT88I 


E IEM4190T 


E IEMAU193I 


recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL MISSING FROM PROCEDURE 
STATEMENT IN LINE NUMBER xxx. 
A DUMMY LABEL HAS BEEN 


INSERTED. 
Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem E IEMAa196I 
recurs, do the following before 
calling IBM for programming 


support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. NO 
MORE THAN 254 COMPILE-TIME 
PROCEDURES MAY BE DEFINED IN A 
COMPILATION. PROCESSING 
TERMINATED. 


Programmer Response:  Probable 
user error. Delete excess 


procedures. If the problem 
recurs, do tbe following before 
calling IBM for programming 
support: 

е Recompile the program with S ІЕМ4199І 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


LABEL zzzz ON PROCEDURE IN LINE 
NUMBEER xxx IS PREVIOUSLY 
DEFINED. ANY REFERENCE TO IT 
WILL TERMINATE PROCESSING. 
S IEM4202I 
System Action: No action 
unless a statement is executed 
which references the multiply 
defined label. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


ILLEGAL USE OF FUNCTION NAME 
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zzzz ON LEFT HAND SIDE OF 
EQUALS SYMBOL. ANY REFERENCE 
WILL TERMINATE PROCESSING. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PREVIOUS USE OF IDENTIFIER 2222 
CONFLICTS WITH USE AS ENTRY 
NAME IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE 
PROCESSING. 


System Action: No action 
unless a statement is executed 


which references the erroneous 
identifier. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FORMAL PARAMETER zzzz IS 
REPEATED IN PARAMETER LIST IN 
LINE NUMBER xxx. THE SECOND 
OCCURRENCE HAS BEEN REPLACED BY 
A DUMMY PARAMETER. 


Programmer Responses:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION: 
MORE THAN 15 PARAMETERS OCCUR 
IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE 
PROCESSING. 


System Action: Processing is 
terminated if an attempt is 
made to execute a statement 
which references the procedure 
that has more than 15 
parameters. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
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E IEM4205I 


E ІЕМ4208І 


S IEM4211I 


S IEMA212I 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


FORMAL PARAMETER MISSING IN 
LINE NUMBER xxx. A DUMMY HAS 
BEEN INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNRECOGNIZABLE PARAMETER yyyy 
IN LINE NUMBER xxx. IT HAS 
BEEN REPLACED BY А DUMMY 
PARAMETER. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PARAMETER IN LINE NUMBER xxx 
NOT FOLLOWED BY COMMA OR 
PARENTHESIS. TEXT DELETED TO 
NEXT COMMA OR END OF STATEMENT. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNEXPECTED END OF PROCEDURE 
STATEMENT IN LINE NUMBER ххх. 
RIGHT PARENTHESIS INSERTED. 


Explanation: A semicolon was 
encountered during scan of an 
apparent parameter list. 


ction A right 
parenthesis is inserted before 
the semicolon and processing 
continues. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 


E ІЕМЕ21ШІ 


E IEM4215I 


E IEM4216I 


Е IEMS217I 


calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL FORM ОЁ RETURNS OPTION 
IN LINE NUMBER xxx. RETURNS 
(CHAR) HAS BEEN ASSUMED. 


Explanation: RETURNS option 
should be of the form 
RETURNS (CHAR | FIXED). 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DATA ATTRIBUTE IN PROCEDURE 
STATEMENT IN LINE NUMBER xxx IS 
NOT PARENTHESIZED AND IS NOT 
PRECEDED BY RETURNS. RETURNS 
AND PARENTHESES HAVE BEEN 
ASSUMED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THERE IS NO RIGHT PARENTHESIS 
FOLLOWING THE DATA ATTRIBUTE OF 
THE RETURNED VALUE IN LINE 
NUMBER xxx. ONE HAS BEEN 
ASSUMED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO ATTRIBUTE FOR RETURNED VALUE 


IN LINE NUMBER xxx. CHARACTER 
ATTRIBUTE IS USED. 
System Action: CHARACTER 


attribute is assigned 


Programmer Response: Probable 
user error. Correct program 

and recompile. If the problem 
recurs, do the following before 


S IEM4220I 


E IEM42231 


E ІЕМ4226І 


calling IBM for programming S IEM4229I 


support: 


e Have the source program 
listing available. 


SEMICOLON NOT FOUND WHERE 
EXPECTED IN PROCEDURE STATEMENT 
IN LINE NUMBER xxx. TEXT 
DELETED UP TO NEXT SEMICOLON. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ENTRY ATTRIBUTE AND PROCEDURE 
STATEMENT FOR ENTRY 2222 
DISAGREE ON THE NUMBER OF 
PARAMETERS. THE LATTER IS 
USED. 


S IEMU232I 


System Action: The number of 
parameters specified in the 
PROCEDURE statement is used. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RETURNS ATTRIBUTE AND PROCEDURE 
STATEMENT FOR ENTRY 2272 
DISAGREE ON ATTRIBUTE OF 
RETURNED VALUE. 


5 IEMU235I 


System Action: The returned 
value will first be converted 
to the type on the procedure 
Statement and will then be 
converted to the type given in 
the RETURNS attribute. А third 
conversion can occur if the 
type given in the returns 
attribute does not agree with 
the type required where the 
result is used. 

E IEMU238I 
Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 
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PROCEDURE STATEMENT AT LINE 
NUMBER xxx MAY NOT BE USED 
WITHIN A PROCEDURE. PROCEDURE 
HAS BEEN DELETED. 


Explanation:  Compile-time 
procedures may not be nested. 


System Action: Text is deleted 
up to and including the first % 
END following the erroneous 
PROCEDURE statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PROCEDURE STATEMENT AT LINE 
NUMBER xxx MAY NOT FOLLOW THEN 
OR ELSE. PROCEDURE HAS BEEN 
REPLACED BY A NULL STATEMENT. 


Explanation: A PROCEDURE 
Statement may appear in a THEN 
or ELSE clause only if it is 
inside a compile-time DO group. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


RETURN STATEMENT IN LINE NUMBER 
xxx IS NOT ALLOWED OUTSIDE OF 
COMPILE-TIME PROCEDURE. 
STATEMENT DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RETURNED VALUE MUST BE 
PARENTHESIZED IN LINE NUMBER 
xxx. PARENTHESIS INSERTED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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E IEM4241I 


S IEMAa2QuUI 


E IEM42471 


S IEMA2USI 
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е Have the source program. 
listing available. 


RETURNS EXPRESSION IN LINE 
NUMBER xxx DOES NOT END RETURN 
STATEMENT. REMAINDER OF 
STATEMENT HAS BEEN IGNORED. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


GOTO IN LINE NUMBER xxx IS NOT 
FOLLOWED BY LABEL. STATEMENT 
DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PREVIOUS USE OF IDENTIFIER 2222 
CONFLICTS WITH USE AS OBJECT OF 
GOTO IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE 
PROCESSING. 


System Action: No action 
unless a statement is executed 
which references the erroneous 
identifier. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SEMICOLON NOT FOUND WHERE 
EXPECTED IN GOTO STATEMENT IN 
LINE NUMBER xxx. TEXT DELETED 
UP TO NEXT SEMICOLON. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


T ITEM42501 


S ІЕМЦ253І 


E IEM4254I 


E IEMU256I 


S IEMU259I 


GOTO zzzz IN LINE NUMBER xxx 
TRANSFERS CONTROL INTO 
ITERATIVE DO OR ENCLOSED 
INCLUDED TEXT. PROCESSING 
TERMINATED. 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: | 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


ACTIVATE OR DEACTIVATE IN LINE 
NUMBER xxx NOT ALLOWED IN A 
COMPILE-TIME PROCEDURE. 
STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


EMPTY ACTIVATE OR DEACTIVATE 
STATEMENT IN LINE NUMBER xxx. 
STATEMENT DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


SURPLUS COMMA IN ACTIVATE OR 
DEACTIVATE IN LINE NUMBER xxx. 
THE COMMA HAS BEEN DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNRECOGNIZABLE FIELD IN 


5 IEMU262I 


S IEMAU265I 


S ІЕМ4271І 


W IEM8277I 


ACTIVATE OR DEACTIVATE 
STATEMENT IN LINE NUMBER xxx. 
THE FIELD HAS BEEN DELETED. 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ONLY PROCEDURES OR VARIABLES 
MAY HAVE ACTIVITY CHANGED. 
IDENTIFIER zzzz IN LINE NUMBER 
xxx HAS BEEN DELETED FROM 
STATEMENT. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMMA MUST SEPARATE FIELDS OF 
ACTIVATE AND DEACTIVATE 
STATEMENTS. IN LINE NUMBER xxx 
TEXT AFTER IDENTIFIER yyyy HAS 
BEEN DELETED UP TO NEXT COMMA. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


INVALID SYNTAX IN DO STATEMENT 
IN LINE NUMBER xxx. IT HAS 
BEEN CONVERTED TO A GROUPING 
DO. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO MAXIMUM VALUE WAS SPECIFIED 
IN ITERATIVE DO IN LINE NUMBER 
ххх. PROGRAM WILL LOOP UNLESS 
ALTERNATE EXIT IS PROVIDED. 


Programmer Response: Probable 
user error. Correct program 


E ITEM42801 


E IEMI283I 


E IEM42861 


E ІЕМЧ289І 


E IEMU292I 
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and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNEXPECTED % IN LINE NUMBER xxx 
TREATED AS HAVING BEEN PRECEDED 
BY SEMICOLON. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MULTIPLE TO'S HAVE OCCURRED IN 
DO STATEMENT IN LINE NUMBER 
xxx. SECOND 'TO' HAS BEEN 
CHANGED TO 'BY'. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


MULTIPLE BY'S HAVE OCCURRED IN 
DO STATEMENT IN LINE NUMBER 
XXx. SECOND 'BY' HAS BEEN 
CHANGED TO 'TO'. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


DO STATEMENT IN LINE NUMBER xxx 
SHOULD END WITH SEMICOLON. 
TEXT TO SEMICOLON DELETED. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


END STATEMENT AT LINE NUMBER 
xxx MAY NOT FOLLOW THEN OR 
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E IEM42951 


Е IEMU296I 


E IEMAU298I 
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ELSE. А NULL STATEMENT HAS 
BEEN INSERTED BEFORE THE END 
STATEMENT. 


Proqrammer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


SEMICOLON NOT FOUND WHERE 
EXPECTED IN END STATEMENT IN 
LINE NUMBER xxx. TEXT DELETED 
UP TO SEMICOLON. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


END STATEMENT IN LINE NUMBER 
xxx NOT PRECEDED BY DO OR 
PROCEDURE STATEMENT. END HAS 
BEEN DELETED. 


Explanation: An END statement 
has been encountered which is 
not preceded by a DO or 
PROCEDURE statement that has 
not already been terminated. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL REFERENCED ON END 
STATEMENT IN LINE NUMBER ххх 
CANNOT BE FOUND. END TREATED 
AS HAVING NO OPERAND. 


Explanation: The label cannot 
be found on a DO or PROCEDURE 

statement that has not already 
been terminated. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEMU299I 


Е IEM43011 


E ITEM43 041 


S IEM43071 


e Have the source program 
listing available. 


END STATEMENT ENDING PROCEDURE 
IN LINE NUMBER xxx DID NOT HAVE 
A PRECEDING PERCENT. A PERCENT 
IS INSERTED. 


Explanation: The END statement 
referred to in this message is 
the logical end of the 
procedure. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER 2222 ОМ END 
STATEMENT IN LINE NUMBER xxx IS 
NOT A LABEL. END TREATED AS 
HAVING NO OPERAND. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PROCEDURE zzzz DID NOT INCLUDE 
A RETURN STATEMENT. 


Explanation: Language syntax 
requires use of RETURN 
statement in a procedure. 


System Action: A null value is 
returned if the procedure is 
invoked. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


INCLUDE STATEMENT AT LINE 
NUMBER xxx IS NOT ALLOWED IN 
COMPILE-TIME PROCEDURES. 
STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 


E ІЕМ4310І 


5 IEM43131 


S ІЕМ4319І 


E IEM4322I 


calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
DDNAME IN LINE NUMBER xxx HAS 
BEEN TRUNCATED TO 8 CHARACTERS. 


Explanation: The first of a 
pair of data set identifiers in 
an INCLUDE statement is a 
ddname and as such is limited 
to a maximum of 8 characters. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


UNRECOGNIZABLE FIELD IN INCLUDE 
STATEMENT AT LINE NUMBER xxx. 
FIELD HAS BEEN DELETED. 


System Action: Text is deleted 
up to next comma or semicolon. 


Programmer Response: Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


EMPTY INCLUDE STATEMENT IN LINE 
NUMBER xxx. STATEMENT DELETED. 


Explanation: At least one 
identifier must appear in an 
INCLUDE statement i.e., the 
data set member name. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
MEMBER NAME IN LINE NUMBER xxx 
HAS BEEN TRUNCATED TO 8 
CHARACTERS. 


System Action: First 8 


E IEM4325I 


E IEM43261 


T ІЕМ8З28І 
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characters of member name have 
been used. 


Programmer Response: Probable 
user error. Correct data set 


member name in INCLUDE 
statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RIGHT PARENTHESIS INSERTED 
AFTER MEMBER NAME IN LINE 
NUMBER Xxx. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LEFT PARENTHESIS INSERTED 
BEFORE MEMBER NAME IN LINE 
NUMBER ххх. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


COMPILER ERROR. DICTIONARY 
INFORMATION INCORRECT. 


Explanation: A name containing 
an invalid character is found 
in the dictionary. 


System Action: Processing is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 


stream and source program 
listing available. 
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E IEM43321 


S IEMU33UI 
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DECLARE STATEMENT IN LINE 
NUMBER xxx IS ILLEGAL AFTER 


THEN OR ELSE. STATEMENT 
DELETED. 
Programmer Response:  Probable 


user error. Correct program. 

A DECLARE statement can appear 
in the THEN or ELSE clause of 
an IF statement if it is inside 
a DO group. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


EMPTY DECLARE STATEMENT IN LINE 
NUMBER xxx. STATEMENT DELETED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for progranming 
support: 


e Have the source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
FACTORING IN DECLARE STATEMENT 
IN LINE NUMBER xxx EXCEEDS 3 
LEVELS. REMAINDER OF STATEMENT 
DELETED. i 


Programmer Response: Probable 
user error. Ređuce level of 


factoring in DECLARE statement. 
If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


SURPLUS COMMA HAS BEEN FOUND IN 
DECLARE STATEMENT IN LINE 
NUMBER xxx. THIS COMMA HAS 
BEEN DELETED. 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 


support; 


e Have the source program 
listing available. 


IDENTIFIER MISSING WHERE 
EXPECTED IN LINE NUMBER xxx. А 
DUMMY IDENTIFIER HAS BEEN 
INSERTED. 


Programmer Response:  Probable 


E ITEM43431 


5 IEMU3H6I 


E IEMU3U9I 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER zzzz IN LINE NUMBER 
ххх HAS MULTIPLE DECLARATIONS. 
ANY REFERENCE WILL TERMINATE 
PROCESSING. 


Explanation: An identifier may 
be declared only once. 


System Action: No action 
unless a statement is executed 


which references the multiply 
declared identifier. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


UNRECOGNIZABLE SYNTAX IN 
DECLARE STATEMENT IN LINE 
NUMBER xxx. STATEMENT DELETED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


LABEL zzzz CANNOT BE DECLARED 
IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE 
PROCESSING. 


Explanation: An attempt has 
been made to declare an 
identifier which has already 
been used as a label. 


System Action: No action 
unless a statement is executed 
which references the declared 
label. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


E IEM43521 
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e Have the source program 
listing available. 


EXTRA PARENTHESIS DELETED IN 
LINE NUMBER ххх. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL ATTRIBUTE yyyy IN LINE 
NUMBER xxx. ATTRIBUTE HAS BEEN 
DELETED. 


Explanation: Legal attributes 
are FIXED, CHARACTER, ENTRY and 
RETURNS. 


System Action: The illegal 
attribute is deleted. 
E IEM43671 
Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


CLOSING RIGHT PARENTHESIS 
INSERTED IN LINE NUMBER xxx. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


RETURNS ATTRIBUTE OCCURRED 
WITHOUT ENTRY ATTRIBUTE FOR 
PROCEDURE zzzz IN DECLARE 
STATEMENT AT OR BEFORE LINE 
NUMBER Xxxx. 


E ITEM43701 


Explanation: Both ENTRY and 
RETURNS attributes must be 
declared for a compile-time 
procedure name. 


System Action: The identifier 
is treated as an ENTRY name. 
If it is referenced, the 
arguments will be converted to 
the types declared for the 
procedure parameters. 
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E ІЕМ4364І 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO ATTRIBUTES WERE DECLARED FOR 
IDENTIFIER zzzz IN DECLARE 
STATEMENT AT OR BEFORE LINE 
NUMBER xxx. CHARACTER HAS BEEN 
ASSIGNED. 


Programmer Response:  Probable 


user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


RETURNS ATTRIBUTE NOT GIVEN FOR 
ENTRY NAME zzzz IN DECLARE 
STATEMENT AT OR BEFORE LINE 
NUMBER XXX. 


Explanation: Both ENTRY and 
RETURNS attributes must be 
declared for a compile-time 
procedure name. 


System Action: The attribute 
of the returned value is 
determined by the relevant 
PROCEDURE statement. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ENTRY ATTRIBUTE DISAGREES WITH 
DECLARATION FOR FORMAL 
PARAMETER 2222. THE LATTER HAS 
BEEN USED. 


Explanation: An ENTRY 
attribute in a DECLARE 
statement does not agree with 
the parameter attributes 
declared in the procedure. 


System Action: If the relevant 
procedure is referenced, the 
argument will be converted to 
the type declared for the 
formal parameter. 
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Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have the source program E IEMA4382I 
listing available. 


RETURNS ATTRIBUTE IN LINE 
NUMBER xxx MUST BE 
PARENTHESIZED.  PARENTHESIS 
INSERTED. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have the source program E IEM438 31 
listing available. 


ONLY FIXED OR CHARACTER ARE 
ALLOWED IN RETURNS ATTRIBUTE IN 
LINE NUMBER xxx. ATTRIBUTE 
IGNORED. 


Explanation: An illegal 
attribute was found. 


System Action: The attribute 
of the returned value is 
determined by the relevant 
PROCEDURE statement. 


Programmer Response: Probable E ІЕМ4391І 
user error. Correct program 

and recompile. If the problem 

recurs, do the following before 

calling IBM for programming 


supports: 


e Have the source program 
listing available. 


ATTRIBUTE yyyy IS ILLEGAL IN 
ENTRY ATTRIBUTE IN LINE NUMBER 
XXX. NO CONVERSION WILL BE 
DONE. 
5 IEM4394I 
Explanation: An invalid 
attribute was found. 


System Action: No conversion 
to an ENTRY attribute will be 
carried out. However, if the 
relevant procedure is 
referenced, arguments will be 
converted to the types declared 
for the procedure parameters. 


Programmer Response: Probable 
user error. Correct program 

and recompile. If the problem 
recurs, do the following before 
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calling IBM for programming 
support: 


e Have the source program 
listing available. 


ATTRIBUTE CONFLICTS WITH 
PREVIOUS ATTRIBUTE FOR 
IDENTIFIER zzzz IN LINE NUMBER 
ххх. ATTRIBUTE IGNORED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PREVIOUS USAGE OF IDENFIFIER 
2222 CONFLICTS WITH ATTRIBUTE 
IN LINE NUMBER xxx. ANY 
REFERENCE WILL TERMINATE 
PROCESSING. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPERAND MISSING IN LINE NUMBER 
XXX. A FIXED DECIMAL ZERO HAS 
BEEN INSERTED. 


Programmer Response:  Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ILLEGAL OPERATOR yyyy IN LINE 
NUMBER xxx. IT HAS BEEN 
REPLACED BY A PLUS. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


A LETTER IMMEDIATELY FOLLOWS 
CONSTANT yyyy IN LINE NUMBER 
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xxx. AN INTERVENING BLANK HAS 
BEEN ASSUMED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have the source program 
listing available. 


OPERATOR .NOT. IN LINE NUMBER 
xxx USED AS AN INFIX OPERATOR. 
IT HAS BEEN REPLACED BY .NE. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


COMPILER ERROR. EXPRESSION 
SCAN OUT OF PHASE. 


System Action: Processing is 


terminated. 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


PREVIOUS USAGE OF IDENTIFIER 
zzzz CONFLICTS WITH USE IN 
EXPRESSION IN LINE NUMBER ххх. 


System Action: Processing is 
terminated if an attempt is 
made to execute a statement 
which references the identifier 
in question. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 
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UNDECIPHERABLE KEYWORD. nnn 
IDENTIFIERS HAVE BEEN DELETED 
BEFORE yyyy IN LINE NUMBER xxx. 


Explanation: The processor has 
found a mis-match while 
scanning a keyword consisting 
of more than one identifier. 


System Action: The identifiers 
preceding the non-matching 
identifier are deleted. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


OPERATOR MISSING IN LINE NUMBER 
XXX. А PLUS HAS BEEN INSERTED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


NO EXPRESSION WHERE ONE IS 
EXPECTED IN LINE NUMBER xxx. А 
FIXED DECIMAL ZERO HAS BEEN 
INSERTED. — 


Programmer Responses Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


ILLEGAL OPERAND yyyy IN LINE 
NUMBER xxx HAS BEEN REPLACED BY 
A FIXED DECIMAL ZERO. 


Programmer Response: Probable 
user error. Correct program 


and recompile. if the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Have the source program 
listing available. 


MISSING LEFT PARENTHESIS 


INSERTED AT BEGINNING OF 
EXPRESSION IN LINE NUMBER xxx. 
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Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: . 


e Have the source program 
listing available. 


REFERENCE IN LINE NUMBER xxx TO 
STATEMENT OR IDENTIFIER WHICH 
IS IN ERROR. PROCESSING 
TERMINATED. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
supports: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


EXCESS ARGUMENTS TO FUNCTION 
zzzz IN LINE NUMBER xxx. EXTRA 
ARGUMENTS HAVE BEEN DELETED. 


Explanation: Too many 
arguments appear in a procedure 
reference. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


TOO FEW ARGUMENTS TO FUNCTION 
zzzz IN LINE NUMBER xxx. 
MISSING ARGUMENTS HAVE BEEN 
REPLACED BY NULL STRINGS OR 
FIXED DECIMAL ZEROS. 


Explanation: Too few arguments 
appear in a procedure 
reference. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have the source program 
listing available. 


NO ENTRY DECLARATION FOR 
PROCEDURE zzzz REFERENCED IN 
LINE NUMBER xxx. ATTRIBUTES 
TAKEN FROM PROCEDURE. 


Explanation: All procedure 
names must be declared with 
ENTRY and RETURNS attributes 
before the procedure is 
referenced. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


PROCEDURE zzzz REFERENCED IN 
LINE NUMBER xxx CANNOT BE 
FOUND. PROCESSING TERMINATED. 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


° Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


RECURSIVE USE OF PROCEDURE 2222 
IN LINE NUMBER xxx IS 
DISALLOWED. PROCESSING 
TERMINATED. 


Programmer Response:  Probable 
user error. ТЕ the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 
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TOO FEW ARGUMENTS HAVE BEEN 
SPECIFIED FOR THE BUILTIN 
FUNCTION SUBSTR IN LINE NUMBER 
xxx. A NULL STRING HAS BEEN 
RETURNED. | 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


TOO MANY ARGUMENTS HAVE BEEN 
SPECIFIED FOR THE BUILTIN 
FUNCTION SUBSTR IN LINE NUMBER 
ххх. EXTRA ARGUMENTS HAVE BEEN 
IGNORED. 


Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


FIXED OVERFLOW HAS OCCURRED IN 


LINE NUMBER xxx. RESULT 
TRUNCATED. 
System Action: Truncation 


occurs on left to 5 decimal 
digits. 


Programmer Response:. Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


ZERO DIVIDE HAS OCCURRED AT 
LINE NUMBER xxx. RESULT SET TO 
ONE. 


Programmer Responses Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


END-OF-FILE FOUND IMBEDDED IN 
STATEMENT IN LINE NUMBER xxx. 
EXECUTION OF STATEMENT WILL 
CAUSE TERMINATION. 
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Programmer Response: Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER BEGINNING 2222 IN 
STATEMENT AT LINE NUMBER xxx IS 
TOO LONG AND HAS BEEN 
TRUNCATED. 


Explanation: Identifiers may 
not exceed 31 characters in 
length. 


System Action: The identifier 
is truncated to the first 31 
Characters. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. ТЕ the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have the source program 
listing available. 


CONSTANT yyyy IN LINE NUMBER 
xxx HAS PRECISION GREATER THAN 
5. A FIXED DECIMAL ZERO HAS 
BEEN INSERTED. 


Explanation: Implementation 
restriction. Precision of 
fixed decimal numbers is 
limited to 5 digits. 


System Action: А value of zero 


is assigned. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


QUESTION MARK IN LINE NUMBER 
xxx HAS NO SIGNIFICANCE. IT 
HAS BEEN IGNORED 


Explanation: Question mark, 
although a recognizable 
character in PL/I, has no 
syntactical meaning. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
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recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


STRING IN LINE NUMBER ххх 
CONVERTS TO A FIXED DECIMAL 
NUMBER WITH PRECISION GREATER 
THAN 5. PROCESSING TERMINATED. 


Explanation: Implementation 
restriction. Precision of 
fixed decimal numbers is 
limited to 5 digits. 


System Action: Processing is 


terminated 


Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


CHARACTER STRING IN LINE NUMBER 
XXX CONTAINS CHARACTER OTHER 
THAN 1 OR 0 AND CANNOT BE 
CONVERTED TO A BIT STRING. 
PROCESSING TERMINATED. 


Programmer Response:  Probable 
user error. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


STRING IN LINE NUMBER xxx OR IN 
PROCEDURE REFERENCED IN SAID 
LINE NUMBER CANNOT BE CONVERTED 
TO A FIXED DECIMAL CONSTANT. 
PROCESSING TERMINATED. 


Programmer Responses Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


T TEM4499I А X STATEMENT IS FOUND IN A 
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REPLACEMENT VALUE IN LINE 
NUMBER xxx. PROCESSING 
TERMINATED. 


Explanation: A replacement 
value may not contain a 
compile-time statement. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


AN IDENTIFIER zzzz WITH 
CONFLICTING USAGE OR MULTIPLE 
DEFINITIONS IS REFERENCED IN 
LINE NUMBER xxx. PROCESSING 
TERMINATED. 


Explanation: An attempt is 
made to execute a statement 
which references an identifier 
that was not properly defined. 


Programmer Response:  Probable 
user error. Correct program. 


If the problem recurs, do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
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If the problem recurs, 


comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
Stream and source program 
listing available. 


VARIABLE zzzz IS USED IN LINE 
NUMBER xxx BEFORE IT IS 
INITIALIZED. IT HAS BEEN GIVEN 


"NULL STRING OR ZERO VALUE. 


Explanation: А value must be 
assigned to variables before 
they are referenced after being 
declared. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


DD STATEMENT FOR INCLUDE 2222. 
MISSING IN LINE NUMBER xxx. 
PROCESSING TERMINATED. 


Explanation: A DD statement 
must be present, in the Job 
Control cards for the 
compilation, with a name in the 
name field that corresponds to 
the ddname identifier in the 
INCLUDE statement. If no 
ddname is specified in the 
INCLUDE statement, a SYSLIB DD 
Statement is required. 


Programmer Response: Probable 
user error. Insert appropriate 


DD statement and recompile. 
do the 
following before calling IBM 
for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 
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e Have the associated job 
stream and source program 
listing available. 


UNRECOVERABLE I/O ERROR WHILE 
SEARCHING FOR MEMBER OF INCLUDE 
2222 IN LINE NUMBER xxx. 
PROCESSING TERMINATED. 


Programmer Response: Check DD 
Statement and reattempt 


compilation. If the 
input/output error persits, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2Z2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
Stream and source program 
listing available. 


ILLEGAL RECORD FORMAT SPECIFIED 
FOR INCLUDE zzzz IN LINE NUMBER 
XXX. PROCESSING TERMINATED. 


Explanation: Included records 
must be a fixed length of not 
more than 100 characters with a 
maximum blocking factor of 5. 
Blocksize must be a multiple of 
the record length. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 
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е Obtain а listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


MEMBER OF INCLUDE zzzz IN LINE 
NUMBER xxx NOT FOUND ON DATA 
SET. PROCESSING TERMINATED. 


Programmer Response: Probable 
user error. Check INCLUDE 


statement, DD statement and 
data file. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z22)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


RECORD LENGTH NOT SPECIFIED FOR 
INCLUDE zzzz IN LINE NUMBER 
XXX. RECORD LENGTH EQUAL TO 
BLOCKSIZE HAS BEEN ASSUMED. 


Programmer Response: Probable 
user error. Correct record 


length specification in DD 
Statement, if necessary. If 
the problem recurs, do the 
following before calling IBM 
for programming support: 


* Recompile the program with 
compiler options 
'S,DP-(PIE,22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnni messages.) 


е Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
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statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


BLOCKSIZE NOT SPECIFIED FOR 
INCLUDE zzzz IN LINE NUMBER 
ххх.  BLOCKSIZE EQUAL TO RECORD 
LENGTH HAS BEEN ASSUMED. 


Programmer Response: Probable 
user error. Correct blocksize 


specification in DD statement, 
if necessary. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
"S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


RECORD LENGTH AND BLOCKSIZE NOT 
SPECIFIED FOR INCLUDE zzzz IN 
LINE NUMBER xxx. RECORD LENGTH 
OF 80 AND BLOCKSIZE OF 400 HAVE 
BEEN ASSUMED. 


Programmer Response: Probable 
user error. Correct record 


length and block size 
specifications in DD statement, 
if necessary. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options | 
'S,DP-(PIE,ZZ)' to Obtain а 
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formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


I/O ERROR WHILE READING TEXT 
INCLUDED FROM zzzz AT LINE 
NUMBER xxx. PROCESSING 
TERMINATED. 


Programmer Response: Check DD 
Statement and reattempt 


compilation. If the 
input/output error persists, do 
the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
's, DP=(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


e Have the associated job 
Stream and source program 
listing available. 


IMPLEMENTATION RESTRICTION. 
EXCESSIVE LEVEL OF NESTING OR 
REPLACEMENT AT LINE NUMBER xxx. 
PROCESSING TERMINATED. 


Explanation: Level of nesting 
in this case is calculated by 
summing the number of current 
unbalanced left parentheses, 
the number of current nested 
DO's, the number of current 
nested IF's, and the number of 
current nested replacements. А 
level of 50 is always 
acceptable. 
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Programmer Response:  Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,Z2)' to obtain а 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


INPUT RECORD AT LINE NUMBER ххх 
IS TOO LONG. PROCESSING 
TERMINATED. 


Explanation: Input record 
contains more than 100 
characters. 


Programmer Response: If the 
input/output error persists, do 


the following before calling 
IBM for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ2)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSUDUMP DD statement was 
included for the failing 
job step. 


е Have the associated job 
stream and source program 
listing available. 


INPUT RECORD CONTAINS FEWER 
CHARACTERS THAN SORMGIN 
REQUIRES. PROCESSING 
TERMINATED. 


Explanation: The length of the 
input record is less than the 
left margin of the SORMGIN 
specification. 


Programmer Response: Probable 
user error. Check SORMGIN 


option on EXEC control card. 

If the problem recurs, do the 
following before calling IBM 

for programming support: 
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e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSUDUMP DD statement, was 
included for the failing 
job step. 


e Obtain a listing of module 
IEMAF (in SYS1.LINKLIB) 
using IMASPZAP. 


e Have the associated job 
stream and source program 
listing available. 


COMPILER ERROR. 
SPACE FOR TABLES. 


INSUFFICIENT 


System Action: Processing is 


terminated 


Programmer Response: Do the 
following before calling IBM 


for programming support: 


e Recompile the program with 
compiler options 
'S,DP-(PIE,ZZ)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


RIGHT PARENTHESIS INSERTED IN 
LINE NUMBER xxx TO END ARGUMENT 
LIST FOR PROCEDURE 2222. 


Explanation: The argument list 
referred to is in a source 
program reference to a 
compile-time procedure. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IN LINE NUMBER xxx ARGUMENT 
LIST FOR PROCEDURE 2222 


Е IEMU559I 


E IEMU562I 


E ІЕМ45701 


CONTAINS COMPILE TIME CODE. 
PROCESSING TERMINATED. 


Explanation:  Compile-time code 
may not be embedded in argument 
list of compile-time procedure 
reference. | 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Recompile the program with 
compiler options 
'S,DPz(PIE,Z22)' to obtain a 
formatted dump of the 
compiler. (Refer to the 
comments which precede all 
the IEMnnnnI messages.) 


e Have the associated job 
stream and source program 
listing available. 


LEFT PARENTHESIS BEGINNING 
ARGUMENT LIST OF PROCEDURE 2222 
WAS NOT FOUND. PROCEDURE WAS 
INVOKED AT LINE NUMBER xxx 
WITHOUT ARGUMENTS. 


Explanation: The argument list 
referred to is in a source 
program reference to a 
compile-time procedure. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


IDENTIFIER IN LINE NUMBER xxx 
EXCEEDS 31 CHARACTERS. 
REPLACEMENT WAS DONE ON 
TRUNCATED FORM 2222. 


Explanations A 
non-compile-time source text 
identifier consists of more 
than 31 characters. 


Programmer Responses Probable 
user error. Correct program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE THIRD ARGUMENT OF BUILT-IN 


E IEM4572I 


E IEM45741 


E IEMU576I 


E ІЕМ4578І 


FUNCTION SUBSTR IS NEGATIVE, IN 
LINE NUMBER xxx. A NULL STRING 
HAS BEEN RETURNED. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE THIRD ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR EXCEEDS THE 
STRING LENGTH, IN LINE NUMBER 
XXX. THE SUBSTRING HAS BEEN 
TRUNCATED AT THE END OF THE 
ORIGINAL STRING. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE COMBINED SECOND AND THIRD 
ARGUMENTS OF BUILT-IN FUNCTION 
SUBSTR EXCEED THE STRING 
LENGTH, IN LINE NUMBER ххх. 
THE SUBSTRING HAS BEEN 
TRUNCATED AT THE END OF THE 
ORIGINAL STRING. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SECOND ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR IS LESS THAN 
ONE, IN LINE NUMBER xxx.  ITS 
VALUE HAS BEEN RESET TO ONE. 


Programmer Response:  Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have the source program 
listing available. 


THE SECOND ARGUMENT OF BUILT-IN 
FUNCTION SUBSTR EXCEEDS THE 
STRING LENGTH, IN LINE NUMBER 


xxx. A NULL STRING HAS BEEN 
RETURNED. 


Programmer Response: Probable 
user error. Correct program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Have the source program 
listing available. 


AN UNINITIALISED VARIABLE HAS 
BEEN FOUND IN A BUILT-IN 
FUNCTION ARGUMENT LIST, IN 
STATEMENT NUMBER xxx. A NULL 
STRING HAS BEEN RETURNED. 


S IEM4580I 


Programmer Responses Probable 
user error. Initialise the 


variable before invoking the 
built-in function. If the 
problem recurs, do the 
following before calling IBM 
for programming support: 


e Have the source program 
listing available. 


Object-Time Diagnostic Messages 


The messages in the following text may be 
printed on the output data set specified 
for SYSPRINT, as the result of an 
exceptional or error condition occurring 
during the execution of a PL/I program. If 
the SYSPRINT DD statement is absent, then 
the object-time messages appear on the 
operator's console, except for the ON CHECK 
system action messages and the COPY option 
output, which will not be produced at all 
in this case. 


Each message number is of the form 
ІНЕпппі, where the code IHE indicates а 
PL/I library message, and nnn the number of 
the message. The final character I 
indicates the informative nature of the 
message. 


Diagnostic messages are printed at 
execution time for two main reasons: 


1. An error occurs for which no specific 
ON-condition exists in PL/I. A 
diagnostic message is printed, and the 
ERROR ON-condition is raised. 


2. An ON-condition is raised, by compiled 
code or by the library, and the action 
required is system action, for which 
the language specifies COMMENT as part 
of the necessary action. 
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Object time diagnostic messages will 
take one of the following forms: 


1. ІНЕпппі FILE name - text AT location 
message 


2. IHEnnnI rtname - text AT location 
message 


3. ІНЕпппі text AT location message 


where 'name' is the name of the file 
associated with the error (given 
only in I/O diagnostic messages) 


'rtname' is the name of the library 
routine in which the error 
occurred (given only for 
computational subroutines). 


'location message' is either 


OFFSET * hhhhh FROM ENTRY POINT 
Е1 


ог 


OFFSET + hhhhh FROM ENTRY POINT 
OF cccc ON-UNIT 


Note: If it is a Model 91 or Model 195 
message resulting from an imprecise 
interrupt, "AT OFFSET..." is replaced 
by "NEAR OFFSET..." since the 
instruction causing the interrupt 
cannot be precisely identified. 


If the statement number compiler option 
has been specified, each message will also 
. contain IN STATEMENT nnnnn prior to AT 
location message.  nnnnn gives the number 
of the statement in which the condition 
occurred. 


The diagnostic messages for other than 
ON-type errors are mainly self-explanatory. 
Explanations in the following lists are 
given only when the message is not 
self-explanatory. 


To assist error determination, use 
diagnostic aids during debugging runs: 


1. Enable SIZE, SUBSCRIPTRANGE, 
STRINGRANGE conditions. 


2. Do not disable any of the conditions: 
CONVERSION, FIXEDOVERFLOW, OVERFLOW, 
UNDERFLOW, ZERODIVIDE. 


3. Insert an on-unit for the ERROR 
condition in the Main Procedure, and 
include a PLÍDUMP DD statement for the 
failing job step. For example: ON 
ERROR SNAP CALL IHEDUMP; 


4. Recompile program with compiler 
options 'ST,A,X,L'. 


468 


7. 


Notes 
use, 


Use Linkage Editor options 'LIST,MAP', 
or Linkage Loader options 'PRINT,MAP'. 


Specify MSGLEVEL-(1,1) on job 
statement. 


Include a SYSABEND DD statement for 
the failing job step. 


If the shared library feature is in 
do the following before calling IBM 


for programming support: 


e Obtain a list of the options specified 
іп the PLILIB macro used during system 
generation. 


e Obtain a Linkage Editor Map of the 
resident shared library module IHELTVA. 


IHEOO03I SOURCE PROGRAM ERROR IN 


STATEMENT nnnnn 


This message will always 
contain a statement number 
whether or not the compiler 
option is specified. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
XHEDUMP and that a РІ100МР 
DD statement was included 
for the failing job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


IHEOO4SI INTERRUPT IN ERROR HANDLER - 


PROGRAM TERMINATED 


Explanation: When an 
unexpected program interrupt 


occurs during the handling of 
another program interrupt, it 
indicates that the program has 
a disastrous error in it, such 
as DSA chain out of order, 
instructions overwritten, or 
such. The program is 
abnormally terminated, and the 
above message is printed out at 
the console. A dump is 


ІНЕ005І 


ІНЕ0061І 


produced with а User Completion 
Code of 4000. 


Programmer Responses After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


PSEUDO-REGISTER VECTOR TOO 
LONG - PROGRAM NOT EXECUTED 


Explanation: This error arises 
when the sum of the number of 
procedures, the number of 
files, and the number of 
controlled variables exceeds 
1000. It causes return to the 
Supervisor from IHESAP; PL/I 
program is not entered. The 
message always appears at the 
console. A return code of 4004 
is generated. 


Programmer Response: After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


NO MAIN PROCEDURE. 
TERMINATED. 


PROGRAM 


Explanation: No external 
procedure in the program has 
been given the option MAIN. 
This message appears at the 


ІНЕ0091 


ІНЕ0101. 


console. А return code of 4008 
is generated. 


Programmer Response: After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, йо the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


IHEDUM*. NO PLIDUMP DD CARD. 
EXECUTION TERMINATED. 


Explanation: Execution has been 
abnormally terminated with a 
system dump and a system 
completion code of (3000 + 
Return code (if set)) 


Programmer Response: After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


PROGRAM ENDED BY OS360. 
CODE = hhh (a hexadecimal 
number). 


RETURN 


Explanation: The major task has 
been terminated abnormally by 
the operating system. The 
above message appears on the 
console. 


Programmer Response: After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
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IHEO11I 


ІНЕ0121 
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recurs, 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


KEY ERROR WHEN CLOSING FILE AT 
END OF TASK 


Explanation: An unresolved key 
error exists for which no 
condition can now be raised. 
The above message appears on 
the console. 


Programmer Response: After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


* Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


jjj ABENDEDIIN STMT nnnnn] (АТ 
OFFSET xxxxxx] [FROM ENTRY 
POINT pppl WITH CC xxx 

t (SYSTEM) | (USER) } 


Explanation: Job jjj was 
terminated by the operating 


System with completion code 
xxx, if (SYSTEM) is printed. 
(USER) is printed if the 
termination was due to a user 
specified ABEND.  STMT nnnnn is 
the statement number, which was 
the last to be executed before 
the ABEND took place.  xxxxxx 
is the offset from the entry 
point specified. Message may 
appear on SYSPRINT if OPEN and 
not in ERROR, or on the 
console. 


do the following before 


ІНЕ013І 


I/O Errors 


ІНЕ018І 


ІНЕ0201 


IHEO211I 


ІНЕ0221 


Programmer Response: After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


NO MAIN STORAGE AVAILABLE FOR 
PL/I STAE EXIT 


Explanation: Insufficient main 
storage available for the PL/I 
STAE exit routine to load the 
routine which analyzes the 
ABEND termination. Message 
appears on the console. 


Programmer Responses After 
making corrections, recompile 


the program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that a 
SYSABEND DD statement was 
included for the failing 
job step. 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - FILE TYPE NOT 
SUPPORTED 


FILE name - ATTEMPT TO READ 
OUTPUT FILE 


FILE name - ATTEMPT TO WRITE 
INPUT FILE 


GET/PUT STRING EXCEEDS STRING 
SIZE 


Explanation: 


IHEO23I 


For input: programmer has 
requested more than exists on 
the input string. 

For output: programmer is 
trying to write more than his 
output string will hold. 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - OUTPUT TRANSMIT 
ERROR NOT ACCEPTABLE 


Explanation: The ERROR is 
raised, (i) upon return from a 
TRANSMIT ON-unit, if the device 
in error is other than a 
printer, or (ii) if access to a 
file by RECORD I/O has been 
attempted after the TRANSMIT 
condition has been raised for 
output. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


© Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 


IHEO24I 


IHEO25I 


Editor/Loader Map and 
program listing available. 


FILE name - PRINT OPTION/FORMAT 
ITEM FOR NON-PRINT FILE 


Explanation:  Attempt to use 
PAGE, LINE or SKIP s 0 for а 
non-print file. 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


DISPLAY - MESSAGE OR REPLY AREA 
LENGTH ZERO 


Explanation: This message 
appears only if the REPLY 
option is exercised. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 
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IHEO261I 


IHEO271 
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FILE name - DATA DIRECTED INPUT 
- INVALID ARRAY DATUM 


Explanation: Number of 
subscripts on external medium 
does not correspond to number 
of declared subscripts. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


GET STRING - UNRECOGNIZABLE 
DATA NAME 


Explanation: 


1. СЕТ DATA - name of data 
item found in string is 
not known at the time of 
the GET statement, or 


2. СЕТ DATA data list - name 
of data item found in 
string is not specified in 
the list. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the NAME 
condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


IHEO2 91 


IHEO3O0I 


e Have the associated job 
stream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - UNSUPPORTED FILE . 
OPERATION 


Explanation: Programmer has 
executed an I/O statement with 
an option or verb not 
applicable to the specified 
file. 


For example: 


I/O Option 

or Verb File Attribute 

READ SET| DIRECT| 

LOCATE (SEQUENTIAL 
UNBUFFERED) 

REWRITE (SEQUENTIAL 

(without FROM)| INPUT|OUTPUT| 

EXCLUSIVE| UPDATE) | 

UNLOCK | (DIRECT INPUT| 

(READ NOLOCK) OUTPUT) 

KEYTO REGIONAL 
DIRECT 

LINESIZE| STREAM (INPUT| 

PAGESIZE UPDATE) 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - REWRITE/DELETE NOT 
IMMEDIATELY PRECEDED BY READ 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 


IHE031I 


recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, апа that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - INEXPLICABLE I/O 
ERROR 


Explanation: Operating system 
data management has detected 
some error in the current 
input/output operation. The 
message could be caused by one 
of the following: 


1. INDEXED data set with 
F-format records: a 
previously created data 
set was reopened for 
sequential output and the 
key of the record to be 
added was not higher in 
the collating sequence 
than that of the last key 
on the data set. 


2. An input/output error 
occurred for which no 
information was supplied 
by data management. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 


ІНЕ0321І 


ІНЕ0ЗЗІ 


Editor/Loader Мар and 
program listing available. 


FILE name - OUTSTANDING READ 
FOR UPDATE EXISTS 


Explanation: When a record is 
read from an INDEXED fiie which 
contains blocked records and 
which is open for DIRECT 
UPDATE, the record must be 
rewritten. Between the READ 
statement and the associated 
REWRITE statement, no other 
operation may be performed on 
the file. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - NO COMPLETED READ 
EXISTS (INCORRECT NCP VALUE) 


Explanation: This message may 
be issued because the correct 
NCP value has not been 
specified or it may be due to 
incorrect source code. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
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IHE034I 


IHEO35I 
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DD statement was included 
for the failing job step. 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - TOO MANY INCOMPLETE 
I/O OPERATIONS 


Explanation: The number of 
incomplete I/O operations 
equals the NCP value. 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - EVENT VARIABLE 
ALREADY IN USE 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHEO3 61 


ІНЕ037І 


IHEO38I 


FILE name - IMPLICIT OPEN 
FAILURE, CANNOT PROCEED 


Explanation: There has been a 
failure in an implicit OPEN 
operation. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - ATTEMPT TO REWRITE 
OUT OF SEQUENCE 


Explanation: An intervening 
I/O statement occurs between a 
READ statement and a REWRITE 
statement referring to the same 
record. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calis 
IHEDUMP and that a PLLDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - ENDFILE FOUND 


IHEO39I 


UNEXPECTEDLY IN MIDDLE OF DATA 
ITEM. 


Explanation: The ERROR 
condition is raised when 
end-of-file is encountered 
before the delimiter when 
scanning list-directed or 
data-directed input, or if the 
field width in the format list 
of edit-directed input would 
take the scan beyond the 
end-of-file. 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - ATTEMPT TO CLOSE 
FILE NOT OPENED IN CURRENT TASK 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


I/O ON-conditions 


All these conditions may be raised by 
the SIGNAL statement. 


ІНЕ1001 


ІНЕ1101 


FILE name - UNRECOGNIZABLE DATA 
NAME 


Explanation: 


Initiating ON-condition: NAME 

1. GET DATA - name of data 
item found on external 
medium is not known at the 
time of the GET statement, 
or 


2. GET DATA data list - name 
of data item found on 
external medium is not 
specified in the list. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - RECORD CONDITION 
SIGNALED 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLiDUMP 
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DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - RECORD VARIABLE 
SMALLER THAN RECORD SIZE 


fxplanation: Тһе variable 
specified in the READ statement 
INTO option allows fewer 
characters than exist in the 
record. 


F format records: 
a WRITE statement attempts to 
put a record smaller than the 
record size. 


All formats: 
a REWRITE attempts to replace 
a record with one of smaller 
Size. (Note: This condition 
cannot be detected for 
U-format records read for 
UNBUFFERED or DIRECT files.) 


Programmer Response: Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - RECORD VARIABLE 
LARGER THAN RECORD SIZE 


Explanation: The variable 
specified in the READ statement 
INTO option requires more 
characters than exist in the 
record; or a WRITE statement 
attempts to put out a record 
greater than the available 
record size; or a REWRITE 
statement attempts to replace a 


IHE113I 


IHE1141 


record with one of greater 
size. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ATTEMPT TO WRITE/LOCATE ZERO 
LENGTH RECORD 


Explanation: A WRITE or 
REWRITE statement attempts to 
put out a record of zero 
length, or a LOCATE statement 
attempts to get buffer space 
for a record of zero length; 
such records are used for 
end-of-file markers for direct 
access storage devices. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - ZERO LENGTH RECORD 
READ 


IHE120I 


Explanation: A record of zero 
length has been read from a 
REGIONAL data set accessed in 
the DIRECT mode. This should 
not occur, unless the data set 
was created by another 
processor. A zero length 
record, on a direct access 
device, is an end-of-file 
signal. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: ` 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, апа that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - PERMANENT INPUT 
ERROR 


Explanation: 


Initiating ON-CONDITION: 
TRANSMIT 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHE121I 


IHE122I 


IHE13 01 


FILE name - PERMANENT OUTPUT 
ERROR 


Explanation: 


Initiating ON-condition: 
TRANSMIT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - TRANSMIT CONDITION 
SIGNALED 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEY CONDITION 
SIGNALED 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
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step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


. Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEYED RECORD NOT 
FOUND 


Explanation: READ, REWRITE, or 
DELETE statement specified 
record key which does not match 
with records of data set. If 
REGIONAL (2) or (3) data sets 
are employed, and the DD 
Statement parameter LIMCT is 
used, then the record does not 
exist within the number of 
records or tracks searched, but 
may exist elsewhere. 


Proqrammer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - ATTEMPT TO ADD 
DUPLICATE KEY 


Explanation: WRITE statement 
specified a key value which 
already exists within data set. 


IHE133I 


1. INDEXED data sets: 
detected for both 
SEQUENTIAL and DIRECT 
access. 


2% REGIONAL data sets: 
detected only for REGIONAL 
(1) and (2) SEQUENTIAL 
output. 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


, © Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a РІЛГОМР 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEY SEQUENCE ERROR 


Explanation: WRITE statement 
specified, during creation of 
data set (OUTPUT SEQUENTIAL), a 
key which for: 


1. INDEXED data sets is lower 
in binary collating 
sequence than prior key 


2. REGIONAL data sets the 
relative record/track 
value is lower than that 
of prior key. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 


IHE1341 


IHE135I 


DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEY CONVERSION 
ERROR 


Explanation: WRITE, READ, 
REWRITE, or DELETE statement 
for REGIONAL data set specified 
character string key value 
whose relative record/track 
partition contains characters 
other than blank or the digits 
0 through 9, or which contains 
only the character blank. 


Programmer Responses:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was inciuded 
for the failing job step. 


* Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEY SPECIFICATION 
ERROR 


Explanation: 


1. INDEXED: the KEYFROM or 
KEY expression may be the 
NULL string. 
Alternatively, RKP does 
not equal zero and the 
embedded key is not 
identical with that 
specified by the KEYFROM 
option (or the KEY option 
in the case of a rewrite 
statement). A third 
possibility is that an 
attempt has been made 
during SEQUENTIAL UPDATE 
to replace a record by one 
whose embedded key does 


IHE136I 


not match that of the 
original record. 


2. REGIONAL: as for INDEXED, 
or initial character of 
KEY or KEYFROM expression 
value is the value 
(8)'1'B. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEYED RELATIVE 
RECORD/TRACK OUTSIDE DATA SET 
LIMIT 


Explanation: WRITE, READ, 
REWRITE, or DELETE statement 
for REGIONAL data set specified 
a key whose relative 
record/track value exceeds the 
number of records or tracks 
assigned to the data set. 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
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Editor/Loader Map and 
program listing available. 


FILE name - NO SPACE AVAILABLE 
TO ADD KEYED RECORD 


Explanation: WRITE statement 
attempted to add record, but 
data set was full. If REGIONAL 
(2) or (3) data set, condition 
is raised if space within 
optional limits (DD parameter 
LIMCT) is unavailable. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - END OF FILE 
ENCOUNTERED 


Explanation: 


Initiating ON-condition: 
ENDFILE 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 


ІНЕ1501 


ІНЕ151І 


jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - CANNOT BE OPENED, 
NO DD CARD 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - CONFLICTING DECLARE 
AND OPEN ATTRIBUTES 


Initiating ON-condition: 
UNDEFINEDFILE 


There is a conflict between the 
declared PL/I file attributes. 
For example: 

Attribute  Conflicting 
Attributes 
PRINT INPUT, UPDATE, 
RECORD, DIRECT, 
SEQUENTIAL, 
TRANSIENT, 
BACKWARDS, BUFFERED, 
UNBUFFERED, 
EXCLUSIVE, KEYED 
STREAM UPDATE, RECORD, 
DIRECT, TRANSIENT, 
SEQUENTIAL, 
BACKWARDS, BUFFERED, 
UNBUFFERED, 
EXCLUSIVE, KEYED 
EXCLUSIVE  INPUT, OUTPUT, 
SEQUENTIAL, 
TRANSIENT, 


BACKWARDS, BUFFERED, 
UNBUFFERED 


DIRECT SEQUENTIAL, 
TRANSIENT, 
BACKWARDS, BUFFERED, 
UNBUFFERED 

UPDATE INPUT, OUTPUT, 
BACKWARDS, TRANSIENT 


OUTPUT INPUT, BACKWARDS 


BUFFERED UNBUFFERED 

Some attributes may have been 
supplied when a file is opened 
implicitly. Example of 
attributes implied by I/0 
statements аге: 


I/O 
Statement Implied Attributes 


DELETE RECORD, DIRECT, 
UPDATE 

GET INPUT 

LOCATE RECORD, OUTPUT, 
SEQUENTIAL, BUFFERED 

PUT . OUTPUT 

READ RECORD, INPUT 

REWRITE RECORD, UPDATE 

UNLOCK RECORD, DIRECT, 
UPDATE, EXCLUSIVE 

WRITE RECORD, OUTPUT 


In turn, certain attributes may 
imply other attributes: 


Attribute Implied Attributes 


BACKWARDS RECORD, SEQUENTIAL, 
INPUT 

BUFFERED RECORD, SEQUENTIAL 

DIRECT RECORD, KEYED 

EXCLUSIVE RECORD, KEYED, 
DIRECT, UPDATE 

KEYED RECORD 

PRINT OUTPUT, STREAM 


SEQUENTIAL RECORD 
UNBUFFERED RECORD, SEQUENTIAL 


UPDATE RECORD 


IHE1521 


Finally, a group of alternate 
attributes has one of the group : 
as a default. The default is 
implied if none of the group is 
specified explicitly or is 
implied by other attributes or 
by the opening I/O statement. 
The groups of alternates are: 


Group Default 
STREAM | RECORD STREAM 
INPUT|OUTPUT|UPDATE INPUT 
SEQUENTIAL |DIRECT| SEQUENTIAL 
TRANSIENT 
(RECORD files) 

BUFFERED| UNBUFFERED BUFFERED 
(SEQUENTIAL files) 
Programmer_Response: Probable 


user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - FILE TYPE NOT 
SUPPORTED 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


The user has attempted to 
associate a paper-tape device 
with a file that does not have 
the INPUT attribute. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - BLOCKSIZE NOT 
SPECIFIED 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


Block size not specified on DD 
card, nor on environment. 
However, will never occur for 
PRINT file, because default 
block size is assumed. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - UNDEFINEDFILE 
CONDITION SIGNALED 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHE155I 


IHE156I 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - ERROR INITIALIZING 
REGIONAL DATA SET 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


A REGIONAL data set, opened for 
DIRECT OUTPUT, cannot be 
properly formatted during the 
open process. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - CONFLICTING 
ATTRIBUTE AND ENVIRONMENT 
PARAMETERS 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


Examples of conflicting 
parameters NAME block size is 
assumed. are: 


IHE157I 


ENVIRONMENT 

Parameter File Attribute 
No file KEYED 
organization 

parameter 


INDEXED|REGIONAL STREAM 


CONSECUTIVE DIRECT| 
EXCLUSIVE 
INDEXED DIRECT OUTPUT 


INDEXED|REGIONAL OUTPUT without 
KEYED 


Blocked records  UNBUFFERED 


V-format records BACKWARDS 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - CONFLICTING 


ENVIRONMENT AND/OR DD 
PARAMETERS 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


One of the following conflicts 
exists: 


1. F-format records have not 
been specified for a 
REGIONAL(1) or REGIONAL(2) 
file. 


2. Blocked records have been 
specified with a REGIONAL 
file. 


ІНЕ158І 


3. Track overflow was 
specified in the DD 
statement of a REGIONAL(3) 
file using U- or V-format 
records. 


4. Track overflow was 
specified in the ENV 
attribute of a REGIONAL(3) 
file using U- or V-format 
records. The compile-time 
messagé was lgnored. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - KEYLENGTH NOT 
SPECIFIED 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


A keylength has not been 
specified for an INDEXED, 
REGIONAL(2), or REGIONAL(3) 
file that is being opened for 
OUTPUT. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
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IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - INCORRECT BLOCKSIZE 
AND/OR LOGICAL RECORD SIZE IN 
STATEMENT NUMBER xxx 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


One of the following situations 
exists: 


1. F-format records 


a. The specified block 
size is less than the 
logical record length. 


b. The specified block 
size is not a multiple 
of the logical record 
length. 


2. V-format records 


a. The specified block 
size is less than the 
logical record length 
+ 4. 


b. The logical record 
length is less than 14 
for a RECORD file or 
15 for a STREAM file. 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHE1601 


ІНЕ161І 


FILE name - LINESIZE GREATER 
THAN IMPLEMENTATION DEFINED 
MAXIMUM LENGTH 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


The implementation-defined 
maximum linesize is: 


F-format records 32759 


V-format records 32751 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


FILE name - CONFLICTING 
ATTRIBUTE AND DD PARAMETERS 


Explanation: 


Initiating ON-condition: 
UNDEFINEDFILE 


The user has attempted to 
associate a file with the 
BACKWARDS attribute with a 
device that is not a magnetic 
tape device. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 


is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLÍDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Computational Errors 


IHE200I 


IHE202I 


rtname - X LE 0 IN SORT(X) 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - X LE 0 IN LOG(X) OR 
LOG2(X) OR LOG10(X) 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support; 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


ө Have the associated 
jobstream, Linkage 


IHE203I 


ІНЕ204І 


IHE206I 


Editor/Loader Map and 
program listing available. 


rtname - ABS(X) GE (2**50)*K IN 
SIN(X) OR COS(X) (K=PI) OR 
SIND(X) OR COSD(X) (K=180) 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - АВ5(Х) GE (2**50)*K IN 
TAN(X) (K=PI) OR TAND(X) 
(K=180) 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP . 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - X-Y-0 IN ATAN(Y,X) AND 
ATAND(Y,X) 


Programmer Response: Probable 


user error. After making 
correction, recompile the 
program and execute the job 
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step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


 rtname - ABS(X) GT 1 IN 


ATANH (X) 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - X-0, Y LE O IN X**Y 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 


IHE210I 


IHE211I 


DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - X-0, Y NOT POSITIVE 
REAL IN X**Y 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
spe-ified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - Z=+I OR -I IN ATAN(Z) 
OR Z=+1 OR -1 IN АТАМН (7) 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHE212I 


IHE213I 


‘step again. 


rtname - ABS(X) GE (2**18)*K IN 
SIN(X) OR COS(X) (K=PI) OR 
SIND(X) OR COSD(X) (K=180) 


Programmer Response:  Probable 


user error. After making 
correction, recompile the 
program and execute the job 

If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


rtname - ABS(X) GE (2**18)*K IN 
ТАМ(Х) (К-РІ) OR TAND(X) 
(K=180) 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


List of Routine Names 


IHESOS 
IHELNS 
IHETNS 
IHEATS 
IHESNS 
IHEHTS 
IHESQOL 
IHELNL 
IHETNL 
IHEATL 
IHESNL 
IHEHTL 


IHEXIS 
IHEXIL 
IHEXXS 
IHEXXL 
IHEXIW 
IHEXIZ 
IHEXXW 
IHEXXZ 
IHEATW 


IHEATZ 


Short float square root 
Short float logarithm 

Short float tangent 

Short float arctan 

Short float sine and cosine 
Short float hyperbolic arctan 
Long float square root 

Long float logarithm 

Long float tangent 

Long float arctan 

Long float sine and cosine 
Long float hyperbolic arctan 


Short float integér 
exponentiation 


Long float integer 
exponentiation 


Short float general 
exponentiation 


Long float general 
exponentiation 


Short float complex integer 
exponentiation 


Long float complex integer 
exponentiation 


Short float complex general 
exponentiation 


Long float complex general 
exponentiation 


Short float complex arctan and 
hyperbolic arctan 


Long float complex arctan and 
hyperbolic arctan 


Computational ON-Conditions 


All these conditions may be raised by 
the SIGNAL statement. 


ІНЕЗ001 


OVERFLOW 


Explanation: This condition is 
raised, by Library routines or 
by compiled code, when the 
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exponent of a floating-point 
number exceeds the permitted 
maximum, as defined by 
implementation. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


ә Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


SIZE 


Explanation: This condition is 
raised, by Library routines or 
by compiled code, when 
assignment is attempted where 
the number to be assigned will 
not fit into the target field. 
This condition can be raised by 
allowing the fixed overflow 
interrupt to occur on account 
of SIZE. If associated with 
I/O, then "FILE name" will be 
inserted between the message 
number and the text. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


е Have the associated 
jobstream, Linkage 


IHE320I 


IHE3301I 


Editor/Loader Map and 
program listing available. 


FIXEDOVERFLOW 


Explanation: This condition is 
raised, by Library routines or 
by compiled code, when the 
result of a fixed-point binary 
or decimal operation exceeds 
the maximum field width as 
defined by implementation. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
XHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ZERODIVIDE 


Explanation: This condition is 
raised, by Library routines or 
by compiled code, when an 
attempt is made to divide by 
zero, or when the quotient 
exceeds the precision allocated 
for the result of a division. 
The condition can be raised by 
hardware interrupt or by 
special coding. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 


IHE3 401 


IHE350I 


DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


UNDERFLOW 


Explanation: This condition is 
raised, by Library routines or 
by compiled code, when the 
exponent of a floating-point 
number is smaller than the 
implementation-defined mimimum. 
The condition does not occur 
when equal floating-point 
numbers are subtracted. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
UNDERFLOW condition which 
calls IHEDUMP and that a 
PLIDUMP DD statement was 
included for the failing 
job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


STRINGRANGE 


Explanation: This condition is 
raised by library routines when 
an invalid reference by the 
SUBSTR built-in function or 
pseudo-variable has been 
detected. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVLE-(1,1) was 
specified in the job 
Statement, and that there 


IHE360I 


IHE361I 


is an active on-unit in the 
Main procedure for the 
STRINGRANGE condition which 
calls IHEDUMP and that a 
PLIDUMP DD statement was 
included for the failing 
job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


AREA CONDITION RAISED IN 
ALLOCATE STATEMENT 


Explanation: There is not 
enough room in the area in 
which to allocate the based 
variable. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


AREA CONDITION RAISED IN 
ASSIGNMENT STATEMENT 


Explanation: There is not 
enough room in the area to 
which the based variable is 
being assigned. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
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Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


AREA SIGNALED 


Programmer Responses:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Structure and Array Errors 


IHE380I 
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IHESTR - STRUCTURE OR ARRAY 
LENGTH GE 16**6 BYTES 


Explanation: During the 
mapping of a structure or 
array, the length of the 
structure or array has been 
found to be greater than or 
equal to 16**6 bytes. 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 


IHE381I 


IHE382I 


DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHESTR - VIRTUAL ORIGIN OF 
ARRAY GE 16**6 OR LE -16**6 


Explanation: During the 
mapping of a structure, the 
address of the element with 
zero subscripts in an array, 
whether it exists or not, has 
been computed to be outside the 
range (-16**6 to +16**6). 


Programmer Responses:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHESTR - UPPER BOUND LESS THAN 
LOWER BOUND 


Explanation: During the mapping 
of an array or structure, an 
upper bound of a dimension has 
been found to be less than the 
corresponding lower bound. If 
only an upper bound was 
declared then it may currently 
be less than one, the implied 
lower bound. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 


specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Control Program Restrictions 


ІНЕШ9001 


ІНЕ 011 


DELAY STATEMENT EXECUTED - NO 
TIMER FUNCTION IN SYSTEM 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and. 
program listing available. 


TIME STATEMENT EXECUTED - NO 
TIMER FUNCTION IN SYSTEM 


Proqrammer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calis 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Condition Type ON-Conditions 


ІНЕ5001 


ІНЕ501І 


SUBSCRIPTRANGE 


Explanation: This condition is 
raised, by library routines or 
by compiled code, when a 
subscript is evaluated and 
found to lie outside its 
specified bounds, or by the 
SIGNAL statement. 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONDITION 


Explanation: This condition is 
raised by execution of a SIGNAL 
(identifier) statement, 
referencing a 
programmer-specified EXTERNAL 
identifier. 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
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IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Errors Associated with Tasking 


The following errors are associated with 
execution of the CALL, READ, or WRITE 
statement with TASK option; with the WAIT 
statement; with the use of TASK or EVENT 
variables; with the PRIORITY 
pseudo-variable or built-in function; or 
with the COMPLETION pseudo-variable. 


IHE550I 


IHE5511 
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ATTEMPT TO WAIT ON AN INACTIVE 
AND INCOMPLETE EVENT 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK VARIABLE ALREADY ACTIVE 


Explanation: Task variable is 
already associated with an 
active task. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 


ІНЕ5521 


IHE553I 


Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


EVENT ALREADY BEING WAITED ON 


Explanation: During the 
execution of a WAIT statement, 
in order to complete the 
required number of events, an 
event must not be waited on 
which is already being waited 
on in another task. 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


WAIT ON MORE THAN 255 
INCOMPLETE EVENTS 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified. in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


THE 5541 


IHE555I 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ACTIVE EVENT VARIABLE AS 
ARGUMENT TO COMPLETION 
PSEUDO-VARIABLE 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


е Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


INVALID TASK VARIABLE AS 
ARGUMENT TO PRIORITY 
PSEUDO-VARIABLE 


Explanation: The task variable 
specified was active and not 
associated with the current 
task or one of its immediate 
subtasks. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the . 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ІНЕ556І 


IHE557I 


ІНЕ558І 


‘EVENT VARIABLE ACTIVE IN 


ASSIGNMENT STATEMENT 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 

EVENT VARIABLE ALREADY ACTIVE 


Explanation: Event variable is 


already associated with an 


active task. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ATTEMPT TO WAIT ON AN I/O EVENT 
IN WRONG TASK 


Explanation: An I/O event can 
be waited on only in the same 
task as the statement which 
initiated the I/O operation 
with which the event is 
associated. 
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Programmer Response: Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


UNABLE TO CALL TASK DUE TO 
INSUFFICIENT MAIN STORAGE. 


Explanation:  Insufficient main 
Storage available for the 
additional task being called. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


UNABLE TO CALL TASK DUE TO MORE 
THAN 255 TASKS ACTIVE. 


Explanation: The program 
attempted to call a subtask 
which would have made the 
number of active tasks greater 
than 255. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


In the following group of messages, hhh 
is a hexadecimal number. 


ІНЕ5711 


ІНЕ5721 


TASK (name) TERMINATED. 
COMPLETION CODE= hhh. 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (name) TERMINATED. 
COMPLETION CODE - hhh. 
VARIABLE OVERWRITTEN OR 
DESTROYED. 


EVENT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHE573I 


ІНЕ574І 


е Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (name) TERMINATED. 
COMPLETION CODE - hhh. 
VARIABLE OVERWRITTEN OR 
DESTROYED. 


TASK 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 

. ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (NAME) TERMINATED. 
COMPLETION CODE - hhh. 
FREE STATEMENT. 


INVALID 


Explanation: The FREE statement 
freed, or tried to free, 
storage to which it is not 
applicable. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 


IHE575I 


ІНЕ576І 


‘COMPLETION CODE = hhh. 


is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (name) TERMINATED. 
DISPLAY 
STATEMENT. REPLY NOT WAITED 


FOR. 


Explanation: The task 
terminated normally without 
waiting for a reply from a 
DISPLAY statement with the 
REPLY option. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (name) TERMINATED. 
COMPLETION CODE = hhh. ТОО 
MUCH MAIN STORAGE REQUESTED. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
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IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (name) TERMINATED WHILE 
STILL ACTIVE -- END OF BLOCK 
REACHED IN ATTACHING TASK. 


Explanation: The attaching 


task reached: 
1. An EXIT statement, or 


2. The end of the block in 
which the subtask was 
attached 


while the subtask was still 
active. 


Programmer Responses:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


TASK (name) TERMINATED. 
COMPLETION CODE - hhh. 

ABNORMAL TERMINATION DURING PUT 
STATEMENT. 


Programmer Response:  Probable 
user error. Mj ter making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 


is an active on-unit in the 
Main procedure for the 
ERROR condition which,calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Conversion ON-Conditions 


Conversion errors occur most often on 
input, either owing to an error in the 
input data, or because of an error in a 


format list. 


For example, in edit-directed 


input, if the field width of one of the 
items in the data list is incorrectly 
specified in the format list, the input 
Stream will get out of step with the format 
list and a conversion error is likely to 


occur. 


IHE600TI 


IHE601I 


CONVERSION CONDITION SIGNALED 


Proqrammer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONVERSION ERROR IN F-FORMAT 
INPUT 


Programmer Response:  Probable 


user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 


IHE6021 


IHE603I 


statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONVERSION ERROR IN E-FORMAT 
INPUT 


Programmer Response:  Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONVERSION ERROR IN B-FORMAT 
INPUT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHEGO0UI 


ІНЕ605І 


IHE6061 


ERROR IN CONVERSION FROM 
CHARACTER STRING TO ARITHMETIC 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 

. DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ERROR IN CONVERSION FROM 
CHARACTER STRING TO BIT STRING 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


2% Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ERROR IN CONVERSION FROM 
CHARACTER STRING TO PICTURED 
CHARACTER STRING 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLLDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONVERSION ERROR IN P-FORMAT 
INPUT (DECIMAL) 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONVERSION ERROR IN P-FORMAT 
INPUT (CHARACTER) 


er Res Probable 
user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


ІНЕ6091 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


CONVERSION ERROR IN P-FORMAT 
INPUT (STERLING) 


Моке: When condition was due 
to an I/O conversion, then 
"FILE name" will be inserted 
between the message number and 
the text. Also, when the I/O 
conversion error was due to a 
TRANSMIT error, the word 
(TRANSMIT) is inserted between 
the file name and the text. 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Conversion Errors, Non-ON-Type 


ІНЕ7001 


INCORRECT E(W,D,S) 
SPECIFICATION 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


ІНЕ7011 


ІНЕ7021 


ІНЕ7031 


е Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


F FORMAT W SPECIFICATION TOO 
SMALL 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


A FORMAT W UNSPECIFIED AND LIST 
ITEM NOT TYPE STRING 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


е Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


B FORMAT W UNSPECIFIED AND LIST 
ITEM NOT TYPE STRING 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 


IHE70UI 


IHE7051I 


step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLÍ1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


A FORMAT W UNSPECIFIED ON INPUT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


B FORMAT W UNSPECIFIED ON INPUT 


Explanations: Messages 700 to 
705 reveal that an EDIT 
operation was incorrectly 
specified. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
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is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


UNABLE TO ASSIGN TO PICTURED 
CHARACTER STRING 


Explanation: А source datum 
which is not a character string 
cannot be assigned to à 
pictured character string 
because of a mismatch with the 
PIC description of the target. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ONSOURCE OR ONCHAR 
PSEUDOVARIABLE USED OUT OF 
CONTEXT 


Explanation: This message is 
printed and the ERROR condition 
raised if an ONSOURCE or ONCHAR 
pseudo-variable is used outside 
an ON-unit, or in an ON-unit 
other than either a CONVERSION 
ON-unit or an ERROR ox FINISH 
ON-unit following from system 
action for CONVERSION, 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 


calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHE799I RETURN ATTEMPTED FROM 
CONVERSION ON-UNIT BUT SOURCE 
FIELD NOT MODIFIED 


Explanation: A CONVERSION 
ON-unit has been entered as a 
result of an invalid 
conversion, and an attempt has 
been made to return, and hence 
reattempt the conversion, 
without using one or other of 
the pseudo-variables ONSOURCE 
or ONCHAR to change the invalid 
character. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Non-Computational Program Interrupt Errors 


Certain program interrupts may occur in 
a PL/I program because the source program 
has an error which is severe but which 
cannot be detected until execution time. 
An example is a call to an unknown 
procedure, which will result in an illegal 


operation program interrupt. Other program 
interrupts, such as addressing, 
specification, protection, and data 
interrupts, may arise if PL/I control | 
blocks have been destroyed. This can occur 
if an assignment is made to an array 
element whose subscript is out of range, 
since, if SUBSCRIPTRANGE has not been 
enabled, the compiler does not check array 
subscripts; a program interrupt may occur 
at the time of the assignment or at a later 
stage in the program. Similarly, an 
attempt to use the value of an array. 
element whose subscript is out of range may 
cause an interrupt. 


Care must be taken when parameters are 
passed to a procedure. If the data 
attributes of the arguments of the calling 
statement do not agree with those of the 
invoked entry point, or if an argument is 
not passed at all, a program interrupt may 
occur. 


The use of the value of a variable that 
has not. been initialized, or has had no 
assignment made to it, or the use of 
CONTROLLED variables that have not been 
allocated, may also cause one of these 
interrupts. 


ІНЕ8001 INVALID OPERATION 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


IHE8 011 PRIVILEGED OPERATION 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHE802I 
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e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


EXECUTE INSTRUCTION EXECUTED 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


PROTECTION VIOLATION 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
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Editor/Loader Map and 
program listing available. 


ADDRESSING INTERRUPT 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that а PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


SPECIFICATION INTERRUPT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the | 
ERROR condition which calls 
IHEDUMP and that a PL1IDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


DATA INTERRUPT 


Explanation: This condition 
can be caused by an attempt to 
use the value of a FIXED 
DECIMAL variable when no prior 
assignment to, or 
initialization of, the variable 
has been performed. 


Programmer Response: Probable 


user error. After making 
correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Model 91 and Model 195 Object-Time 
Diagnostic Messages 


After a multiple-exception imprecise 
interrupt on a Model 91 or Model 195 
certain exceptions will remain unprocessed 
if the ERROR condition is raised before all 


the exceptions have been handled. 


If the 


program subsequently is terminated as a 

direct result of the ERROR condition being 
raised in these circumstances, one or more 
of the following messages will be printed 


out. 


ІНЕ810І 


РКОТЕСТІОМ ЕХСЕРТІОМ 
UNPROCESSED AFTER 
MULTIPLE-EXCEPTION IMPRECISE 
INTERRUPT 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support; 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ІНЕ8111 


ІНЕ8121 
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ADDRESSING EXCEPTION 
UNPROCESSED AFTER 
MULTIPLE-EXCEPTION IMPRECISE 
INTERRUPT 


Programmer Responses Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


SPECIFICATION EXCEPTION 
UNPROCESSED AFTER 
MULTIPLE-EXCEPTION IMPRECISE 
INTERRUPT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
Specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLiDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


DATA EXCEPTION UNPROCESSED 
AFTER MULTIPLE-EXCEPTION 
IMPRECISE INTERRUPT 


Programmer Responses  Probable 
user error. After making 


correction, recompile the 
program and execute the job 


IHE814I 


IHE815I 


user error. 


Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit. in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a РІЛГОМР 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


ZERODIVIDE UNPROCESSED AFTER 
MULTIPLE-EXCEPTION IMPRECISE 
INTERRUPT 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
Step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL-(1,1) was 
specified in the job 
Statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PL1DUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


OVERFLOW UNPROCESSED AFTER 
MULTIPLE-EXCEPTION IMPRECISE 
INTERRUPT 


Programmer Responses Probable 
After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
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Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


Storage Management Errors 


The following errors are associated with 
the handling of storage and transfer of 


control out of blocks. 


In some cases, 


these errors are a result of program error, 
but it is possible that the messages may be 
printed because the save area chain, 
allocation chain, or pseudo-register vector 
have been overwritten. 


ІНЕ900І 
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TOO MANY ACTIVE ON-UNITS AND 
ENTRY PARAMETER PROCEDURES 


Explanation: There is an 
implementation limit to the 
number of ON-units and/or entry 
parameter procedures which can 
be active at any time. An 
entry parameter procedure is 
one that passes an entry name 
as parameter to a procedure it 
calls. The total permissible 
number of these ON-units/entry 
parameter procedures is 127. 


Programmer Response:  Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 


ІНЕ9021 


statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


GOTO STATEMENT REFERENCES A 
LABEL IN AN INACTIVE BLOCK 


Explanation: The label 
referred to cannot be found in 
any of the blocks currently 
active in the current task; 
blocks are not freed. The 
statement number and offset 
indicate the GO TO statement 
causing the error. 


Programmer Response: Probable 
user error. After making 


correction, recompile the 
program and execute the job 
step again. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that 
MSGLEVEL=(1,1) was 
specified in the job 
statement, and that there 
is an active on-unit in the 
Main procedure for the 
ERROR condition which calls 
IHEDUMP and that a PLIDUMP 
DD statement was included 
for the failing job step. 


e Have the associated 
jobstream, Linkage 
Editor/Loader Map and 
program listing available. 


&& (prefix for temporary data set 
names) 24 


SNEVER-CALL entry in cross-reference 
table 72 
SUNRESOLVED entry in cross-reference 
table 72 


'*' parameter of DD statement 107 
'/*' statement in stream input 17 


abbreviations for compiler option names 44 
abnormal termination of a task 173 
access methods 109,110 
accessing a CONSECUTIVE data set 
using record I/O 127 
using stream I/O 117 
accessing a REGIONAL data set 143 
accessing an INDEXED data set 137 
ACCT parameter of EXEC statement 89 
addresses in main storage, resolution 
of 65 | 
ADV (array dope vector) 208 
AFF parameter 256 
aggregate-length table 51 
aggregates, limitation 297 
ALIAS linkage editor statement 73 
alignment in data set interchange 201 
allocating direct-access space 257 
alternative name for load module 73 
American National Standard (ANS) 
carriage control character in source 
program 47 
control character 119 
control characters for printer and 
punch 129 
ANS (American National Standard) 
carriage control character in source 
program 47 
control character 119 
control characters for printer and 
punch 129 
AREA attribute restriction 297 
argument passing 
between PL/I and other 
languages 210-215 
to a main PL/I procedure 206 
array bounds restriction 297 
array dope vector (ADV) 208 
arrays in data set interchange 
(PL/I-FORTRAN) 202 
assembler language programming to invoke 
PL/I main procedure 204 | 
asterisk in linkage editor шар 71 
ATR and XREF compiler options 50 
ATR compiler option 48 
ATTACH macro instruction, to invoke 
compiler 61 
attribute and cross-reference table 51 


Index 


attribute listing 50 
automatic library call 
by the linkage editor 65,68 
by the linkage loader 78,81 
automatic restart 177 
cancellation of 182 
auxiliary storage devices, general 
information 112 
auxiliary storage requirements 289 


BASED attribute restriction 297 
based variable restriction 297 
basic access technique 109 
batched compilation 57 
for creating an overlay program 76 
job control language for 58 
OBJNM compiler option 55 
options in PROCESS statement 57 
return code 57 
BCD compiler option 47 
BDAM (basic direct access method) 110 
BISAM (basic indexed sequential access 
method) 110 
bit strings in record I/O, restriction 303 
BLKSIZE (block size) subparameter 250 
block sizes 
for a PRINT file 24 
restriction on 298 
blocked records 102 
blocks in a compilation (restriction on 
number) 298 
BSAM (basic sequential access method) 109 
buffering, purpose of 109 
buffers 
number of (BUFNC subparameter) 250 
restriction on use of 298 
use of in record I/O 125,127 
use of in stream I/O 115 
BUFNO subparameter 250 
built-in functions restriction 298 


CALL macro instruction to invoke the PL/I 
compiler 61 
card punching using record I/O 129 
card reader/punch 
general information 112 
mode (MODE subparameter) 251 
Stacker (STACK subparameter) 252 
cataloged data sets 101 
cataloged procedures 93-100 
compile and punch object module 
(PLILDFC) 95 
compile and write object module 
(PLILFC) 93 
compile, and link-edit (PLILFCL) 94 
compile, load, and execute (PLILFCG) 95 
compile,link-edit, and execute 
(PLILFCLG) 95 
for linkage loading 80 
for load module execution 88 
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for the linkage editor 66 
introduction to 17 

link-edit and execute (PLILFLG) 95 
load and execute (PLILFG) 95 
modification of 97,100 

multiple invocation of 99 

РІ1рЕС -compile and punch object 


module 93 
PLILFC -compile and write object 
module 93 | 


PLILFCG -compile, load, апа execut 95 
PLILFCL -compile and link-edit 94 
PLILFCLG -compile, link, and execute 95 
PLILFG -load and execute 95 
PLILFLG ~link-edit and execute 95 
region sizes 100 
summary of 93 
testing with in-stream procedures 100 
used with PL/I shared library 282-285 
using Linkage Editor 282 
CATLG subparameter of DISP parameter 254 
channel programs, number of (NCP 
subparameter) 251 
character code restriction 298 
character set specification (UCS) 258 
CHAR48 compiler option 37,47 
CHAR60 compiler option 47 
CHECK condition in multitasking 168 
CHECK condition restriction 298 
CHECK lists restriction 298 
checkpoint/restart 176-183 
data set 183 
DD statement for 179 
diagnostic aids 178 
interface 176 
job control language for 178 
PL/I CALL statements 180 
PL/I, requirements for 178 
resident access methods 183 
restriction on use of 183 
return codes from 182 
SYSCHK DD statement 180 
closing a file 112 
COBOL data in PL/I 
COBOL option restriction 299 
entry in aggregate-length table 50 
use of COBOL option in record I/O 203 
CODE subparameter 250 
collating sequence restriction 299 
column binary card reading/punching modes 
(MODE subparameter) 251 
COLUMN format item restriction 299 
common point (node) in overlay program 74 
communication with other languages 
establishing the environment 213 
function references 214 
passing data items 212 
user-defined conditions 215 
COMP compiler option 57 
compatibility of compiler versions 265 
compilation process 37,38 
DD (data definition) statements for 40 
flow diagram 38 
use of SIZE option 44 
compile-time processing 58,37 
COMP compiler option 59 
diagnostic messages 446-468 
example of 60 
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MACDCK compiler option 59 
MACRO compiler option 59 
SORMGIN compiler option 60 
SOURCE2 compiler option 59 
compile and link-edit (PLILFCL) 94 
compile, and punch object module 
(PLIDFC) 93 
compile and write object module 
(РІЛІЕС) 93 
compile, link-edit, and execute 
(PLILFCLG) 95 
compile, load, and execute (PLILFCG) 95 
compiler 
buffer areas, storage required 45 
compatibility between versions 265 
data sets 40,289 
dynamic invocation of 61 
fifth version changes 264 
fourth version changes 262 
input, record format for 40 
listing 49 
listing (SYSPRINT) 42 
main storage (SIZE option) 44 
output, record formats for 41 
return codes from 56 
second version changes 261 
spill file, diagnostic message for 56 
symbolic name (IEMAA) 39 
third version changes 261 
versions 263 
workspace for 42 
compiler options 43-49 
abbreviated forms of 44 
defaults for 43,44 
specification of in PARM parameter 43 
summary of 44 
COMPLETION built-in function in 
multitasking 170 
completion codes (system) 
multitasking 170 
completion value of event variable 170 
compound statement numbering 50 
concatenated data sets, restriction 299 
COND parameter of EXEC statement 89 
return code testing 92 
condition-handling in non-PL/I 
programs 215 
CONSECUTIVE data sets 
example of creation and accessing 27 
JCL for creation by record I/O 126 
ӘСІ, for retrieval by record I/O 127 
JCL for creation in stream I/O 116 
JCL for retrieval in stream I/O 118 
organization of 104 
constants, restrictions for 299 
control blocks in PL/I 208 
(see also dope vectors) 
declare control block (DCLCB) 209 
file control block (FCB) 210 
input/output control block (IOCB) 210 
open control block (OCB) 209 
control program (05), elements of 13 
control program options 32,267 
control sections 64 
in external symbol dictionary 52 
conventions, implementation 297 
creating 
CONSECUTIVE data sets, record 


292-296 


I/O 125-126 
CONSECUTIVE data sets, stream 
I/O 115-117 | 
data sets with stream I/O 115-117 
INDEXED data sets 132-136 
PDS members 156 
regional data sets 
shared library 279 
cross-reference listing, linkage editor 
(XREF option) 69 
cross-reference table, compiler 51 
cross-reference table, linkage editor 72 
CSECTS (see control sections) 
cylinder overflow area 137 
CYLOFL subparameter 250 
OPTCD-Y subparameter 252 
CYLOFL subparameter 250 


141-142 


data control block (see DCB) 
data definition (DD) statement (See DD 
(data definition) statement) 
data equivalents 
PL/I-COBOL 203 
PL/I-FORTRAN 201 
data in the input stream 26,107 
data management 
functions of 13 
access methods 109 
optional services (OPTCD 
subparameter) 251 
DATA parameter of DD statement 107 
data sets 101-112 
(see also DD (data definition) 
statement) | 
accessing in record I/0 
CONSECUTIVE organization 126 
INDEXED organization 137 
REGIONAL organization 143 
accessing in stream I/O 117 
checkpoint/restart, effect of 183 
COBOL 203 
CONSECUTIVE 125 
creation in record I/O 
CONSECUTIVE organization 125 
INDEXED organization 131 
REGIONAL organization 141 
creation in stream I/O 115 
data control block 110 
direct 104 
(see also REGIONAL data sets) 
disposition 106 
for checkpoints 177 
for compilation 40,289 
for dumps 175 
for printing 
in record 1/0 129 
in stream I/O 119 
FORTRAN 201 | 
in input stream 107 
in output stream (SYSOUT) 106 
INDEXED 130-139 
indexed sequential 104 
(see also INDEXED data sets) 
interchange 201 
COBOL 203 
FORTRAN 201 
labels 105 


naming 101 
organization 
CONSECUTIVE 125 
INDEXED 130 
OS equivalents 104 
REGIONAL 139 
partitioned 155-162 
record formats 102 
in record I/c 124 
in stream I/O 114 
sort/merge 185 
regional 139-152 
relationship with files 107 
retrieval (see accessing) 
sequential 104 
teleprocessing 152-154 
TRANSIENT (see teleprocessing) 
volume 101 


data-directed  I/O restrictions 300 
DCB (data control block) 110 
DCB (data control block) 


parameter 106,249-253 
BLKSIZE subparameter 250 
BUFNO subparameter 250 
CODE subparameter 250 
CYLOFL subparameter 250 
DEN subparameter 250 
DSORG subparameter 250 
for CONSECUTIVE data sets 126 
for INDEXED data sets 134 
for REGIONAL data sets 142 
introduction to 24 
KEYLEN subparameter 250 
LIMCT subparameter 250 
LRECL subparameter 251 
MODE subparameter 251 
NCP subparameter 251 
NTM subparameter 251 
OPTCD subparameter 251 
PRTSP subparameter 252 
RECFM subparameter 252 
RKP subparameter 252 
STACK subparameter 252 
ТЕТСН subparameter 252 


DD (data definition) 


statement 105,215,249-260 
AFF parameter 256 
DATA parameter 107 
DCB parameter 249-253 
DDNAME parameter 105,253 
DISP parameter 253 
DSNAME parameter 255 
for checkpoint data sets 179 
for compilation 40 
for CONSECUTIVE data sets 126 
for creating INDEXED data sets 132 
for creating regional data sets 142 
for dumps 176 
for load module execution 90 
for sort/merge program 186 
for the linkage loader 80 
introduction to 16 
LABEL parameter 256 
modification in cataloged procedures 
parameters of 249-260 
LIMCT parameter 142 
SEP parameter 256 
SPACE parameter 257 


Index 


98 
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SYSOUT parameter 258 
UCS parameter 258 
UNIT parameter 259 
VOLUME parameter 260 
ddname 105 
DDNAME parameter 253 
ddnames for sort/merge 186 
modification of 186 
DECK compiler option 48 
DECLARE statement (compile-time) 
restriction 300 
dedicated workfiles 
DD statements in cataloged procedure 96 
for the compiler 42 
defaults for compiler options 44 
deferred restart 177 
DEFINED attribute restriction 300 
DELAY statement in multitasking 170 
DELETE subparameter of DISP parameter 25 
deletion of records in an INDEXED data 
set 137 
DEN subparameter 250 
descriptor code for REPLY option 
responses 92 
despatching priority for PL/I tasks 166 
device classes for linkage editor data 
sets 66 
diagnostic aids in checkpoint/restart 178 
diagnostic message directory for linkage 
editor messages 71 
diagnostic messages 314-504 
compile-time processing 446-468 
format of compiler diagnostics 56 
object-time 468-504 
source program 314-445 
dimensions restriction 300 
direct data sets 104 
(see also REGIONAL data sets) 
direct-access devices 
general information 113 
record formats in record I/O 124 
record formats in stream I/O 115 
type numbers 259 
direct-access storage space allocation 
(SPACE subparameter) 257 
directory of partitioned data set 155 
DISP parameter 253,106 
DISPLAY statement 
‘restriction on use of 300 
syntax of REPLY option message 92 
disposition of data set (DISP 
parameter) 253,106 
dope vectors 208 
array (ADV) 208 
dope vector descriptor (DVD) 210 
record (RDV) 209 
string (SDV) 208 
string array (SADV) 209 
structure (STDV) 209 
DPRTY parameter of EXEC statement 90 
DSA (dynamic storage area) 210 
DSCB (data set control block) 105 
DSNAME parameter 255 
DSORG subparameter 250 
dummy arguments, maximum 300 
dummy records 
in an INDEXED data set 137 
in a REGIONAL data set 141 
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dump data sets (SYSABEND,SYSUDUMP) 91 
dumps 175 

dynamic invocation of compiler 61 
dynamic storage area (DSA) 210 


EBCDIC compiler option 47 
edit-directed input/output restriction 301 
efficiency considerations for linkage 
editing vs linkage loading 64 
ENTRY names restriction 301 
environment (of PL/I procedures) creating 
when using non-PL/I programs 213 
EP loader option 84 
epilogue code to a PL/I procedure, 
functions of 208 
error codes in linkage editor listing 69 
error messages from the compiler, format 
of 56 
ERROR condition 291 
ESD (external symbol dictionary) 52 
use for link-editing 64 
event name in multitasking 169 
EVENT option 
in multitasking 169 
restriction 301 
event variable completion value 170 
exception processing (Model 91 and Model 
195) 288 
EXCLUSIVE attribute in multitasking 170 
exclusive calls for overlay segments 77 
EXEC statement 
introduction to 16 
modified in cataloged procedure 98 
options and parameters of 89 
parameters used in MVT for priority 166 
RD (restart definition) parameter 179 
to invoke the compiler 39 
to invoke the linkage editor 66 
to invoke the linkage loader 80 
use Of PARM parameter for compiler 
options 43 
executable load modules 69 
executing the load module 87 
exponentiation restriction 301 
expression evaluation restriction 301 
EXTDIC compiler option 46 
external reference resolution 
by the linkage editor 64 
by the linkage loader 78 
Suppression by NCAL option 69 
external references not resolved by linkage 
editor 72 
external symbol dictionary (ESD) 52 
use for link-editing 64 
EXTREF compiler option 48 


F compiler versions 261 
F-format records 102 
F-level linkage editor 
main storage requirement 66 
region size in cataloged procedures 99 
factoring-of-attributes restriction 302 
FB-format records 102 
FBS-format records 102 
fifth version of the compiler 264 
files 


(see also data sets) 
closing 112 
opening 111 
standard 26 
FINISH condition 291 
fixed-length records 102 
FLAG compiler option 49 
FLOAT attribute restriction 302 





floating-point magnitude restriction 302 
floating-point numbers in stream I/O (PL/I 


and FORTRAN differences) 203 
format of records 
(see also record formats) 
for compiler input 40 
for compiler output 41 
FORTRAN data set record formats 202 
FORTRAN-PL/I 201 
fourth version of the compiler 262 
FS-format records 102 
function references written in non-PL/I 
language 214 
function value restriction 302 


GENERIC attribute restriction 302 
graphic unit type numbers 260 


halfword binary restriction 302 
hierarchy of indexes for cataloged data 
sets 102 


IBG (interblock gap) on magnetic tape 102 


IBM System/360 (Model 91 and Model 
195) 288 
IBM System/360 Operating System, 
introduction to 13 
IDENT option restriction 302 
identifiers restriction 302 
identifying the data set (DSNAME) 255 
IEBUPDTE utility program for creating 
source statement libraries 61 
IEMAA (compiler name) | 
EXEC statement for 39 
dynamic invocation of 61 
IEWL (linkage editor name) 66 
IEWLDRGO (linkage loader name) 80 
IF statement numbering in source 
listing 50 
IHEABND 295 


IHECKPT (checkpoint/restart) module 181 


IHEMAIN control section 205 

IHENTRY control section 205 

IHENTRY initialization routine 64 

IHERES (restart) module 182 

IHESAP initialization routine 205 

IHESARC routine for creating return 

codes 92 

IHESRT (sort interface) module 184 

IHESRTA (sort/merge) interface i189 
example of use 190 

IHESRTB (sort/merge) interface 191 
example of use 192 

IHESRTC (sort/merge) interface 193 
example of use 194 

IHESRTD (sort/merge) interface 195 
example of use 196 


IHETAB 120 
(see tab control table) 
IHETSA initialization routine 205 
IHETSAC routine for creating return 
codes 92 
implementation conventions and 
restrictions, alphabetic list 297-311 
imprecise interrupt (Model 91 and Model 
195) 287 
in-stream procedures 19 
use in testing cataloged procedures 


INCLUDE compile-time statement 60 
ddname argument for 43 
restriction on use of 303 

INCLUDE linkage editor statement 73 

independent overflow area (INDEXED data 

sets) 131 
OPTCD=I subparameter 251 

index area (INDEXED data sets) 131 

INDEXAREA option restriction 303 

INDEXED data sets 130-139 
accessing, direct or sequential 137 

essential information for 137 
example of 140 
creation of 131-137 
essential information for 133 
example of 138 
cylinder index 131 
cylinder overflow area 131,137 
CYLOFL subparameter 250 
OPTCD-Y option 252 
data set organization (DSORG) 
subparameter 250 
DCB subparameters for creating 134 
DD statement for creating 132,133 
deletion of records 137 
OPTCD=L option 251 
example program for updating 140 
independent overflow area 131 
OPTCD-1 option 251 
indexes 130 
index areas 131 
index tracks (NTM subparameter) 
keys 
formats of 134 
length (KEYLEN subparameter) 250 
position (RKP subparameter) 252 
master index 131,137 
OPTCD=M option 252 
names for data set and indexes 134 
overflow area 131 
prime data area 131 
record formats for 134 
reorganization of 138 
retrieval of records 137 
track index 130 
updating 137 
example of 140 

indexed sequential data sets 104 
(see also INDEXED data sets) 

indexes for ап INDEXED data set 130 
how to specify a master index 137 

indicative dumps 176 

INITIAL attribute restriction 303 

initíal program load (IPL) for shared 

library 280 
initial volume label 105 
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initialization routine IHENTRY 64 
initiators for MVT jobs 35 
input readers 33 
input sources for linkage editor (INCLUDE 
statement) 73 
input/output (see also data sets, record 
I/O, stream I/O) 

access methods used 109 

buffers, purpose of 109 


DCB (data control block) for 110 
devices, general information 112 
in multitasking 169 

record I/O 124-154 

stream I/O 114-123 

volume (VOLUME) parameter 260 


INSERT linkage editor statement 75 


interblock gap (IBG) on magnetic tape 102 

invoking a PL/I main procedure 205 

IPL (initial program load) for shared 
library 280 

iSUB defining in data set interchange 202 


JCL (job control language) 
for batched compilation 58 
for checkpoint/restart 178 
for compilation 39 
for linkage editor 66 
for linkage loading 80 
for load module execution 88 
overview of 14 
job completion information on SYSPRINT 92 
job initiators for MVT 35 
job libraries (JOBLIB) 161 
job priorities in PL/I multitasking 166 
job scheduler 13 
components of 31 
messages on SYSPRINT 92 
job scheduling and the control program 32 
job selection under MFT 33 
job selection under MVT 35 
JOB statement 31,169 
for MFT 33 
for MVT 35 
for PCP 33 
introduction to 16 
Mandatory parameters 32 
parameters used in MVT for priority 166 


RD (restart definition) parameter 178 
RESTART parameter 179 

JOBLIB (job library) statement 161 

key position, relative (RKP) 

subparameter 252 

KEYLEN subparameter 250 

keys 
for INDEXED data sets 134-137 
for REGIONAL data sets 139,141 
length of (KEYLEN subparameter) 250 
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LABEL attribute restriction 303 
label constants used in recursive 
procedures 304 

LABEL parameter 
label variables 
restriction on use of 
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303 
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used in recursive procedures 304 
labels for data sets 105 
length of load module 72 
length of modules in PL/I library 
length of overlay load module 72 
LET linkage editor option 69 
LET linkage loader option 84 
level numbers restriction 305 
libraries 
(see also partitioned data set) 
job 160 
link 160 
of data sets 155 
PL/I subroutine 
private 160 
procedure 160 
step library (STEPLIB) 
system 160 
LIBRARY linkage editor statement 74 
use in PL/I library modules 71 
library subroutine inclusion 65 


270 


160 


162 


LINE format item in stream PRINT file 
line numbering restriction 305 
LINECNT compiler option 49 
LINESIZE 
default for a PRINT file 120 
format item restriction 305 


option for PRINT files 120 
link edit and execute (PLILFLG) 
link library (SYS1.LINKLIB) 160 
LINK macro instruction, to invoke 

compiler 61 


95 


link-pack area search by linkage loader 


linkage editor 63-77 
ALIAS statement 73 
automatic call library 68 

purpose of 65 
SYSLIB data set for 68 

cataloged procedures for 66 
external symbol dictionary (ESD) 
INCLUDE statement 73 
input data set (SYSLIN) 67 
input sources (additional) 73 
INSERT statement 75 
EXEC statement for 66 
LET option 69 
LIBRARY statement 74 
LIST option 69 
listing on SYSPRINT 68,70 
load module naming 73 
load module data set (SYSLMOD) 
load module structure 64 
MAP option 69 
NAME statement 73 
NCAL option 69 
object module structure 64 
OBJNM option (for NAME statement) 
options 69 
output data set (SYSLMOD) 67 
overlay program design 74 
OVERLAY statement 75 
OVLY option 75 
relocation dictionary (RLD) 65 
SIZE option 69 
Standard data sets for 
storage requirements 
SYSLIB data set 68 
SYSLIN data set 67 


65 


67 
66,70 
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79 


65 


57 


SYSLMOD data set 67 
SYSPRINT data set 68 
SYSUT1 data set 68 
XCAL option 69 
XREF option 69 
linkage loader 77-86 
cataloged procedures 80 
concatenation of modules by 83 
control statement restrictions 83 
examples 82 
external symbol. resolution by 78 
input to (SYSLIN) 80 
invocation of 80 
JCL for 80 
link-pack area processing 79 
listing 81 
optional facilities 82 
defaults for 85 
processing 78 
Standard data sets 80 
storage requirements 79 
SYSLIB data set 81 
SYSLIN data set 80 
SYSLOUT data set 81 
SYSPRINT data set 81 
load modules 
execution 
map 69 
naming 73 
structure 64 
linking PL/I with other languages 201-215 
establishing the PL/I environment 213 
passing data items 212 
use of function references 214 
user-defined condition handling 215 
LIST compiler option 49 
LIST linkage editor option 69 
listings (see program listings) 
load and execute (PLILFG) 96 
LOAD compiler option 48 
load module 
contents of (text) 64 
structure of 64 
LOADER linkage loader alias name 80 
LRECL (logical record length) 
subparameter 251 


87-92 


MACDCK compiler option 40,47 

machine requirements 267 

MACRO compiler option 37,46 
in compile-time processing 58 
requirement for use 305 

magnetic tape 
device type numbers 259 
7-track recording modes (TRTCH 

subparameter) 252 
magnetic-tape recording densities (DEN / 
subparameter) 250 | 
magnetic-tape devices, general 
information 113 

magnetic-tape labels, non-standard 105 
in record I/O 127 
in stream I/O 117 

MAIN option restriction 305 

main procedure (PL/I) 
arguments/parameters to 206 
invocation from assembler 205 


main storage 
dump of 175 
for compilation 44 
for linkage editing 66 
for linkage loading 79 
for multitasking 163 
for PL/I sort interface 185 
under МУТ 35 
under MFT 34 
main storage addresses, resolution of 65 
MAP linkage editor option 69 
MAP linkage loader option 84 
map of static internal control section 54 
master index option (OPTCD-M 
subparameter) 252 
master scheduler (OS) 13 
MAX built-in function restriction 305 
MCP (message control program) 153 
MCS (multiple console support) 90 
message control program (MCP) 153 
message on operator's console 92 
message processing in record I/O 152-154 
message processing program (MCP) 153 
messages (see also diagnostic messages) 
from the compiler, format of 56 
from job scheduler on SYSPRINT 92 
MFT control program 33 
indicative dump produced by 176 
output 35 
SIZE option for compilations 44 
MIN built-in function restriction 305 
MOD built-in function restriction 305 
MODE subparameter 251 
Models 91 and 195 288 
imprecise interrupt 288 
OBJIN option 46 
OBJOUT option 46 
ONCOUNT built-in function 288 
order of processing exceptions 288 
modification of cataloged procedure 97,100 
temporary 97 
module map 
in linkage editor listing 71 
in linkage loader listing 85 
module structure 64 
modules in PL/I library 270 
MPP (message processing program) 153 
MSGCLASS parameter 90 
MSGLEVEL parameter 97 
multiple assignment restriction 306 
multiple checkpoints 177 
multiple console support (MCS) 92 
multiple invocation 
of cataloged procedure 99 
multiple-exception imprecise interrupt 288 
multiprocessing 174 
multiprogramming 163 
multitasking 163-174 
CHECK condition used in 168 
combination with other languages 164 
compiler level required for 163 
COMPLETION built-in function 170 
completion codes (system) 170 
DELAY statement 170 
despatching priorities in PL/I 166 
EVENT option 169 
EXCLUSIVE attribute 170 
execution time overhead for 163 
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files used in separate tasks 171 
input/output in 169 
job priorities in 171 
JOB statement parameters for 166 
main storage overheads for 163 
on-units in 168 
operating system requirements for 163 
PL/I sort in 198 
priority management 166 
programming considerations 167 
programming requirements for 163 
SEQUENTIAL files used by separate 
tasks 171 
SNAP option used in 168 
STATUS built-in function 170 
strings used by separate tasks 171 
synchronization of tasks and I/O 170 
system completion codes 170 
System/360 requirements 267-269 
transfer of control between tasks 164 
variables used by separate tasks 171 
variables used in 168 
WAIT Statement 169 
MVT control program (multiprogramming with 

a variable number of tasks) 32 
input to 35 
job selection for 35 
JOB statement for 35 
SIZE option for compilations 44 


name 
module 270 
restriction 306 
NAME linkage editor statement 73 
from OBJNM option 58 
NCAL linkage editor option 69 
NCAL linkage loader option 84 
NCP subparameter 251 
NE (not editable) linkage editor 
attribute 63 
NEST compiler option 49 
nesting restriction 306 
non-standard magnetic tape labels 105 
in record I/O 127 
in stream I/O 117 
normal termination of a task 172 
NTM subparameter 251 
number of channel programs 
NCP subparameter 251 
numbering of source IF and ON 
Statements 50 


object module 64 
object module output retention 41 
object program listing 55 
object-time diagnostic messages 
OBJIN compiler option 46,288 
OBJNM compiler option 58 
OBJOUT compiler option 46 
OFFSET built-in function restriction 306 
offsets table 52 
ON statement numbering in source 

listing 50 
ON-codes 291-294 
on-unit restriction 306 
on-units used in multitasking 168 


468-504 
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ONCODE built-in function 291 
ONCOUNT built-in function 288,306 
OPEN statement, use of TITLE option 107 
opening a file 111 
operating system 

control programs 32 

data management 107 

functions of 05/360 13 

requirements for multitasking 163 
OPLIST compiler option 49 
OPT compiler option 45 
OPTCD subparameter 251 
optimization compiler option (OPT) 45 
optimizing channel usage (SEP and AFF) 256 
output data set(SYSPRINT) 91 
output devices, UNIT parameter of DD 

statement 23 

output stream parameter (SYSOUT) 258 
output writers 31 


MFT 35 
PCP 35 
MVT 36 


overflow area, INDEXED data sets 131,137 
OVERLAY linkage editor statement 75 
overlay module length 72 
overlay program creation 74 

batched compilation for 76 

INCLUDE statement 76 
OVLY linkage editor option 75 


PAGE format item in stream PRINT file 119 
PAGE option in stream PRINT file 119 
PAGESIZE option restriction 306 

paper tape codes (CODE subparameter) 250 
paper tape, general information 112 


parameters 
passed between PL/I and other 
languages 210-215 


restriction on use of 307 
to a main procedure 89,206 
PARM parameter of EXEC statement 89 
for compiler options 43 - 
for a PL/I program 89 
for linkage loader execution 83 
partitioned data sets (PDS) 104 
creation of 156 
deleting a member of 158 
processing a member of 158 
reorganization of 158 
structure of 155 
updating a member 160 
partitions in MFT, priority of 34 
PCP (primary control program) 32,33 
indicative dump produced by 176 
PDS (see partitioned data set) 
permanent change to cataloged procedure 97 
PICTURE attribute restriction 307 
PL/I (F) environment in language 
linking 204 
arguments 210 
dope vector descriptor (DVD) 210 
dynamic storage area (DSA) 210 
file control block (FCB) 210 
input/output control block (IOCB) 210 
open control block (OCB) 210 
parameters 210 
record dope vector (RDV) 210 


SPIE macro 205 

STAE macro 205 
PL/I and other languages 201-215 
PL/I cataloged procedures 93-100 
PL/I dump data set (PL1DUMP) 91 
PL/I library (see PL/I subroutine library) 
PL/I main procedure (invocation of) 205 
PL/I preprocessor (see compile-time 


processing) 
PL/I subroutine library 
(SYS1.PLILIB) 37,161,270-278 


PL/I-COBOL data set interchange 203 
PL/I-FORTRAN 201 
PL1DFC -compile and punch object module 93 
PL1DUMP dump 175 
PLALFC -compile and write object module 93 
PLILFCG -compile, load, and execute 95 
with PL/I shared library 284 
PLILFCL -compile and link-edit 94 
with PL/I shared library 282 
PLILFCLG -compile, link, and execute 95 
with PL/I shared library 282 
PLILFG -load and execute 95 
with PL/I shared library 284 
PLILFLG -link-edit and execute 95 
with PL/I shared library 282 
PLILIB system generation macro 
instruction 279 
POINTER built-in function restriction 306 
POSITION attribute restriction 307 
postponing definition of data set 253 
precision restriction 307 
preprocessor (see compile-time processing) 
primary control program (PCP) 32 
prime data area, INDEXED data sets 131 
PRINT files 119-120 
PRINT linkage loader option 84 
printer line spacing 112 
printer control characters for PRINT 
files 119 
printer spacing option (PRTSP 
subparameter) 252 
printing (using record I/O) 129 
priority (PRTY parameter) 32 
priority of jobs under MVT 35 
priority of MFT partitions 34 
priority scheduling under OS 32 
private libraries 160 
procedure library (SYS1.PROCLIB) 93,160 
procedure step (see cataloged procedures) 
procedures restriction (compile-time) 307 
PROCESS statement 57 
program control section in object or load 
module text 64 
program listings 
compiler 49 
control program 91 
linkage editor 70 
linkage loader 81 
programming requirements for 
multitasking 163 
prologue code to a PL/I procedure 208 
PRTSP subparameter 252 
PRTY parameter of JOB statement 32 
PRV (pseudo-register vector) 71 
pseudo-register vector (PRV) in linkage 
editor module map 71 


QISAM (queued indexed sequential access 
method) 109 
QSAM (queued sequential access method) 109 
ОТАМ (queued telecommunications access 
method) 110 
qualified names of data sets 101 

qualified structure names (PL/I 

restriction) 306 


RD parameter in job control language 178 
reader/interpreter 31 ; 
reađing а даа set 25 
КЕСЕМ subparameter 252 
record dope vector (RDV) 210 
record formats 102 

CONSECUTIVE data sets 128 

FORTRAN 202 

in record I/O 124 

in stream I/O 114 

INDEXED data sets 134 

RECFM subparameter 252 

REGIONAL data sets 141 

sort interface 184 

U-format records . 104 

V-format records 103 

VBS-format records 104 

VS-format records 104 
record length (LRECL subparameter) 251 
RECORD statement (sort/merge) 188 
record-oriented І/С 124-154 

COBOL option 203 

CONSECUTIVE data sets 125-130 

` INDEXED data sets 130-139 

message processing programs 153 

printing 129 

punching cards 129. 

REGIONAL data sets 139-152 

restriction on use of bit strings 303 

telecommunications data sets 152-154 

teleprocessing data sets 152-154 
recursive procedures (use of label 

constants and variables) 304 

REFER option restriction 307 
REGION parameter of EXEC statement 90 
REGION parameter of JOB statement 32 
region sizes in cataloged procedures 100 


REGIONAL data sets 139-152 
access of 143 
creation of 141 
DD statement for 142-143 


organization of 139 


REGIONAL(1) examples 144-146 
REGIONAL(2) examples 147-149 
REGIONAL(3) examples 150-152 


search limit (LIMCT subparameter) 250 
regions in MVT 35 
relocation dictionary 65 
REPLY option (descriptor codes) 92 
reorganization of INDEXED data set 138 
RES linkage loader option 85 
resident access methods 

(checkpoint/restart) 183 

resolution of addresses in main storage 65 
restart 177 
restart interfaces in PL/I 

IHERESN 182 
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IHEREST 182 
RESTART parameter of JOB statement 179 
restart from a checkpoint 180 
restrictions, implementation 297 
return codes 294,295 
creation of in a PL/I program 92 
for REPLY option response 92 
from the compiler 56 
from the linkage editor 72 
passed from checkpoint module 182 
STEP ABEND facility 295 
RKP (relative key position) 
subparameter 136,252 
RLD (relocation dictionary), for 
link-editing 65 
ROLL parameter of EXEC statement 90 
ROLL parameter of JOB statement 32 
root segment of oun ay program 74 
route code 92 


scale factor restriction 307 
scheduling jobs 32-36 
search limit (LIMCT subparameter) 250 
second version of the compiler 261 
segment of overlay program 74 
SEP parameter 256 
sequential data sets (see CONSECUTIVE data 
sets) 
SEQUENTIAL files in multitasking 171 
serial number of volumes (VOLUME-SER 
parameter) 260 
shared library 279-285 
cataloged procedures for 282 
creation of 279 
how to use 281 
Shared library transfer vector in object or 
load modules 64 
single checkpoint 177 
SIZE compiler option 44 
value to stop spill file opening 56 
SIZE linkage editor option 70 
SIZE linkage loader option 85 
SKIP format item in PRINT file 119 
SKIP format item restriction 308 
SNAP option used in multitasking 168 
SORMGIN compiler option 47 
sort interface with PL/I 184-200 
data sets for 185 
DD (data definition) statement for 186 
IHESRT (sort interface) module 184 
IHESRTA interface 189 
example of use 190 
IHESRTB interface 191 
example of use 192 
IHESRTC interface 193 
example of use 194 
IHESRTD interface 195 
example of use 196 
multitasking, used in 198 
record formats for 184 
RECORD statement 188 
SORT statement 187 
storage requirements for 185 
variable-length record sorting 197 
example 199 
SORT statement (sort/merge) 187 
SOURCE compiler option 49 
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source program 50-54 
aggregate length table 51 
attribute table 50,51 
cross reference table 51 
diagnostic messages 314-445 
ESD listing 52 
offsets table 52 
statement nesting 50 
statistics 54 
storage requirements table 51 
source statement libraries 
record formats for 42 
use of “INCLUDE statement 60 
use Of IEBUPDTE utility to create 61 
source statement numbering (STMT 
option) 45 
SOURCE2 compiler option 49 
Space on direct-access storage (SPACE 
subparameter) 257 
spanned records (VS- and VBS-format) 104 
spill file for compiler 42 
diagnostic message for 57 
SPLIT parameter 257 
STACK subparameter 252 
Stacker control (STACK subparameter) 252 
standard defaults for compiler options 44 
standard ESD entries, table of 53 
Standard files in PL/I 26 
standard format data sets 102 
Statement numbering for IF and ON 
Statements 50 
static internal control section in object 
or load module 64 
static internal storage map 54 
Statistics for compilations 54 
STATUS built-in function in 
multitasking 170 
STEP ABEND facility 295 
step completion information on SYSPRINT 92 
Step libaries (STEPLIB) 162 
STEPLIB (step library) statement 162 
STMT statement numbering compiler 
option 545 
storage organization under MVT 35 
storage partitions in МЕТ 34 
Storage requirements 
for compiler data sets 290 
for linkage editor 66,70 
for linkage loader 79 
for PL/I sort interface 185 
listing of 51 
stream-oriented I/C 114-123 
accessing a data set 117 
buffers for 115 
creating a data set 115 
example of PRINT file 121 
example of retrieving a data set 119 
FORTRAN and PL/I floating-point 
numbers 203 
PRINT files 119 
record formats for 114 
tab settings 120 
method of altering 121 
use Of SYSPRINT and SYSIN in PL/I 122 
STRING built-in function restriction 308 
string dope vector (SDV) 208 
string lengths restriction 308 
strings in multitasking 171 


structure dope vector (STDV) 208 
structure of load and object modules (for 
linkage editing) 64 
structures in data set interchange 201 
SUBALLOC parameter 257 
subroutine library modules 
list of 270-278 
inclusion by linkage editor 68 
inclusion by linkage loader 78 
PL/I shared libary 279-286 
supervisor program, function of 13 
SYNCHKE compiler option 46 
SYNCHKS compiler option 46 
SYNCHKT compiler option 46 
synchronization of I/O in 
multiprogramming 174 
syntax checking, compiler options for 46 
SYSABEND dump 175 | 
SYSCHK ddname 180 
SYSCP output device group name 260 
SYSDA output device group name 260 
SYSIN data set, use of 26 
for the compiler 40 
SYSIN standard PL/I file 122 
SYSLIB data set 
for “INCLUDE statement 43 
for link-editing 68 
for link-loading 81 
SYSLIN data set 
auxiliary storage requirements 289 
for compilation 41 
for linkage editor 67 
for linkage loader 80 
storage requirements 289 
SYSLMOD linkage editor data set 67 
SYSLOUT linkage loader data set 81 
SYSOUT parameter 258 
SYSPRINT 
auxiliary storage requirements 289 
for compiler listings 42 
for linkage editor listings 68,70 
for linkage loader listings 81 
for load module execution 91 
PL/I standard file 122 
SYSPUNCH auxiliary storage requirement 289 
SYSPUNCH data set for compilation 40 
SYSSQ output device group name 260 
system catalog, use of 24 
system libraries 160 
system output stream (SYSOUT) 
parameter 258 
system output, classes of 
SYSOUT classes 26 
system requirements 267 
SYSUDUMP dump 175 
SYSUT1 auxiliary storage requirement 289 
SYSUT1 data set for compiler workspace 42 
SYSUT1 linkage editor data set 67 | 
SYSUT3 auxiliary storage requirement 289 
SYSUT3 data set for compiler workspace 42 
SYS1.LINKLIB(link library) 160 
SYS1.PLILIB(PL/I subroutine library) 160 
SYS1.PROCLIB(procedure library) 160 


tab control table(module IHETAB) 120,122 
table of offsets, listing of 51 
tabs in stream-oriented I/O 120 


how to alter 122 
task execution 32,34,36 
task termination 172 
abnormal 173 
tasking in PL/I (see multitasking) 
telecommunications data sets 
(TRANSIENT) 104,152 
teleprocessing 
data sets for 152-154 
message control program (MCP) 152 
message processing program (MPP) 152 
QTAM 152 
temporary data set name prefix (&&) 24 
testing cataloged procedures as in-stream 
procedures 100 


. testing programs as in-stream 


procedures 19 
text (TXT) in object or load modules 64 
third version of the compiler 261 
TIME parameter of EXEC statement 90 
time slicing in MFT 34 
time slicing in MVT 36 
timer feature, for timing compilations 49 
TITLE option of OPEN statement 
restriction 309 
use of 107 
track index, INDEXED data sets 130 
transfer of control in multitasking 164 
TRANSIENT (telecommunications) data 
sets 108,152 
TRANSIENT attribute, rules for 309 
TRANSMIT condition, suppression option 
(OPTCD-U subparameter) 252 
tree structure of overlay program 74 
TRTCH subparameter 252 
type numbers 
direct-access devices 259 
graphic units 260 
magnetic tape devices 259 
TYPRUN parameter of JOB statement 32 


U-format records 104 
UCS (universal character set) used with 
MVT 36 
UCS parameter 258 
undefined-length records (U-format) 104 
UNIT parameter 259 
unit record devices 
general information 112 
record formats in record-oriented 
I/O 124 
record. formats in stream I/O 115 
type numbers 259 
unit requesting (UNIT) parameter 259 
universal character set (UCS) 
parameter 258 
printer under MVT 36 
user completion codes 294 
STEP ABEND facility 295 
utility programs 
for creating source libraries 59 
for processing partitioned data 
sets 160 


V-format records (see variable-length 
records) 
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variable-length records 103 

block control data 104 

blocked (VB-format) 104 

sorting with PL/I 197 

example 199 

variables restriction 309 
variables used in multitasking 168,171 
varying strings restriction 310 
VB-format records 104 
versions of the (F) compiler 261 
volume label 105 
VOLUME parameter 260 
VTOC (volume table of contents) 105 


WAIT statement 310 

in multitasking 169 
warning messages (format of) 56 
workfiles, dedicated 

DD statements in cataloged 

procedures 96 

for the compiler 42 

workspace for the compiler 42 


X/ in cataloged procedure statement 97 
XCAL linkage editor option 69 
XCTL macro instruction, to invoke 
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compiler 61 
XREF compiler option 49 
XREF linkage editor option 69 
XX in cataloged procedure statement 97 


026 keypunch, BCD or EBCDIC compiler 
options for 47 
029 keypunch, BCD or EBCDIC compiler 
options for 47 


1403 printer control codes 130 


2540 card read/punch control codes 130 


48-character set 
compiler option 47 
processor option 37 
restriction 311 


60-character set compiler option 47 


7-track magnetic tape recording modes 
(TRTCH subparameter) 252 
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